textboxa girilen sayıya göre sayfadan veri almak

[fedeal]

userform üzerinde textbox1 e girilen sayıyı b sütununda arayıp aynı satırın c sütun hücresini textbox2 ye d yi textbox3 e almak istiyorum.ilgi ve yardımlarınıza şimdiden teşekkürler.

 

[Ayhan Ercan]

Merhaba

Textbox1'e ;

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim hcr As Range
Set hcr = Sayfa1.Range("b1:b" & Sayfa1.[b65536].End(3).Row).Find(TextBox1, lookat:=xlWhole)
If Not hcr Is Nothing Then
TextBox2 = hcr.Offset(0, 1)
TextBox3 = hcr.Offset(0, 2)
Else
MsgBox "Girilen bilgi bulunamamıştır.", vbCritical, "UYARI"
End If
Set hcr  = Nothing
End Sub

 

[fedeal]

teşekkür ederim ayhan bey emeginize saglık

 

[Ayhan Ercan]

teşekkür ederim ayhan bey emeginize saglık

Rica ederim.
İyi Çalışmalar... k::