Khair ali قام بنشر يناير 16 مشاركة قام بنشر يناير 16 (معدل) السلام عليكم ورحة الله وبركاته أخواني الكرام كيف حالكم جميعا .. في الملف المرفق برنامج البريد الالكتروني هناك مشكلة في كود البحث عندما تكون كتابة الرقم الأشاري كما موضح في الصورة كذلك حفظ البيانات بالصورة أو بدون صورة ولكم من جزيل الشكر برنامج الصادر 2024.xlsm تم تعديل يناير 16 بواسطه Khair ali رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يناير 17 مشاركة قام بنشر يناير 17 طلبك غير واضح اخي هل المشكلة في كود البحث او الحدف وما هي النتائج المتوقعة بالنسبة لك رابط هذا التعليق شارك More sharing options...
Khair ali قام بنشر يناير 18 الكاتب مشاركة قام بنشر يناير 18 بالنسبة للرقم الاشاري في الدفتر يكتب كما في الصورة والمشكلة عند البحث على رسالة تظهر النتائج في التكست بوكس ولكن المشكلة في الحذف فعند الضغط على زر حذف يظهر خطأ رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يناير 19 مشاركة قام بنشر يناير 19 (معدل) جرب 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 بواسطه محمد هشام. رابط هذا التعليق شارك More sharing options...
Khair ali قام بنشر يناير 20 الكاتب مشاركة قام بنشر يناير 20 السلام عليكم ورحمة الله وبركاته وجهتني مشكلة في تحميل الملف ..وعند الدخول للمنتدى من جهاز أخر تظهر هذه النافذة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.