مشكلة في كود الحدف

[Khair ali]

السلام عليكم ورحة الله وبركاته

أخواني الكرام كيف حالكم جميعا .. في الملف المرفق برنامج البريد الالكتروني هناك مشكلة في كود البحث عندما تكون كتابة الرقم الأشاري كما موضح في الصورة

كذلك حفظ البيانات بالصورة  أو بدون صورة

ولكم من جزيل الشكر

 

برنامج الصادر 2024.xlsm

تم تعديل يناير 16, 2024 بواسطه Khair ali

[محمد هشام.]

طلبك غير واضح اخي هل المشكلة في كود البحث او الحدف وما هي النتائج المتوقعة بالنسبة لك 

[Khair ali]

بالنسبة للرقم الاشاري في الدفتر يكتب كما في الصورة والمشكلة عند البحث على رسالة تظهر النتائج في التكست بوكس ولكن المشكلة في الحذف فعند الضغط على زر حذف يظهر خطأ

[محمد هشام.]

جرب 

Private Sub CmdD_Click()
Dim Cpt As Variant, Clé As String, Lr As Long, i As Integer
Dim WS As Worksheet: Set WS = Sheets("الصادر")
Clé = Me.T3.Value

Lr = WS.Cells(Rows.Count, 1).End(xlUp).Row
    
    If Clé = Empty Then: MsgBox "قم أولا بإختيار سجل لحذفه", vbExclamation, "حذف": Exit Sub
    
Cpt = MsgBox(" أنت على وشك حذف " & "  (  " & Clé & "  )  " & " ، هل تريد المواصلة ", vbYesNo, "تأكيد الحذف")
If Cpt <> vbYes Then Exit Sub
Application.ScreenUpdating = False
        For i = 3 To Lr
          If WS.Range("C" & i) = Clé Then
          WS.Cells(i, 1).Resize(, 10).Delete Shift:=xlUp
     End If
 Next
Me.Image1.Picture = LoadPicture(none)
For x = 1 To 9: Me.Controls("T" & x) = "": Next
Application.ScreenUpdating = True
MsgBox "تمت عملية الحذف بنجاح"

End Sub

 

برنامج الصادر 2024.xlsm

تم تعديل يناير 19, 2024 بواسطه محمد هشام.

[Khair ali]

السلام عليكم ورحمة الله وبركاته 

وجهتني مشكلة في تحميل الملف ..وعند الدخول للمنتدى من جهاز أخر تظهر هذه النافذة