هذا الماكرو يتعارض مع اوفيس 2010 ?

[دم الغزال]

عندي ملف اكسل به ماكرو 

يشتغل على 2003 و 2007 

بس 2010 يعطي رسالة خطا 

ولازم اضغط استمرار عند كل عمليه -_- 😕

[بن علية حاجي]

السلام عليكم

لا تكفي صورة الخطأ للبحث عن حل للمشكلة (وأعتقد أن الصورة تمت بالموبايل وليس باستعمال خاصية Print Screen)... وبالتالي يجب إرسال الكود (الماكرو) بذاته أو الملف مع الكود (يمكن إرفاق جظء من الملف مع بعض البيانات)...

بن علية حاجي

[دم الغزال]

شكرا 

 

Sub ChangeMe(ChangedRng As String, MySheet As String)
Application.ScreenUpdating = False
Dim MyCell As Range
With Sheets(MySheet)
    RowCont = .Rows.Count
    Set MyCell = .Cells(RowCont, 1).End(xlUp).Offset(1, 0)
End With
Application.ScreenUpdating = False
MyRow = MyCell.Row
Range(ChangedRng).Copy
Sheets(MySheet).Cells(MyRow, 1).PasteSpecial xlPasteValues
Application.SendKeys ("{ESC 2}")
Application.ScreenUpdating = True
Beep
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub

[حسونة حسين]

السلام عليكم ورحمة الله وبركاته وبها نبدأ

@دم الغزال

استبدل هذا السطر

Application.SendKeys ("{ESC 2}")

بهذا السطر

Application.CutCopyMode = False

 

وان استمر الخطأ ارفق ملف للعمل عليه

[دم الغزال]

شكرا لك استاذ حسونه 

لقد حلت المشكله 😀