combobox tan Textbok a veri aktarma

[plus44]

formu taradım ama vereceğim örnege uygun birşey bulamadım çok ugraştım ama yapamadımda, ekteki dosyada, ComboBox taki Herhangi birini seçtiğimde Sayfa2 deki Ona karşılık gelen G I H ce J hücrelerindeki bilgiler sırasıyla Textbok lara gelsin ve Textbox sa gelen o bilgiler Sayfa3 deki D3, D4, D5 ve G3 deki bilgileri değiştirsin yardımcı olacak varmı acaba

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 5
ComboBox1.ColumnWidths = "100;0;0;0;0"
ComboBox1.RowSource = "Sayfa2!F10:J" & Sheets("Sayfa2").Range _
("F" & Rows.Count).End(xlUp).Row
End Sub


Private Sub ComboBox1_Click()
Sheets("Sayfa3").Range("D3:D5,G3").ClearContents
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
If ComboBox1.ListIndex < 0 Then Exit Sub
Sheets("Sayfa3").Range("D3").Value = ComboBox1.Column(1)
Sheets("Sayfa3").Range("D4").Value = ComboBox1.Column(2)
Sheets("Sayfa3").Range("D5").Value = ComboBox1.Column(3)
Sheets("Sayfa3").Range("G3").Value = ComboBox1.Column(4)
TextBox1.Text = ComboBox1.Column(1)
TextBox2.Text = ComboBox1.Column(2)
TextBox3.Text = ComboBox1.Column(3)
TextBox4.Text = ComboBox1.Column(4)

End Sub

 

[plus44]

Sayın orion1 zaman ayırarak emek harcadığınızdan dolayı çok sağolun, hayırlı çalışmalar