DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub UserForm_Initialize()
Dim sh As Worksheet, sat As Long
ListBox1.ColumnCount = 6
Me.Caption = "evrengizlen@hotmail.com"
Set sh = Sheets("rapor")
sat = sh.Cells(Rows.Count, "D").End(xlUp).Row
ListBox1.RowSource = "rapor!A1:F" & sat
End Sub
columncount kolon adedini bildirir.Orion1 ' na teşekkür ederim. Birşey daha soracağım. Listbox için sadece bu yukarıdaki kodu yazmak yetmiyor sanırım. Dosyada da excel sayfasından buton ekleyim onada herhangi bir makro atanıyormu? Yoksa bu işlem sadece bu şekilde yukarıdaki kod ilemi çözümlenitor.
ListBox için columncount ne anlama geliyor ve değer olarak = 6 neden diyoruz?
Merhaba.Sayın Orion1
Aynı konu ile ilgileniyorum.
Ancak bu kodlarla sayfda yapılmış biçimlendirmeler yani hücrelerin birleştirilmiş halleri görülemiyor.
Sayfanın A1 J36 aralığının bire bir biçimlendirilmi,ş şekli ile nasıl görüntülyebilirz. Yani bire bire fotografını nasıl görüntüleyebiliriz. Bir nevi ön izleme penceresi olsun istiyorum.
Listbox ile böyle bir çözüm yoksa Lİstwiev ile varmıdır.
Saygılarımla.