تعديل في كود دمج خلايا

[الشيباني1]

اخواني الاعزاء تحية طيبه في المرفق كود رائع جاد به عمالقة المنتدى يدمج ويلغي دمج خلايا تحدد يدويا ما وددت تعديله هو ادخال مديات هذه الخلايا ضمن الكود لالغاء عملية التحديد مع الامتنان

دمج والغاء الدمج بكود واحد2.rar

[عبدالله المجرب]

السلام عليكم

جرب هذا التعديل

Public T As Integer

Sub Macro1()

If T = 1 Then [B6:C9,E6:H6,K6:O9].Merge: T = 0: Exit Sub

If T = 0 Then [B6:C9,E6:H6,K6:O9].UnMerge: T = 1: Exit Sub

End Sub

[الشيباني1]

_{استاذنا الكبير تعديل رائع اشكرك وادامك الرحمن لنا منقذا}