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...