Bul İle Diğer Sayfadan TextBoxlara veri getirme

[programer]

Bul Ýle Diğer Sayfadan TextBoxlara veri getirme

arkadaşlar aşağıdaki kodda Command butona tıkladığım zaman TextBox3 e girdiğim tarihi kurlar sayfasından bulup o tarihe karşılık gelen TextBox1'e b stunundaki kuru TextBox2 ye c stunundaki kuru getirmesini istiyorum. Kodu bu şekilde yaptım ama çalıştıramadım


Private Sub CommandButton9_Click()
On Error Resume Next
Dim bul As Range
For Each bul In Range("a2:a" & WorksheetFunction.CountA(Worksheets("Kurlar").[a1:a65000]))
If StrConv(bul.Value, vbUpperCase) = StrConv(TextBox3.Value, vbUpperCase) Then
bul.Select
TextBox1 = Range("b" & Worksheets("Kurlar").Row).Value
TextBox2 = Range("c" & Worksheets("Kurlar").Row).Value
Exit Sub
Else
TextBox3.Value = ""
End If
Next bul


End Sub

 

[mraltin]

Ekteki ornegi hazirladim,sanirim istediginiz bu inceleyiniz.

 

[programer]

mraltin,

yardıımız için teşekkür ederim tam istediğim gibi olmuş elinize sağlık

 

[programer]

yalnız kullanırken farkına vardım tarihi 01/12/2005 tarih yazdığım zaman hata veriyo tarih olayını düzeltme şansımız yokmu tarih formatını 01.12.2005 gibi yazsak olmazmı