Merhaba,
Listbox additem kodunu ikinci döngünün içine yazdığınız için her sütun değeri için listboxa satır ekleniyor. Kurguyu aşağıdaki mantığa göre yeniden oluşturursanız yatay bir liste elde edersiniz.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(8 satır)
Bununla birlikte döngü içerisinde kullandığınız
Application.WorksheetFunction.CountA ifadeleriyle sayfaya göre veri almak yerine
ListBox1.ListCount ve
ListBox1.ColumnCount ifadeleriyle doğrudan listboxa ait değerleri kullanarak veri alırsanız oluşacak hataların önüne geçmiş olursunuz. Tercih sizin...
İyi çalışmalar...
