مطلوب عدم تنفيذ الكود اذا كانت الخلية فارغة

[ehabaf2]

السلام عليكم الاخوة الكرام

عندى ملف فيه ماكرو يتم تنفيذه

مطلوب اذا كانت الخلية A10  فارغة لا يتم تنفيذ الماكرو و يعطى رسالة مطلوب كتابة رقم الخط

الف شكر للاساتذة الافاضل و جعل الله علمكم فى ميزان حسناتكم

مرفق ملف

استفسار خطوط.xlsm

[lionheart]

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

 

[ehabaf2]

الاستاذ الفاضل lionheart 

الف الف شكر لحضرتك الكود يعمل بكفاءة و هو المطلوب 

ربنا يحفظ و يبارك فيك و يمتعك بالصحة و العافية

اكرر شكر لحضرتك