Sub Button1_Click()
On Error Resume Next
If Range("a13") = "" Or Range("b13") = "" Or Range("c13") = "" Then
MsgBox "ÈÑÌÇÁ ÇßãÇá ÇáÈíÇäÇÊ", vbDefaultButton1, "ßæÏ ÇáÊÑÍíá "
Else
azsh = ãÈíÚÇÊ.Range("c50000").End(xlUp).Row + 1
æÇÌåÉ.Range("A3:AA13").Copy
ãÈíÚÇÊ.Cells(azsh, 1).PasteSpecial Paste:=xlPasteValues
MsgBox "Êã ÈäÌÇÍ", vbDefaultButton1, "ßæÏ ÇáÊÑÍíá "
æÇÌåÉ.Range("A13:AA13") = ""
End If
End Sub
مشكور هذا الكود
ترحيل1.xlsm