• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Userformda comboboxtaki veriye göre textbox veri alma

  • Konbuyu başlatan Konbuyu başlatan byfika
  • Başlangıç tarihi Başlangıç tarihi

byfika

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
512
Excel Vers. ve Dili
Excel Vers. ve Dili : Ofis 2016 Tr
Merhabalar,
DATA sayfasındaki verileri data sayfasından açtığım Userform üzerindeki combobox ile veri seçtiğimde veri karşılıkları textboxlara giriş yapmakta, yine DATA sayfasında olan veriyi A SAYFASINDAKİ userform üzerindeki combobox ile veriyi seçtiğimde verilerin karşılıkları textboxlara gelmemekte. Örnek kitapta açık şekilde bulunmakta. Bahsettiğim işlemi nasıl çözebilirim.
Bilgi için şimdiden teşekkürler
 

Ekli dosyalar

Dosyanızda :
1-Userformun açılışta açılması sağlandı
2-Sayfa DATA değilse veriyi BUL tuşu ile arama eklendi, aksi durumda zaten combo buluyor
3-KAYDET tuşu ile formdaki veri A SAYFASI na yönlendirilip altalta kayda devam etmesi sağlandı
4-Her kayıtta otomatik sıra no verildi

Dosyanız ekte ...
 

Ekli dosyalar

Son düzenleme:
Teşekkür

Sayın Cems,
Gönderiniz için teşekkürler, bende aşağıdaki kodla bir şeyler yaptım, her ikiside çalışmakta. Emeğinize çok teşekkürler, elinize sağlık.

Private Sub ComboBox1_Change()
With Sheets("DATA")
For Each bul In .Range("B2:B" & Sheets("DATA").Range("B65536").End(3).Row)
If CStr(bul.Value) = CStr(ComboBox1.Value) Then
TextBox2.Value = bul.Offset(0, 1).Value
TextBox3.Value = bul.Offset(0, 2).Value
End If
Next bul
End With

End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "DATA!B2:B" & Sheets("DATA").Range("B65536").End(3).Row
End Sub
 
Geri
Üst