ترحيل قيمة معية من شيت الى فورم

[moviz4u]

السلام عليكم لدي شيت مزارعين .. 

عندي فورم اضافة منتجات مزارعين

عند كتابة اسم مزارع يظهر رقمه مباشر بتكست بوكس 

هذه البرنامج لتوضيح

فورم 5

برنامج mahmoud.xlsb

[حسين مامون]

ضع هذا الكود في TEXTBOX3

ادخل الاسم المراد وانقر زر ادخال على لوحة المفاتيح

Private Sub textbox3_AfterUpdate()
Dim ws As Worksheet
Set ws = Sheets("مزارعين")
Dim lr
Dim x
lr = ws.Range("b" & Rows.Count).End(xlUp).Row
For x = 2 To lr
If textbox3.Text = ws.Cells(x, 2) Then
textbox2.Value = ws.Cells(x, 1)
Exit For
End If
Next x

End Sub

 

[moviz4u]

بارك الله فيك اخي الكريم حسين مامون مشكور ما قصرت والله

وكلمة شكر لا تكفي انت مبدع اخي تم والحمد الله