Solved: multi columns selected

[slamet Harto]

Hi there

How do i chance this
For Each c In Intersect(.UsedRange, .Columns("T:Z")).Cells

if i want to multi select some column eg: T,V,Z columns only

I use " For each c in selection" instead of above but i have to select manually before run the code.

appreciate for your help.

Rgds, Harto

[domfootwear]

Hi there

How do i chance this
For Each c In Intersect(.UsedRange, .Columns("T:Z")).Cells

if i want to multi select some column eg: T,V,Z columns only

I use " For each c in selection" instead of above but i have to select manually before run the code.

appreciate for your help.

Rgds, Harto
You have to use Union like this


Application.Union(...,...)

[slamet Harto]

is it like this

Set ColRng = Application.Union(["T1:T65536"], ["V1:Z65536"], _["Z1:Z65536"])
ColRng.Select
For each c in ColRng

But showing run time 424 - Object required

[domfootwear]

is it like this

Set ColRng = Application.Union(["T1:T65536"], ["V1:Z65536"], _["Z1:Z65536"])
ColRng.Select
For each c in ColRng
But showing run time 424 - Object required

Select 3 columns (T,V,Z) in Sheet1:


Sub Test()
With Sheet1
colrng = Application.Union(.Columns("t"), .Columns("v"), .Columns("z")).Select
End With

End Sub

[mikerickson]

Dim c as Range
For Each c In Application.Intersect(Range("T1,V1,Z1").EntireColumn, UsedRange)
Rem do stuff
Next c

[slamet Harto]

thanks all.

i use For Each c In Application.Union(.Columns("t"), .Columns("v"), .Columns("z")).

[Bob Phillips]

You could have used



For Each c In Intersect(.UsedRange, .Range("T:T, V:V, Z:Z")).Cells

[slamet Harto]

thanks bob

appreciated it so much

cheers