Kolon seçme

[cemsoft]

Arkadaşlar,

Excelde 1'er satır atlatarak kolon seçmek istiyorum.

Mesela "Range("B:B,D,F:F,H:H,J:J,L:L,N:N,P.......

kısa yolu varmıdır?

thx

 

[alicimri]

Son sütunu (50) AX sütuna kadar yaptım, kendinize göre değiştirin

Sub Makro1()
For i = 2 To 50 Step 2
yaz = yaz & Columns(i).Address & ", "
Next
yaz = Replace(Left(yaz, Len(yaz) - 2), "$", "")
Range(yaz).Select
End Sub

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a1:a1000]) Is Nothing Then Exit Sub
If ActiveCell.Row = 2 Then Columns(2).Activate
If ActiveCell.Row = 4 Then Columns(4).Activate
If ActiveCell.Row = 6 Then Columns(6).Activate
If ActiveCell.Row = 8 Then Columns(8).Activate
End Sub

 

[cemsoft]

yardımlarınız için teşekkürler