كود طباعة على اساس شرط

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

الاخوة الكرام .. 

ارجو المساعده فى عمل كود طباعة على اساس

طباعه الشيت الذى يكون محتوى الخليه aq4 = صفر

وذلك لكون الشيتات المراد طبعتها تحتلف كل شهر والمفترض ان يصل عدد الشيتات الى 31 شيت

وكيف لى ان افعل marge&center فى حالة protect shet  كلمة السر 2191612

جزاكم الله كل الخير 

المقاولين.rar

تم تعديل ديسمبر 31, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[عبد الله بولنوار]

كلمة السر غير صحيحة

[۩◊۩ أبو حنين ۩◊۩]

عزرا

2191612

هى الكلمه الصحيحه

تم تعديل ديسمبر 31, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[بن علية حاجي]

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

 

أخي الحبيب أبو حنين، تم إنشاء كود طباعة لجميع الشيتات حسب الشرط المذكور ووضع زر له في شيت رمضان1... بالنسبة للسؤال الثاني marge_center لم أفهمه فالرجاء التوضيح أكثر...

 

أخوك بن علية

 

المرفق : المقاولين.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب بن علبة حاجى

جزاك الله حيرا على المساعده

ثانيا ..الطلب الاخر

لا استطيع عملformat Cells & marge&center  للخلايا فى حالة protect shet 

مع ان الخلايا التى اريد دمجها غير محميه

تم تعديل ديسمبر 31, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[بن علية حاجي]

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

 

أخي الحبيب أبو حنين، تقصد الدمج والتوسيط Merge_center، التنسيق على الخلايا في شيت محمي غير ممكن مباشرة... غير أن العملية ممكنة جدا بواسطة كود وقد أدرجت في شيت رمضان1 فقط كود من النت -بتصرف- ووضعت له Button (صورة حصان) يقوم بعملية دمج وتوسيط الخلايا التي تم تحديدها في هذا الشيت... وإذا أردت تطبيق الكود في كل الشيتات فينبغي نسخ الزر Button ولصقه في كل الشيتات الأخرى (أو إنشاء زر آخر جديد في هذه الشيتات) ثم ربط هذه الأزرار بالكود نفسه...

 

أخوك بن علية

 

المرفق : المقاولين.rar 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب بن علية حاجى

جزاك الله كل الخير ... اخى الحبيب 

كود رائع وحل ممتاز اخى الحبيب 

الاانه به ثغره ... هى عدم الرجوع لوضع الخلايا مره اخرة قبل الدمج او بمعنى اخر لا يمكن الغاء الدمج 

جزاك الله كل الخير اخى الجبيب وسلمت يداكى بكل خير

وادام الله عليك الصحه والعافية

ا 

تم تعديل ديسمبر 31, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[بن علية حاجي]

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

 

أخي الحبيب أبو حنين، هذه الثغرة يمكن ملؤها بإنشاء زر جديد وربطه بالكود التالي :

Sub UnMerge_Cell()
   Application.ScreenUpdating = False
   On Error Resume Next
   ActiveSheet.Unprotect "2191612"
        If TypeName(Selection) = "Range" Then
            Selection.UnMerge
        End If
   Application.ScreenUpdating = True
   ActiveSheet.Protect "2191612"
End Sub

أخوك بن علية

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب بن علية حاجى

وجدت حل بعد التجربه الا انى لا استطيع عمله

يمكن جعل الكود مركب من خلال زر واحد يكون عند الضغط علية يكون   Selection.Merge

وعند الضعط عليه مره اخرى يكون Selection.UnMerge   كما فى كود اخفاء الصفوف الفارغه  و عند الضغط عليه مره اخرى اظهار الجميع

هلى يمكن تحقيق ذلك  مع ذلك الكود 

جزاك الله كل الخير

[۩◊۩ أبو حنين ۩◊۩]

نعم احى الحبيب ..

هل يمكن دمج الكودين بكود واحد

يعمل من خلا زر واحد 

[بن علية حاجي]

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

نعم احى الحبيب ..

هل يمكن دمج الكودين بكود واحد

يعمل من خلا زر واحد 

أخي الحبيب أبو حنين، طبعا يمكن ذلك جدا غير أني لم أستطع أن أجعل اسم الزر يتغير حسب الحالة يمكن جعل اسم الزر موحدا مثل Merge/UnMerge... يبقى أن الزر بالكود التالي:

Sub Merge_UnMerge()
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="2191612"
If TypeName(Selection) = "Range" Then
    If Selection.MergeCells = False Then
      Selection.Merge
      Selection.HorizontalAlignment = xlCenter
      Selection.VerticalAlignment = xlCenter
    Else
      Selection.UnMerge
    End If
End If
   Application.ScreenUpdating = True
   ActiveSheet.Protect "2191612"
End Sub 

وعذرا لعدم تمكني من تحقيق كل الذي تريده...

 

أخوك بن علية

تم تعديل ديسمبر 31, 2014 بواسطه بن علية حاجي

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب بن علية حاجى

سلمت يداك بكل خير

لا اجد من الكلمات ما اوفيك حقك به

فعم الاخ ونعم والمعلم.....

جزاك الله كل الخير 

تم تعديل ديسمبر 31, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩