السلام عليكم
اريد عدم الترحيل اذا كانت احدى خلايا العمود d فارغة
Sub حفظ()
Application.ScreenUpdating = False
Dim Lr As Integer
Lr = [A10000].End(xlUp).Row
Range("A3:i" & Lr).Copy
Sheets("مخزن").Range("A" & Sheets("مخزن").[A10000].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "تم الحفظ بنجاح", vbOKOnly, "تنبية"
Range("A3:e10000").ClearContents
End Sub
ترحيل بشرط.rar