علي المصري قام بنشر فبراير 7, 2018 مشاركة قام بنشر فبراير 7, 2018 السلام عليكم ورحمة الله وبركاته اريد كود يقوم بعمل لصق البيانات المنسوخة على شكل قيم فقط code for paste copy data as value only رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر فبراير 8, 2018 أفضل إجابة مشاركة قام بنشر فبراير 8, 2018 حاول أستاذ علي تجرب هذا الكود Public Sub CopyrangeA() Dim firstrowDB As Long, lastrow As Long Dim arr1, arr2, i As Integer firstrowDB = 1 arr1 = Array("BJ", "BK") arr2 = Array("A", "B") For i = LBound(arr1) To UBound(arr1) With Sheets("SheetA") lastrow = Application.Max(3, .Cells(.Rows.Count, arr1(i)).End(xlUp).Row) .Range(.Cells(1, arr1(i)), .Cells(lastrow, arr1(i))).Copy Sheets("SheetB").Range(arr2(i) & firstrowDB).PasteSpecial xlPasteValues End With Next Application.CutCopyMode = False End Sub وممكن هذا الكود كمان Sub CopyPaste() Sheet1.Range("A:A").Copy Sheet2.Activate col = 1 Do Until Sheet2.Cells(1, col) = "" col = col + 1 Loop Sheet2.Cells(1, col).PasteSpecial xlPasteValues End Sub أو ربما ذلك Sub CopyPaste() Sheet1.Range("A:A").Copy Sheet2.Activate col = 1 Do Until Sheet2.Cells(1, col) = "" col = col + 1 Loop Sheet2.Cells(1, col).PasteSpecial xlPasteValues End Sub وأخر كودجميل Sub PasteSpecial_ValuesOnly() Worksheets("Sheet1").Range("A1:Z100").Copy 'PasteSpecial Values Only Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues 'Clear Clipboard (removes "marching ants" around your original data set) Application.CutCopyMode = False End Sub 1 رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر فبراير 8, 2018 الكاتب مشاركة قام بنشر فبراير 8, 2018 شكرا على الاهتمام ولكن المطلوب كما يلي عند نسخ بيانات من ملف اخر وعمل لصق لهذه البيانات في ملف الاكسيل سواء عن طريق استخدام Ctrl+V أو أي طريقة أخرى يبدأ تنفيذ الكود ويجعل عملية اللصق ( لصق القيم فقط ) ( أي لا يتم لصق التنسيق والمعادلات وغيرها ) مع الشكر الجزيل رابط هذا التعليق شارك More sharing options...
نبيل عبد الهادي قام بنشر فبراير 9, 2018 مشاركة قام بنشر فبراير 9, 2018 () Sub copy_paste 'كود منع اهتزاز الشاشة Application.ScreenUpdating = False 'كود اختيار نسخ البيانات من ملف معين ويمكن تغير المدى بما يلائم عملك Range("A1:G18").Select Selection.Copy كود ارسال البيانات المنسوخه ولصقها في الملف الهدف "القيم فقط'" 'ويمكن لك تغير اسم الملف والمسار بما يتلائم وعملك "Workbooks.Open Filename:="C:\Users\nabil\Desktop\file b.xlsm Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select Application.CutCopyMode = False 'كود حفظ العمل ActiveWorkbook.Save 'كود غلق الملف المستهدف ActiveWindow.Close Range("A1").Select End Sub رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر فبراير 10, 2018 الكاتب مشاركة قام بنشر فبراير 10, 2018 ما اقصده موضح بالمرفق جزاكم الله خيرا 111.rar رابط هذا التعليق شارك More sharing options...
ظفر الله عسكر قام بنشر فبراير 17, 2018 مشاركة قام بنشر فبراير 17, 2018 6.zip رابط هذا التعليق شارك More sharing options...
الردود الموصى بها