Örnek dosyada “Ara” butonundan Açılan Formdaki TextBox larda arama yapmak ve bulunan sonuca Çift Tıkla yınca UserForm1 deki TextBoxlara Verileri yazmasını istiyorım . UserForm1 de bulunan TextBoxlara bunun haricinde başka bir veri yazılmasını istemiyorum.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
UserFormda Arama Ve TextBoxlara Veri Aktarımı
- Konbuyu başlatan captan
- Başlangıç tarihi
Sayın Hamitcan Kardeşim İlgin için çok teşekkür ediyorum. Birde TextBoxlara Değerler sadece bu ListBox tan gelsin. Yani Buraya manuel Giriş olsun İstemiyorum. Birde UserForm1 de Arama yapmak için nasıl Bir Kod Yazmalıyız Acaba.
???
???
Kodu aşağıdaki şekilde yeniden düzenledim. Arama ile ilgili; nasıl bir arama istiyorsunuz ?, örnek verirseniz yardımcı olmaya çalışırım.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListIndex <> 0 Then
UserForm1.TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
UserForm1.TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
UserForm1.TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)
End If
End Sub
Private Sub UserForm_Initialize()
UserForm1.TextBox1.Locked = True
UserForm1.TextBox2.Locked = True
UserForm1.TextBox3.Locked = True
ListBox1.ColumnCount = 3
ListBox1.RowSource = "Sayfa1!B1
" & [A65536].End(3).Row
ListBox1.ColumnWidths = 100 & ";" & 80 & ";" & 50
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListIndex <> 0 Then
UserForm1.TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
UserForm1.TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
UserForm1.TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)
End If
End Sub
Private Sub UserForm_Initialize()
UserForm1.TextBox1.Locked = True
UserForm1.TextBox2.Locked = True
UserForm1.TextBox3.Locked = True
ListBox1.ColumnCount = 3
ListBox1.RowSource = "Sayfa1!B1
" & [A65536].End(3).RowListBox1.ColumnWidths = 100 & ";" & 80 & ";" & 50
End Sub