ams27 قام بنشر فبراير 22, 2023 مشاركة قام بنشر فبراير 22, 2023 السلام عليكم انا استخدم الكود ادناه بعمل نسخ للخلية S2 من sheet2 الي الخلية k15 في sheet1 ثم اقوم باجراء ماكرو اخر كما هو موضح بالكود احتاج الي تعديل هذا الكود لينفذ نفس الكلام علي جميع البيانات الموجودة في العمود S Sub Copy() ' ' Copy Macro ' ' Range("S2").Select Selection.Copy Sheets("Sheet1").Select Range("K15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Application.Run "Advance.xlsm!svpdf" Sheets("Sheet2").Select رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر فبراير 22, 2023 مشاركة قام بنشر فبراير 22, 2023 Sub Copy() With Sheets("sheet1") .Range(.Range("S2"), .Range("S2").End(xlDown)).Copy Sheets("Sheet2").Select Sheets("Sheet2").Range("K15").PasteSpecial Paste:=xlPasteValues Application.Run "Advance.xlsm!svpdf" End With End Sub رابط هذا التعليق شارك More sharing options...
ams27 قام بنشر فبراير 22, 2023 الكاتب مشاركة قام بنشر فبراير 22, 2023 بيطلعلي المسج دي Run-time error '1004': To do this, all the merged cells need to be the same size رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر فبراير 23, 2023 مشاركة قام بنشر فبراير 23, 2023 تفضل اخي جرب Sub Copy_Paste1() Application.ScreenUpdating = False Sheets("Sheet2").Range("K15").Value = Sheets("Sheet1").Range("S2").Value Application.CutCopyMode = False 'Application.Run "Advance.xlsm!svpdf" End Sub او Sub Copy_Paste2() Application.ScreenUpdating = False Sheets("Sheet1").Range("s2").Copy Sheets("Sheet2").Range("k15").PasteSpecial xlPasteValues Application.CutCopyMode = False 'Application.Run "Advance.xlsm!svpdf" End Sub test01.xlsm رابط هذا التعليق شارك 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.