أبو قاسم قام بنشر ديسمبر 1, 2020 مشاركة قام بنشر ديسمبر 1, 2020 (معدل) محتاج عند البحث اكتب الرقم المطلوب ويكون CIN يظهر بشكل اتوماتيك او يكون البحث بالجزء من الكلمة بدون CIN طبعا هذا الكود من ابداع الاستاذ سليم حاصبيا لة كل الشكر والتقدير abou_kasem.xlsm تم تعديل ديسمبر 1, 2020 بواسطه أبو قاسم رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 1, 2020 أفضل إجابة مشاركة قام بنشر ديسمبر 1, 2020 اكتب الرقم فقط (4 Characters) الكود اللازم Option Explicit Private Sub TextBox1_Change() Dim Ws As Worksheet Dim Lr% Dim My_val Dim F_rg As Range Set Ws = Sheets("Sheet_1") Lr = Ws.Cells(Rows.Count, 1).End(3).Row Ws.Range("A3:N" & Lr).Interior.ColorIndex = xlNone If Len(TextBox1) > 8 Then TextBox1 = "": Exit Sub If Len(TextBox1) = 4 Then My_val = "CIN-" & TextBox1.Text TextBox1.Text = My_val Set F_rg = Ws.Range("A2:A" & Lr).Find(My_val, lookat:=1) '+++++++++++++++++++++++++++ If F_rg Is Nothing Then Ws.Range("A3").Select MsgBox "I Can't Find The Value:" & Chr(10) & Chr(10) & _ """" & My_val & """" Else With Ws.Range("A" & F_rg.Row) .Select .Resize(, 14).Interior.ColorIndex = 35 End With End If End If End Sub الكلف مرفق abou_kasem_text_box.xlsm 1 رابط هذا التعليق شارك More sharing options...
أبو قاسم قام بنشر ديسمبر 1, 2020 الكاتب مشاركة قام بنشر ديسمبر 1, 2020 شكرا لك ربنا يوفقك وييسر امرك 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر ديسمبر 1, 2020 مشاركة قام بنشر ديسمبر 1, 2020 أبو قاسم أين انت من هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان