DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
tt = WorksheetFunction.CountA(Worksheets("sayfa1").Range("e1:e65000"))
ListBox1.RowSource = "sayfa1!e1:e" & tt
-----------------------------------------------------------------------------selections' Alıntı:Kod:tt = WorksheetFunction.CountA(Worksheets("sayfa1").Range("e1:e65000")) ListBox1.RowSource = "sayfa1!e1:e" & tt
Bu kod mantigi ile oyle yapmak gerekirdi. Baska mantikla da yapilabilir tabii...Fakat A:B sütunu ve Y:Z sütunalırnı (Bu 4 sütunu listelemek )listelemek isteseydim.Yine Listelenmek istenmeyen sütunlara 0 değerinimi atacaktık.