- Katılım
- 7 Ekim 2013
- Mesajlar
- 66
- Excel Vers. ve Dili
- türkçe
ListBox'a TABLO isimli worksheet'ten oluşturmuş olduğum tabloyu satır ve sütunları aynı kalmak şartıyla A1 hücresinden L28 hücresine kadar nasıl alabilirim?
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub UserForm_Initialize()
Dim Satir As Integer, Sutun As Byte
For Satir = 0 To 8
For Sutun = 0 To 2
ListBox1.AddItem
ListBox1.List(Satir, Sutun) = Cells(Satir + 2, Sutun + 1)
Next
Next
ListBox1.ColumnCount = 3
End Sub
ListBox1.ColumnCount = 5
ListBox1.RowSource = "Sayfa1!A2:E10"
ListBox1.ColumnWidths = "100;30;200"