Merhaba,
UserForm1.ListBox1 DoubleClick olayına
UserForm2.Label1.Caption = UserForm1.ListBox1.List(ListBox1.ListIndex, 1) ile yazdırıyorum.
UserForm2_Initialize olayında
UserForm2.ListBox1 Label1.Caption ile listeleniyor, şöyleki:
With ListBox1
.Clear
.ColumnCount = 4
.ColumnWidths = "18,50,140,50"
End With
Toplam = 0
Sira = 1
For sat = 2 To s2.Cells(65536, "b").End(xlUp).Row
ListBox1.AddItem
If s2.Cells(sat, "b") = Label1.Caption And Date > s2.Cells(sat, "g") Then
ListBox1.List(s, 0) = Sira
ListBox1.List(s, 1) = Format(s2.Cells(sat, "g"), "dd.mm.yyyy")
ListBox1.List(s, 2) = s2.Cells(sat, "e")
ListBox1.List(s, 3) = Format(CDbl(s2.Cells(sat, "f")), "#,##0.00 TL")
Toplam = Toplam + s2.Cells(sat, "f").Value
Sira = Sira + 1
s = s + 1
End If
Next
Şeklinde veriler listeleniyor ancak Label1.Caption ile ListBox'ı çalıştıramadım.
UserForm2 deki Label1.Caption'a veri doğru olarak geliyor, ama ListBox1 boş geliyor.
Label1.Caption = "Ad Soyad" şeklinde manuel girince çalışıyor.
Benim sıkletim yetmedi, ilgi ve yardımınıza şimdiden teşekkür ederim.
UserForm1.ListBox1 DoubleClick olayına
UserForm2.Label1.Caption = UserForm1.ListBox1.List(ListBox1.ListIndex, 1) ile yazdırıyorum.
UserForm2_Initialize olayında
UserForm2.ListBox1 Label1.Caption ile listeleniyor, şöyleki:
With ListBox1
.Clear
.ColumnCount = 4
.ColumnWidths = "18,50,140,50"
End With
Toplam = 0
Sira = 1
For sat = 2 To s2.Cells(65536, "b").End(xlUp).Row
ListBox1.AddItem
If s2.Cells(sat, "b") = Label1.Caption And Date > s2.Cells(sat, "g") Then
ListBox1.List(s, 0) = Sira
ListBox1.List(s, 1) = Format(s2.Cells(sat, "g"), "dd.mm.yyyy")
ListBox1.List(s, 2) = s2.Cells(sat, "e")
ListBox1.List(s, 3) = Format(CDbl(s2.Cells(sat, "f")), "#,##0.00 TL")
Toplam = Toplam + s2.Cells(sat, "f").Value
Sira = Sira + 1
s = s + 1
End If
Next
Şeklinde veriler listeleniyor ancak Label1.Caption ile ListBox'ı çalıştıramadım.
UserForm2 deki Label1.Caption'a veri doğru olarak geliyor, ama ListBox1 boş geliyor.
Label1.Caption = "Ad Soyad" şeklinde manuel girince çalışıyor.
Benim sıkletim yetmedi, ilgi ve yardımınıza şimdiden teşekkür ederim.