نقل البيانات من ملف الى اخر مع الوان الخلية

[FMA]

السلام عليكم

ارجو المساعدة في عملية نقل البيانات من ملف الى اخر مع الاحتفاظ بتسيق الخلية (اللون)

ولكم جزيل الشكر

مرفق ملف لبيان المطلوب

COLORED CELL.rar

[سليم حاصبيا]

جرب هذا الماكرو

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

 

[FMA]

بارك الله فيك وجزاكم الله خيرا