أبو قاسم قام بنشر ديسمبر 30, 2015 قام بنشر ديسمبر 30, 2015 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
ياسر خليل أبو البراء قام بنشر ديسمبر 30, 2015 قام بنشر ديسمبر 30, 2015 أخي الكريم عند عمل موضوع يراعى أن يكون هناك تفصيل وتوضيح للمطلوب وأن يرفق ملف لتوضيح المشكلة بالنسبة للأكواد يرجى وضع الأكواد بين أقواس الكود التي توجد بهذا الشكل <> هذا الكود أعتقد لأخونا الحبيب حسام عيسى .. والذي تناول فيه البحث عن الرقم الوظيفي وإظهار الاسم المرتبط بهذا الرقم بالنسبة لتصفير TextBox يكفي أن تقوم بإدراج سطر تجعل فيه الـ TextBox يساوي فراغ TextBox3.value=""
أبو قاسم قام بنشر ديسمبر 30, 2015 الكاتب قام بنشر ديسمبر 30, 2015 شكرا تم الازم ولك كل الشكر والتقدير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.