Listboxdan listboxa veri..

[EmirhanG]

merhaba arkadaşlar.. ekdeki dosyada anlattığım konu hakkında yardımlarınızı umuyorum teşekürler

 

[Orion1]

Dosyanız ekte.

Private Sub ListBox1_Click()
Dim a As Long
deger = ListBox1.Column(0)
ListBox2.Clear
ReDim sayı(1 To 2, 1 To 1)
toplam = 0
For i = 1 To 29
    If Sayfa1.Cells(i + 1, 1) = deger Then
        a = a + 1
        ReDim Preserve sayı(1 To 2, 1 To a)
        sayı(1, a) = Sheets("Sayfa1").Cells(i + 1, 2).Value
        sayı(2, a) = Format(Sheets("Sayfa1").Cells(i + 1, 3).Value, "dd.mm.yyyy")
        toplam = toplam + Sayfa1.Cells(i + 1, 2)
    End If
Next i
tekrar:
ListBox2.Column = sayı
TextBox1.Value = toplam & " YTL"
End Sub

 

[EmirhanG]

Hocam teşekürler.....