دم الغزال قام بنشر نوفمبر 2, 2018 مشاركة قام بنشر نوفمبر 2, 2018 عندي ملف اكسل به ماكرو يشتغل على 2003 و 2007 بس 2010 يعطي رسالة خطا ولازم اضغط استمرار عند كل عمليه -_- 😕 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر نوفمبر 2, 2018 مشاركة قام بنشر نوفمبر 2, 2018 السلام عليكم لا تكفي صورة الخطأ للبحث عن حل للمشكلة (وأعتقد أن الصورة تمت بالموبايل وليس باستعمال خاصية Print Screen)... وبالتالي يجب إرسال الكود (الماكرو) بذاته أو الملف مع الكود (يمكن إرفاق جظء من الملف مع بعض البيانات)... بن علية حاجي 1 رابط هذا التعليق شارك More sharing options...
دم الغزال قام بنشر يوليو 15, 2023 الكاتب مشاركة قام بنشر يوليو 15, 2023 شكرا 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسونة حسين قام بنشر يوليو 16, 2023 أفضل إجابة مشاركة قام بنشر يوليو 16, 2023 السلام عليكم ورحمة الله وبركاته وبها نبدأ @دم الغزال استبدل هذا السطر Application.SendKeys ("{ESC 2}") بهذا السطر Application.CutCopyMode = False وان استمر الخطأ ارفق ملف للعمل عليه 3 رابط هذا التعليق شارك More sharing options...
دم الغزال قام بنشر يوليو 17, 2023 الكاتب مشاركة قام بنشر يوليو 17, 2023 شكرا لك استاذ حسونه لقد حلت المشكله 😀 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.