Combobox ile seçilen değerin yan hücresine değer girme

[vardar07]

Merhaba arkadaşlar.
Ekteki dosyada açılan userform üstüne çağrılan verilerin yanındaki textboxlara girilen değerleri hücrelere yazdırma sorunu yaşıyorum. Kodda ne gibi değişiklik yapmam lazım.

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
MsgBox "Seçim Yapınız"
Else
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Label8 = Worksheets("Sayfa1").Cells(ComboBox1.ListIndex + 1, 2)
Label9 = Worksheets("Sayfa1").Cells(ComboBox1.ListIndex + 2, 2)
Label10 = Worksheets("Sayfa1").Cells(ComboBox1.ListIndex + 3, 2)
End If
End Sub

 

[Ziynettin]

Merhaba,
Dosyanız ektedir.

 

[vardar07]

Merhaba,
Dosyanız ektedir.

Merhaba, Emeğinize teşekkürler. Bendenmi kaynaklanıyor acaba kodda kırmızılı yerde hata veriyor.

Private Sub Kaydet_Click()
Dim ara As Range
Dim son As Integer
son = Cells(Rows.Count, 2).End(3).Row
Set ara = Range("A2:A" & son).Find(ComboBox1, , xlValues, xlWhole)
[B][SIZE=3][COLOR=red]If ara = ComboBox1.Text Then[/COLOR][/SIZE][/B]
a = Cells(ara.Row, Columns.Count).End(xlToLeft).Column + 1
Cells(ara.Row, a) = TextBox2
Cells(ara.Row + 1, a) = TextBox4
Cells(ara.Row + 2, a) = TextBox6
End If
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[Ziynettin]

Sayın vardar, #2 nolu mesajda ekteki dosyayı tekrar düzenledim, kontrol edip tekrar deneyin.

 

[vardar07]

Sayın vardar, #2 nolu mesajda ekteki dosyayı tekrar düzenledim, kontrol edip tekrar deneyin.

Sayın tasmed,
İlgine ve emeğine teşekkürler. Kolay gelsin.