ahmed_ummu
Altın Üye
- Katılım
- 28 Mart 2011
- Mesajlar
- 750
- Excel Vers. ve Dili
- Excel 2010 Professional Plus 64 Bit
- Altın Üyelik Bitiş Tarihi
- 15-10-2026
Merhaba arkadaşlar.
Listbox'un n1. ve 2. kolonuna göre arama yaptıracağım. Bulunca o satırın B sütununu seçecek. kırmızı renkli kod ile denedim ama hep son satırdaki veriyi seçiyor bu kod ile
Sayfanın B sütununda kişinin adı, D sütununda ise soyadı var.
Listbox'a 1. sütuna adını, 2. sütuna da soyadını aşağıdaki kod ile aldırdım.
ListBox2.AddItem Worksheets("veri").Cells(i, "b").Value & " " & Worksheets("veri").Cells(i, "D").Value
Sheets("veri").Select
For sut = 2 To [b65000].End(xlUp).Row
If Range("b" & sut) Like ListBox2.Column(0) And Range("d" & sut) Like ListBox2.Column(1) Then
Range("b" & sut).Select
End If
Next
Yardımcı olursanız sevinirim.
Listbox'un n1. ve 2. kolonuna göre arama yaptıracağım. Bulunca o satırın B sütununu seçecek. kırmızı renkli kod ile denedim ama hep son satırdaki veriyi seçiyor bu kod ile
Sayfanın B sütununda kişinin adı, D sütununda ise soyadı var.
Listbox'a 1. sütuna adını, 2. sütuna da soyadını aşağıdaki kod ile aldırdım.
ListBox2.AddItem Worksheets("veri").Cells(i, "b").Value & " " & Worksheets("veri").Cells(i, "D").Value
Sheets("veri").Select
For sut = 2 To [b65000].End(xlUp).Row
If Range("b" & sut) Like ListBox2.Column(0) And Range("d" & sut) Like ListBox2.Column(1) Then
Range("b" & sut).Select
End If
Next
Yardımcı olursanız sevinirim.