bravo64
Altın Üye
- Katılım
- 21 Eylül 2005
- Mesajlar
- 184
- Excel Vers. ve Dili
- ofis 365 İngilizce
- Altın Üyelik Bitiş Tarihi
- 25-10-2024
merhaba arkadaşlar,
Tahsilat adında bir sayfam var.Bu sayfada ad,tarih,mak.no ve tutar sütünları mevcut.Userformumdaki listboxa combobox içinde yer alan tarihi girdiğimde ,listboxa bu tarihle ilgili kayıtları atamak istiyorum..Ama yapamadım..Verdiğiniz örnekleri inceledim,karıştırdım ama olmadı.En son hali şöyle;
Private Sub CommandButton1_Click()
Set s1 = Sheets("tahsilat")
sat = s1.Columns(5).Find(ComboBox1.Value).Row
ListBox1.AddItem
ListBox1.List(0, 0) = s1.Cells(sat, 2)
ListBox1.List(0, 1) = s1.Cells(sat, 6)
End Sub
Tarih sütunu"E" buarada...............
Private Sub userform_initialize()
ComboBox1.RowSource = "tahsilat!e2:e" & Sheets("tahsilat").[e65536].End(3).Row
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "50;50"
End Sub
Tabi oldukça acemice, mesela for döngüsü yok birden çok kaydı bulmak için falan..
Teşekkürler yardımlarınız için..
Tahsilat adında bir sayfam var.Bu sayfada ad,tarih,mak.no ve tutar sütünları mevcut.Userformumdaki listboxa combobox içinde yer alan tarihi girdiğimde ,listboxa bu tarihle ilgili kayıtları atamak istiyorum..Ama yapamadım..Verdiğiniz örnekleri inceledim,karıştırdım ama olmadı.En son hali şöyle;
Private Sub CommandButton1_Click()
Set s1 = Sheets("tahsilat")
sat = s1.Columns(5).Find(ComboBox1.Value).Row
ListBox1.AddItem
ListBox1.List(0, 0) = s1.Cells(sat, 2)
ListBox1.List(0, 1) = s1.Cells(sat, 6)
End Sub
Tarih sütunu"E" buarada...............
Private Sub userform_initialize()
ComboBox1.RowSource = "tahsilat!e2:e" & Sheets("tahsilat").[e65536].End(3).Row
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "50;50"
End Sub
Tabi oldukça acemice, mesela for döngüsü yok birden çok kaydı bulmak için falan..
Teşekkürler yardımlarınız için..