arkadaslar benim soyle bir sorunum var. bir yardımcı olabilirseniz sevinirim.
listboxuma veriler ekliyorum bir çalışma sayfasındaki verileri ama arama yaparak.yani mesela e sütünunda arama yapıyor ve seçilen tarih ile eşit ise calisma sayfasındaki tüm satırı listboxum da listeliyorum.
ama şöyle bir sorunum var.
aynı tarihli kayıtları listelerken listbox1 deki eski listelenmis kaydin üzerine yaziyor. alt satıra bir türlü geçiremiyorum.
bunun bir yolu var midir?
listbox1.Additem yazıyorum ama alt satıra geçmiyor bir türlü.
arama yaparken kullandigim kod soyle bir sey:
For Each bak In Range("E1:E" & WorksheetFunction.CountA(Range("E1:E65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select
Myarray(1, 0) = Sheets("Veri").Cells(i, bak.Column - 4)
Myarray(1, 1) = Sheets("Veri").Cells(i, bak.Column - 3)
Myarray(1, 2) = Sheets("Veri").Cells(i, bak.Column - 2)
Myarray(1, 3) = Sheets("Veri").Cells(i, bak.Column - 1)
Myarray(1, 4) = Sheets("Veri").Cells(i, bak.Column)
Myarray(1, 5) = Sheets("Veri").Cells(i, bak.Column + 1)
Myarray(1, 6) = Sheets("Veri").Cells(i, bak.Column + 2)
Myarray(1, 7) = Sheets("Veri").Cells(i, bak.Column + 3)
ListBox1.List = Myarray
ListBox1.AddItem
End If
i = i + 1
next
tesekkurler simdiden...
listboxuma veriler ekliyorum bir çalışma sayfasındaki verileri ama arama yaparak.yani mesela e sütünunda arama yapıyor ve seçilen tarih ile eşit ise calisma sayfasındaki tüm satırı listboxum da listeliyorum.
ama şöyle bir sorunum var.
aynı tarihli kayıtları listelerken listbox1 deki eski listelenmis kaydin üzerine yaziyor. alt satıra bir türlü geçiremiyorum.
bunun bir yolu var midir?
listbox1.Additem yazıyorum ama alt satıra geçmiyor bir türlü.
arama yaparken kullandigim kod soyle bir sey:
For Each bak In Range("E1:E" & WorksheetFunction.CountA(Range("E1:E65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select
Myarray(1, 0) = Sheets("Veri").Cells(i, bak.Column - 4)
Myarray(1, 1) = Sheets("Veri").Cells(i, bak.Column - 3)
Myarray(1, 2) = Sheets("Veri").Cells(i, bak.Column - 2)
Myarray(1, 3) = Sheets("Veri").Cells(i, bak.Column - 1)
Myarray(1, 4) = Sheets("Veri").Cells(i, bak.Column)
Myarray(1, 5) = Sheets("Veri").Cells(i, bak.Column + 1)
Myarray(1, 6) = Sheets("Veri").Cells(i, bak.Column + 2)
Myarray(1, 7) = Sheets("Veri").Cells(i, bak.Column + 3)
ListBox1.List = Myarray
ListBox1.AddItem
End If
i = i + 1
next
tesekkurler simdiden...