textboxa veri aktaramıyorum

[marlalı1]

arkadaşlar excelde hazırlamış olduğum dosyada userform üzerindeki text boxa veri aktarımı yapmak istiyorum.form üzerindeki combobox tan tarihi seçince sayfa1 deki aynı tarihteki değer taxtboxa gelsin,tarihi değiştirince değişen tarihteki gelsin.

 

[Orion1]

A sütununda tarih var.B sütununda değerler var.A sütununda bulduğu tarihi b sütundaki değeri textboxa atar.
Kodlar textboxın changed olayında.

Private Sub ComboBox1_Change()
Dim k As Range
TextBox1.Text = ""
Set k = Sheets("Sayfa1").Range("A:A").Find(CDate(ComboBox1.Value), , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox1.Text = k.Offset(0, 1).Value
End If
End Sub

 

[marlalı1]

hocam olmuyor bu kodu combobox a mı yazcam