For X = 2 To Sheets("SAYFA1").[A65536].End(3).Row
c = c + 1
ListBox1.AddItem
ListBox1.List(c - 1, 0) = Sheets("SAYFA1").Cells(X, 1)
ListBox1.List(c - 1, 1) = Sheets("SAYFA1").Cells(X, 2)
Next
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.