محتاج عند عمل ترحيل يقوم بتصفير TextBox3 اي يزيل الكتابة التي فية لادخلات اخرى

[أبو قاسم]

Private Sub TextBox3_Change()
Dim ss As Range
Set ss = Range("N1048400:O1048500")
On Error Resume Next
If Me.TextBox3 = "" Then
Me.TextBox4 = ""
Exit Sub
End If
Me.TextBox4 = Application.WorksheetFunction.VLookup(Val(Me.TextBox3.Value), ss, 2, False)
End Sub

[ياسر خليل أبو البراء]

أخي الكريم

عند عمل موضوع يراعى أن يكون هناك تفصيل وتوضيح للمطلوب وأن يرفق ملف لتوضيح المشكلة

بالنسبة للأكواد يرجى وضع الأكواد بين أقواس الكود التي توجد بهذا الشكل <>

هذا الكود أعتقد لأخونا الحبيب حسام عيسى .. والذي تناول فيه البحث عن الرقم الوظيفي وإظهار الاسم المرتبط بهذا الرقم

بالنسبة لتصفير TextBox يكفي أن تقوم بإدراج سطر تجعل فيه الـ TextBox يساوي فراغ

TextBox3.value=""

 

[أبو قاسم]

شكرا  تم الازم ولك كل الشكر والتقدير