Listbox aralık belirtme hk.

[mumugul]

Merhaba;
Listbox' da sayfadaki ilk 7 kolonu görüntülüyorum.
Yanyana bir sonraki 7 kolonu görüntülemek için aralık vermem gerekiyor.
Ama ben aşağıda örneğini verdiğim "A3:G" aralığını "H3:M" aralığına bu formatta optimize edemiyorum.
Bu aralığı uygun bir formata nasıl çevirebiliriz?
Yardımcı olur musunuz?

Saygılarımla...

"SAYFA1!A3:G" & WS.Range("A65536").End(xlUp).Row

 

[yanginci34]

örnek dosya yüklermisiniz.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki şekilde yapabilirsiniz.

Sub test()
    Dim SonSatir As Long
    SonSatir = Sayfa1.Cells(Sayfa1.Rows.Count, "G").End(3).Row + 1
    ListBox1.RowSource = "'Sayfa1'!A3:G" & SonSatir
   
    SonSatir = Sayfa1.Cells(Sayfa1.Rows.Count, "M").End(3).Row + 1
    ListBox1.RowSource = "'Sayfa1'!H3:M" & SonSatir
End Sub

 

[mumugul]

Demem o ki yan yana bu 7 şerli kolonlar uzayıp gidiyor.
Ben de "Address" komutu ile elde ettiğim adresi parçalayıp "&" ile bağladım.
Biraz zahmetli oldu.