نسخ الخلية كما هى بالالوان او نفس نوع الخط

[سيف الدين ابو باسم]

السلام عليكم ورحمة الله وبركاته

مثال : عندى خلية ولو تكون الخلية A  وعندى خلية تانية مثلا D عايز اعمل معادلة فى الخلية D تساوى اى شىء يكتب فى الخلية A بنفس الصيغه مثل لون الخط ونوعه ولو تم تلوين الخلية A يتم تلقاءى تلوين الخلية D بنفس درجة اللون يعنى الخلية D = الخلية A فى كل شىء ولسيادتكم جزيل الشكر والتقدير وخالص الدعاء .

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

ربما ينفع هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
     With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
If Target.Column <> 1 Then
     With Application
        Application.EnableEvents = True
        Application.ScreenUpdating = True
     End With
Exit Sub
End If
'============================
Range("d:d").Clear
Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).Copy
        Range("D1").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
        Application.CutCopyMode = False
  Range("a" & Cells(Rows.Count, 1).End(3).Row).Select
'==============================
 With Application
        Application.EnableEvents = True
        Application.ScreenUpdating = True
     End With
End Sub

 

[سيف الدين ابو باسم]

استاذ سليم انا بشكر حضرتك على اهتمامك وبارك الله فيك بس انا طالبها بالمعادلات وليس الاكواد لان اكثر من خليه فى شيت تساوى اكثر من خليه فى شيت اخر وطبعا مش كل ما هحدد خليه تساوى خليه اخرى هعملها كود فهنا اجد صعوبه فى الاكواد ولاكن المعادلات تسهل عليا اكثر ولسيادتكم جذيل الشكر والتقدير .

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

24 دقائق مضت, سيف الدين ابو باسم said:

استاذ سليم انا بشكر حضرتك على اهتمامك وبارك الله فيك بس انا طالبها بالمعادلات وليس الاكواد لان اكثر من خليه فى شيت تساوى اكثر من خليه فى شيت اخر وطبعا مش كل ما هحدد خليه تساوى خليه اخرى هعملها كود فهنا اجد صعوبه فى الاكواد ولاكن المعادلات تسهل عليا اكثر ولسيادتكم جذيل الشكر والتقدير .

المعادلات لا تقوم بالتنسيق

[سيف الدين ابو باسم]

طيب لو انا عايز اخلى العمود d كامل يساوى العمود a فى شيت اخر اعمل ايه .