السلام عليكم
طرحت مشكلتي ووجدت 15 مشاهدة ولم يساعدني أحد
ربما سؤالي غامض سأحاول توضيحه بمثال
MyPath = Workbooks("ْْْْXXXX").Path & "\YYYY"
Set MyBook = Workbooks.Open(Filename:=MyPath)
Endrow = Range("A2").CurrentRegion.Rows.Count
For F = 2 To Endrow
Cells(F, 4).Value = (Left(Cells(F, 1), 7))
Cells(F, 1).Value = Cells(F, 4)
Cells(F, 4).Clear
Next
ACT = UCase(ActiveCell.Text)
MyBook
Left
UCase
هذه الأوامر لا تعمل وقدكانت تعمل قبل فرمتة الجهاز
ماذا أفعل ؟
وأنا مطالب بتقديم البرنامج سريعا
رجاء التكرم بالرد علي ولكم جميعا جزيل الشكر