الغاء دمج الخلايا المتشابهة

[عمر الجزاوى]

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

 قام بدمجهما عند مسحها ان يلغى الدمج وتكون كل خليه لوحدها والف شكر لكل من ساعدنى او قرء مشكلتى

الغاء دمج الخلايا المتشابه.xlsm

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

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

Option Explicit
Sub No_merge()
   Dim Rg As Range, My_Cell As Range
   Dim My_val, n%, m%
Set Rg = Range("B4:I9").CurrentRegion

For Each My_Cell In Rg
    If My_Cell.MergeCells Then
      My_val = My_Cell.Value
      n = My_Cell.MergeArea.Rows.Count
      m = My_Cell.MergeArea.Columns.Count
      My_Cell.UnMerge
        With My_Cell.Resize(n, m)
          .Value = My_val
          .Borders.LineStyle = 1
        End With
    End If
Next My_Cell

End Sub

 

DEl_Merge.xlsm

[عمر الجزاوى]

استاذ سليم حضرتك لغيت الكود الاساسى اللى العمل كله عليه اذا تساويت الخليتين يقوم بدمج الخليتن هذا هو عمل الكود الاساساى اردنا اضافة على الكود اذا تم مسح الرقم فى الخليتين المدموجتين ترجع الى الاصل

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

لم افهم السؤال جدياً  ما معنى (ترجع الى الاصل)

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

 

Merge_UnMerge Similar_cells.xlsm

[عمر الجزاوى]

شكر استاذ سليم على رد حضرتك واهتمامك ولكن ليس هذا هو المطلوب افهمنى بعد اذنك استاذ سليم الشيت الاساسى فى حدث الشيت كود يقوم بوظيفته على اكمل وجه وهى دمج خلايتيت بجانب بعضهما الى هنا ليس به شئ المطلوب عند مسح الخليتان الى بهما الدمج يلغى الدمج ويرجع حدود الخلايا مرة مرة ثانية وجرب بنفسك عند كتابتك فى الخليه D4 رقم 7 وهذا هو نفس الرقم الموجود فى الخليه E7يقوم بدمجهما المطلوب عدم مسح الكود الاساسى بل اضافه عليه وهذا صورة لما ارجو الحل عليه

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

ربما كان المطلوب

My_Merge.xlsm

[عمر الجزاوى]

شكرا استاذ سليم هذا هو المطلوب وعلى هذا الجهد المبذول