- Katılım
- 3 Mart 2005
- Mesajlar
- 609
- Excel Vers. ve Dili
- 2010 Excel-Türkçe
- Altın Üyelik Bitiş Tarihi
- 21/03/2019
Merhaba
Aşağıdaki kod ile listbox1 de tıklanan veriyi,listbox2 de buluyor.Seçiyor ve çıkıyor.
ancak listbox2 deki seçim listbox1 ile aynı hizada olmuyor.
listbox1 ve listbox2 deki seçimlerin aynı satırda görünmesi için nasıl bir kod yazmalıyım?
Kod:
Private Sub ListBox1_Click()
On Error Resume Next
a = ListBox1.Text
Dim i As Integer
For i = 1 To 1000
ListBox2.ListIndex = i
ListBox2.BoundColumn = 2
b = ListBox2.Value
If a = b Then
ListBox2.ListIndex = i
Exit Sub
Else
End If
Next i
End Sub
Aşağıdaki kod ile listbox1 de tıklanan veriyi,listbox2 de buluyor.Seçiyor ve çıkıyor.
ancak listbox2 deki seçim listbox1 ile aynı hizada olmuyor.
listbox1 ve listbox2 deki seçimlerin aynı satırda görünmesi için nasıl bir kod yazmalıyım?
Kod:
Private Sub ListBox1_Click()
On Error Resume Next
a = ListBox1.Text
Dim i As Integer
For i = 1 To 1000
ListBox2.ListIndex = i
ListBox2.BoundColumn = 2
b = ListBox2.Value
If a = b Then
ListBox2.ListIndex = i
Exit Sub
Else
End If
Next i
End Sub