- Katılım
- 14 Haziran 2006
- Mesajlar
- 575
- Altın Üyelik Bitiş Tarihi
- 10.04.2023
Private Sub ListBox1_Click()
Dim X As Integer
X = Sheets("Sayfa1").Range("B:B").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
Cells(X, 4).Select
TextBox3.Value = ListBox1
TextBox7.Value = ListBox1
End Sub
ListBox1' tıklayınca Textboxlara aynı veriler geliyor.TextBox3'e gelen verinin bir altındaki verinin
TextBox7'ye gelmesi gerekmektedir.
Dim X As Integer
X = Sheets("Sayfa1").Range("B:B").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
Cells(X, 4).Select
TextBox3.Value = ListBox1
TextBox7.Value = ListBox1
End Sub
ListBox1' tıklayınca Textboxlara aynı veriler geliyor.TextBox3'e gelen verinin bir altındaki verinin
TextBox7'ye gelmesi gerekmektedir.