Range veya Cells ile sayaç birlikte kullanımı ?

[sserhat]

Merhabalar,
Bir dosyada aynı satırdaki belirli hücreleri seçiyorum fakat sonraki döngüde aynı hücrelerin bir altındaki hücreleri seçmem gerekiyor? Bunu range veya Cells ile nasıl yapabilirim.
ÖR:
For sayac = 4 To 129

'Range ("E" & sayac), Range("G" & sayac), Range("I" & sayac), Range("K" & sayac).Select //Bu kullanımda hata veriyor tek hücre olursa seçiyor.
Next
gibi
Ya da böyle bir kullanım mümkün mü ? Yoksa offset ile mi yapmamız gerekiyor? Yardımcı olursanız sevinirim...İyi forumlar...

 

[winstoncash]

Range ("E" & sayac, "G" & sayac, "I" & sayac, "K" & sayac).Select

şeklinde dener misiniz

 

[sserhat]

Range ("E" & sayac, "G" & sayac, "I" & sayac, "K" & sayac).Select

şeklinde dener misiniz

İlginiz için teşekkürler hocam, yine hatalı diyor. Compile error: wrong number of arguments hatası veriyor

 

[Ömer]

Merhaba,

Deneyiniz.

Range("E" & sayac & " ,G" & sayac & " ,I" & sayac & ",K" & sayac).Select

 

[bmutlu966]

Alternatif olsun.

For sayac = 4 To 129
    Set r1 = Range("E" & sayac)
    Set r2 = Range("G" & sayac)
    Set r3 = Range("I" & sayac)
    Set r4 = Range("K" & sayac)

Set secim = Union(r1, r2, r3, r4)
secim.Select

Next

 

[bmutlu966]

Veya

Union(Range("E" & sayac), Range("G" & sayac), Range("I" & sayac), Range("K" & sayac)).Select

 

[Korhan Ayhan]

Merhaba,

Öncelikle bir bilgi paylaşmak istiyorum. Makrolarda işlem yaparken zorunlu durumlar dışında SEÇİM yapmanıza gerek yoktur.

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Option Explicit

Sub Test()
    Dim X As Integer
    
    For X = 4 To 129
        Range(Replace("E1,G1,I1,K1", 1, X)).Select
    Next
End Sub

 

[sserhat]

Hepinize çok teşekkür ediyorum, sayenizde yeni bir şeyler öğrenmiş olduk, sorun sayenizde çözülmüştür....Allah'a emanet olunuz..