Sütun numarasına göre Range ataması

[pNouma]

Kıymetli Hocalarım merhaba,

Aşağıdaki döngüde Set Rng = SH1.Range("B:B") atamasını yaparken;

2 >> Range("B:B")
3 >> Range("C:C")
4 >> Range("D")
................
8 >> Range("H:H")

sütun numarasına göre yapmak için nasıl bir düzenleme yapılabilir?

    Dim SH1 As Worksheet, Rng As Range
   
    Set SH1 = Sheets("Sayfa1")

For i= 2 to 8
   
   Set Rng = SH1.Range("B:B")
...........................
..................................
   Set Rng = Nothing
Next i

[CODE]

yardımlarınız için şimdiden teşekkürler,
iyi Çalışmalar dilerim.

 

[muhasebeciyiz]

Dim SH1 As Worksheet, Rng As Range
Dim i As Integer

Set SH1 = Sheets("Sayfa1")

For i = 2 To 8
Set Rng = SH1.Columns(i) ' i burada sütun numarasıdır: 2 = B, 3 = C, ..., 8 = H



Set Rng = Nothing
Next i

Alternatif olarak, Cells(1, i).EntireColumn da kullanılabilir, ama Columns(i) zaten doğrudan istediğiniz sütunu verir.

 

[Zeki Gürsoy]

@tamer42, iki hesap kullanmanızın özel bir nedeni var mı?

.

 

[pNouma]

@tamer42, iki hesap kullanmanızın özel bir nedeni var mı?

.

iki kardeş birlikte çalışıyoruz, o nedenle bilgisayar üzerinde bu tür farklılıklar oalbiliyor.
uyarınız için teşekkür ederim

 

[pNouma]

Dim SH1 As Worksheet, Rng As Range
Dim i As Integer

Set SH1 = Sheets("Sayfa1")

For i = 2 To 8
Set Rng = SH1.Columns(i) ' i burada sütun numarasıdır: 2 = B, 3 = C, ..., 8 = H



Set Rng = Nothing
Next i

Alternatif olarak, Cells(1, i).EntireColumn da kullanılabilir, ama Columns(i) zaten doğrudan istediğiniz sütunu verir.

ilgi ve alakanız için;
Çok teşekkür ederim Hocam

 

[Necdet]

ilgi = alaka