ehabaf2 قام بنشر يونيو 2, 2023 مشاركة قام بنشر يونيو 2, 2023 السلام عليكم الاخوة الكرام عندى ملف فيه ماكرو يتم تنفيذه مطلوب اذا كانت الخلية A10 فارغة لا يتم تنفيذ الماكرو و يعطى رسالة مطلوب كتابة رقم الخط الف شكر للاساتذة الافاضل و جعل الله علمكم فى ميزان حسناتكم مرفق ملف استفسار خطوط.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر يونيو 2, 2023 أفضل إجابة مشاركة قام بنشر يونيو 2, 2023 Very bad approach to use macro recorder Generally try the code that do the same steps Sub Test() Dim rng As Range, lr As Long With ActiveSheet If .Range("A10").Value = Empty Then MsgBox "Enter Number", vbExclamation: Exit Sub Application.ScreenUpdating = False Set rng = .Range("A10").Resize(, 9) lr = .Cells(Rows.Count, "Z").End(xlUp).Row + 1 .Range("Z" & lr).Resize(, 9).Value = rng.Value rng.SpecialCells(xlCellTypeConstants).ClearContents Application.ScreenUpdating = True End With End Sub 1 رابط هذا التعليق شارك More sharing options...
ehabaf2 قام بنشر يونيو 2, 2023 الكاتب مشاركة قام بنشر يونيو 2, 2023 الاستاذ الفاضل lionheart الف الف شكر لحضرتك الكود يعمل بكفاءة و هو المطلوب ربنا يحفظ و يبارك فيك و يمتعك بالصحة و العافية اكرر شكر لحضرتك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان