ListBox da ilk satır

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlarda önce listbox2 nin ilk satırına önce sütun başlıklarını yazdırıp sonrada listbox1 den seçtiğim alanı yazdırmak istiyorum. Kodlar çalışıyor . Ama şöyle bir sorun var. İlk
başlangıçta butona iki kere tıklarsam kodlar amaçlandığı gibi çalışıyor. Ama ilk tıklamada sütun başlıklarını yada listbox2 nin ilk satırını ListBox1 den alıyor. Bunu aşmanın mümkünü var mıdır ? İlgilenen arkadaşlara şimdiden teşekkürler.

With ListBox2
.AddItem
.List(0, 0) = "gelir"
.List(0, 1) = "gider"
.List(.ListCount - 1, 0) = ListBox1.Column(0)
.List(.ListCount - 1, 1) = ListBox1.Column(1)
End With

 

[Korhan Ayhan]

Aşağıdaki gibi deneyin.

Private Sub CommandButton1_Click()
    With ListBox2
        .ColumnCount = 2
        .Clear
        .AddItem
        .List(0, 0) = "gelir"
        .List(0, 1) = "gider"
        .AddItem
        .List(1, 0) = ListBox1.Column(0)
        .List(1, 1) = ListBox1.Column(1)
    End With
End Sub