Dinamik sütun tanımlamada hata!

[omemo]

Excel Dostları,
Aşağıdaki kodlarla iki sayfalı çalışmada Sayfa1 aktif iken Sayfa2'de dinamik olarak sütunları dizeye almaya çalışıyorum.
Statik tanımlamada Dize = s2.Range("B2:B10") sorun olmazken, dinamik tanımlama Dize1 = s2.Range(Cells(2, sut), Cells(10, sut)) sorun çıkarıyor. Sayfa2'yi aktif yaparak sorunu aşabiliyorum ama; Sayfa2'yi aktif yapmadan (Sayfa1 üzerinden) bu işlemi yapmanın bir yolu var mıdır?

Sub TestQ()
Set sh1 = Sheets("Sayfa1")
Set sh2 = Sheets("Sayfa2")

    sut = 2 'Döngü ile sütunları değiştireceğim.

    Dize = sh2.Range("B2:B10") 'Bu satır sorunsuz çalışıyor
   
    'Aşağıdaki satır Sayfa1 aktif ise hata ile sonuçlanıyor. _
    Sayfa2 yi aktif yapmadan dinamik sütun tanımlaması yapılamaz mı?
    Dize1 = sh2.Range(Cells(2, sut), Cells(10, sut))
'....
'.....
End Sub

 

[Muzaffer Ali]

Dize1 = sh2.Range(Cells(2, sut), Cells(10, sut)))

aşağıdaki gibi olmalı

Dize1 = sh2.Range(Cells(2, sut).address, Cells(10, sut).address))

 

[omemo]

Teşekkürler.