محمد عبدالسلام قام بنشر أكتوبر 20, 2015 مشاركة قام بنشر أكتوبر 20, 2015 (معدل) السلام عليكم ورحمة الله وبركاته الاساتذة الافاضل طلب تعديل الكودلحدف الفاتورة اريد لما اضغط على زر الحدف يطلب مني ادخال كلمة سر ليتم مسح الفاتورة Sub invoice_Kill() ' حذف بيانات فاتورة Application.ScreenUpdating = False Set Ws = Worksheets("INVOICE") Set WS1 = Worksheets("Customers") LR1 = WS1.Range("c55555").End(xlUp).Row + 1 If Ws.Range("J3") = "" Then GoTo 6 For FR = 10 To 60 LR1 = Val(Ws.Cells(FR, 12)) If Ws.Cells(FR, 12) = "" Then GoTo 7 WS1.Range("E" & LR1 & ":M" & LR1).ClearContents LR1 = LR1 + 1 7 Next FR Application.CutCopyMode = False Ws.Select Application.ScreenUpdating = True 6 MsgBox "تم حذف بيانات الفاتورة THIS BILL DELETED" Application.Run "invoice_cleer" On Error Resume Next Range("I60:I64").SpecialCells(xlCellTypeConstants).ClearContents On Error GoTo 0 End Sub تم تعديل أكتوبر 20, 2015 بواسطه محمد عبدالسلام رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر أكتوبر 20, 2015 مشاركة قام بنشر أكتوبر 20, 2015 (معدل) السّلام عليكم و رحمة الله و بركاته جرّب أخي الكريم هذا الكود .. الذي قمت بوضعه في حدث الورقة رقم 1.. فائق إحتراماتي الماكرو.rar تم تعديل أكتوبر 20, 2015 بواسطه عبد العزيز البسكري رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 20, 2015 الكاتب مشاركة قام بنشر أكتوبر 20, 2015 السّلام عليكم و رحمة الله و بركاته اخي عبدالعزيز البسكري المرجو توضيحا اكثربارك الله فيك رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر أكتوبر 20, 2015 مشاركة قام بنشر أكتوبر 20, 2015 معذرة أخي الكريم الملف المرسل سابقا كان فارغًا عن خطأ .. القصد أنسخ الكود الذي وضعته لك في الشيت 1 .. كلمة المرور 123 الماكرو.rar رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر أكتوبر 20, 2015 مشاركة قام بنشر أكتوبر 20, 2015 (معدل) السّلام عليكم و رحمة الله و بركاته للتّوضيح أكثر أخي الكريم .. لاحظ الكود : Sub invoice_Kill() Dim reponse As String reponse = InputBox("الرجاء إدخال كلمة المرور لتنفيذ الماكرو") If reponse = "123" Then MsgBox "تم التنفيذ" 'حذف بيانات فاتورة Application.ScreenUpdating = False Set Ws = Worksheets("INVOICE") Set WS1 = Worksheets("Customers") LR1 = WS1.Range("c55555").End(xlUp).Row + 1 If Ws.Range("J3") = "" Then GoTo 6 For FR = 10 To 60 LR1 = Val(Ws.Cells(FR, 12)) If Ws.Cells(FR, 12) = "" Then GoTo 7 WS1.Range("E" & LR1 & ":M" & LR1).ClearContents LR1 = LR1 + 1 7 Next FR Application.CutCopyMode = False Ws.Select Application.ScreenUpdating = True 6 MsgBox "تم حذف بيانات الفاتورة THIS BILL DELETED" Application.Run "invoice_cleer" On Error Resume Next Range("I60:I64").SpecialCells(xlCellTypeConstants).ClearContents On Error GoTo 0 Else MsgBox "كلمة المرور خاطئة" End If End Sub فائق إحتراماتي تم تعديل أكتوبر 20, 2015 بواسطه عبد العزيز البسكري رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 21, 2015 الكاتب مشاركة قام بنشر أكتوبر 21, 2015 (معدل) السّلام عليكم و رحمة الله و بركاته اخي عبدالعزيز البسكري بارك الله فيك ونفع الله بك الاسلام والمسلمين تم تعديل أكتوبر 21, 2015 بواسطه محمد عبدالسلام رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 21, 2015 الكاتب مشاركة قام بنشر أكتوبر 21, 2015 (معدل) طلب الغاء هد سطر من الكود 6 MsgBox "تم حذف بيانات الفاتورة THIS BILL DELETED" تم تعديل أكتوبر 21, 2015 بواسطه محمد عبدالسلام رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 22, 2015 الكاتب مشاركة قام بنشر أكتوبر 22, 2015 طلب الغاءهده الرسلة رابط هذا التعليق شارك 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.