تعديل على كود يكون رمز ثابت في التكست بوكس

[أبو قاسم]

محتاج عند البحث اكتب الرقم المطلوب  ويكون CIN يظهر بشكل اتوماتيك او يكون البحث بالجزء من الكلمة بدون CIN طبعا هذا الكود من ابداع الاستاذ سليم حاصبيا  لة كل الشكر والتقدير

abou_kasem.xlsm

تم تعديل ديسمبر 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

[أبو قاسم]

شكرا لك ربنا يوفقك وييسر امرك 

[أحمد يوسف]

أبو قاسم

أين انت من  هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!!

أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙