السلام عليكم ورحمة الله
لدي مشكلة في تفعيل كود الترحيل لملف اكسل قد عملت على كتابته من خلال اطلاعي على بعض الفيديوهات الخاصة بهذا الامر
يشير بان هناك خطاء ..
ارجوا التكرم بلاطلاع وتبين المشلكة ... ولكم بالغ التقدير
علما بانني استخدم اخر اصدارات اوفيس / على جهاز ماك
Sub insert02()
Dim Mj As Worksheet
Dim Mn As String
Dim Mt As worksheet
Dim the last As Integer
Set Mj = ThisWorkbook.sheets = ("Main")
Mn = Mj.Range("L2").Value
Set Mt = ThisWorkbook.Sheets (Mn)
last = Mt.Range("B10000").End(xlUp).Row + 1
With Mt
.Cells(last, "B").Value = Mj.Range("K5").Value
Cells(last, "C").Value = Mj.Range("K6").Value
Cells(last, "D").Value = Mj.Range("K7").Value
Cells(last, "E").Value = Mj.Range("K8").Value
Cells(last, "F").Value = Mi.Range("K9").Value
Cells(last, "G").Value = Mj.Range("K10").Value
Cells(last, "H").Value = Mj.Range("K11").Value
Cells(last, "I").Value = Mj.Range("K12").Value
Cells(last, "J").Value = Mj.Range("K13").Value
Cells(last, "K").Value = Mj.Range("K14").Value
Mj.Range("K5").Value = ""
Mj.Range("K6").Value = ""
Mj.Range("K7").Value = ""
Mj.Range("K8").Value = ""
Mj.Range("K9").Value = ""
Mj.Range("K10").Value = ""
Mj.Range("K11").Value = ""
Mj.Range("K12").Value = ""
Mj.Range("K13").Value = ""
Mj.Range("K14").Value = ""
End With
End Sub
