Hi,

The answer is yes, it can be done. I'm not sure why you'd want to... Your
existing code takes all combinations of three columns from K to T and shows
them sequentially as A to C. I assume your code will do something to each
combination as it is shown, but that you haven't written it yet.

This does the same thing, but by hiding:

Sub hideblocksofdata ( )
Dim i As Integer
Dim j As Integer
Dim k As Integer

For i = 11 To 18
For j = i + 1 To 19
For k = j + 1 To 20
range("K1:T1").entirecolumn.hidden = true
range("a1").offset(0,i).entirecolumn.hidden = false
range("a1").offset(0,j).entirecolumn.hidden = false
range("a1").offset(0,k).entirecolumn.hidden = false
Next i3
Next i2
Next i1

End Sub


"ytayta555" wrote:

Hi All !

I have next macro , which move blocks of
data , in combinatoric order , from columns 11 to 20 ,
in columns 1 to 3 :

Sub moveblocksofdata ( )
Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer

For i1 = 11 To 18
For i2 = i1 + 1 To 19
For i3 = i2 + 1 To 20
Range("A1:A203") = .Range(Cells("1", i1), _
Cells("203", i1)).Value
Range("B1:B203") = .Range(Cells("1", i2), _
Cells("203", i2)).Value
Range("C1:C203") = .Range(Cells("1", i3), _
Cells("203", i3)).Value
Next i3
Next i2
Next i1
End Sub

Can this be done in another way , useing hide - unhide method ?
I mean , let's be a block of data in a range ( from column 11
to column 20 ) ; can hide - unhide to do the exact result from
previous macro , so , all the time to be no more then 3 columns ?
In every step , must to be hide 7 columns .

I'd like very much and it's very usefull for me to get know if this
thing can be possible useing hide - unhide .

Thank you very much for your time and knowledge share !