Yatay verileri Combox a alma texboxlara aktarma

[HASAN27]

Yatay verileri Combox a alma texboxlara aktarmada problemi nasıl çözeriz

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub ComboBox1_Change()
 
    Dim c As Range, sut As Integer, i As Byte
 
    Set c = Rows(7).Find(ComboBox1.Value, , xlValues, xlWhole)
    If Not c Is Nothing Then sut = c.Column
 
    For i = 1 To 4
        Controls("TextBox" & i).Text = Cells(i + 7, sut)
    Next i
 
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub UserForm_Initialize()
 
    Dim S1 As Worksheet, i As Integer
 
    Set S1 = Sheets("Sayfa1")
 
    For i = 4 To Cells(7, Columns.Count).End(xlToLeft).Column
        ComboBox1.AddItem S1.Cells(7, i)
    Next i
 
End Sub

.

 

[HASAN27]

Private Sub ComboBox1_Change()

Sheets("Sayfa1").Select
Dim c As Range, sut As Integer, i As Byte

Set c = Rows(7).Find(ComboBox1.Value, , xlValues, xlWhole)
If Not c Is Nothing Then sut = c.Column

For i = 1 To 4
Controls("TextBox" & i).Text = Cells(i + 7, sut)
Next i

End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub UserForm_Initialize()

Sheets("Sayfa1").Select


Dim S1 As Worksheet, i As Integer

Set S1 = Sheets("Sayfa1")

For i = 4 To Cells(7, Columns.Count).End(xlToLeft).Column
ComboBox1.AddItem S1.Cells(7, i)
Next i

End Sub

Kırmızı renkle belirtilen şekilde sayfaları seçersek sorunsuz çalışıyor
yardımlarınız için teşekür ederim.