Listboxdan listboxa veri..

Katılım
27 Haziran 2007
Mesajlar
202
Excel Vers. ve Dili
2007
Türkçe
merhaba arkadaşlar.. ekdeki dosyada anlattığım konu hakkında yardımlarınızı umuyorum teşekürler
 

Ekli dosyalar

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Dosyanız ekte.:cool:
Kod:
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
 

Ekli dosyalar

Katılım
27 Haziran 2007
Mesajlar
202
Excel Vers. ve Dili
2007
Türkçe
Hocam teşekürler.....
 
Üst