Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Makro-VBA (http://www.excel.web.tr/forumdisplay.php?f=48)
-   -   Kolon seçme (http://www.excel.web.tr/showthread.php?t=170391)

cemsoft 07-02-2018 21:39

Kolon seçme
 
Arkadaşlar,

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

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

kısa yolu varmıdır?

thx

alicimri 08-02-2018 01:21

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

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 08-02-2018 12:48

Bu şekilde deneyebilirsiniz.
Kod:

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 10-02-2018 00:40

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


Saat 19:55

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.