FMA قام بنشر مارس 8, 2017 قام بنشر مارس 8, 2017 السلام عليكم ارجو المساعدة في عملية نقل البيانات من ملف الى اخر مع الاحتفاظ بتسيق الخلية (اللون) ولكم جزيل الشكر مرفق ملف لبيان المطلوب COLORED CELL.rar
سليم حاصبيا قام بنشر مارس 9, 2017 قام بنشر مارس 9, 2017 جرب هذا الماكرو Sub Transfere_Data() Dim Ws1, Ws2 As Worksheet Set Ws1 = Sheets("File 1"): Set Ws2 = Sheets("File2") Application.ScreenUpdating = False Ws2.Range("a1").CurrentRegion.Clear Ws1.Range("a1").CurrentRegion.Copy With Ws2.Range("a1").CurrentRegion .PasteSpecial xlPasteAll: .Value = .Value End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.