Combox'a yatay olarak alınan verilerin texboxlara alınması

[HASAN27]

Combox'a yatay olarak alınan verilerin texboxlara alınması nasıl oluyor
örnek sayfa ekte gönderilmiştir.

 

[asi_kral]

Combox'a yatay olarak alınan verilerin texboxlara alınması nasıl oluyor
örnek sayfa ekte gönderilmiştir.

Merhaba
Combobox1'in kod bölümüne

Private Sub ComboBox1_Change()
'Konu       :   Combobox'ta Seçilen Bilgilerin Karşılığı
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Dim asi, kral
asi = WorksheetFunction.Match(ComboBox1, Range("A1:F1"), 0)
TextBox1 = Cells(2, asi)
TextBox2 = Cells(3, asi)
TextBox3 = Cells(4, asi)
TextBox4 = Cells(5, asi)
MsgBox "Karşılıkları Buldum", vbInformation, "asi_kral_1967"
End Sub

Bu kodu kopyalayın ve deneyin.
Userform'un kod bölümünde

Private Sub ComboBox1_Change()
'Konu       :   Combobox'ta Seçilen Bilgilerin Karşılığı
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Dim asi, kral
asi = WorksheetFunction.Match(ComboBox1, Range("A1:F1"), 0)
TextBox1 = Cells(2, asi)
TextBox2 = Cells(3, asi)
TextBox3 = Cells(4, asi)
TextBox4 = Cells(5, asi)
MsgBox "Karşılıkları Buldum", vbInformation, "asi_kral_1967"
End Sub
Private Sub UserForm_Initialize()
'ComboBox1 Yatay veri alır
Set s1 = Sheets("Sayfa1")
For a = 1 To s1.Cells(1, 256).End(xlToLeft).Column
ComboBox1.AddItem s1.Cells(1, a)
Next
End Sub

Bu şekilde olmalı
Combobox1'de değişiklik olduğunda otomatik verileri bulur.
Dosyanız ekte

 

[HASAN27]

Kim bir Müslüman kardeşinin bir sıkıntısını giderirse, Allah ( C.C. ) 'de onun kıyamet sıkıntılarından bir sıkıntısını giderir.
Hz. Muhammed Mustafa ( S.A.V. )

Teşekür ederim asi kral 1967

 

[asi_kral]

Kim bir Müslüman kardeşinin bir sıkıntısını giderirse, Allah ( C.C. ) 'de onun kıyamet sıkıntılarından bir sıkıntısını giderir.
Hz. Muhammed Mustafa ( S.A.V. )

Teşekür ederim asi kral 1967

Kolay Gelsin.