حذف مشاركة

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

تم تكرار مشاركة من قبل احد الاعضاء(Alawani)

ولما قمت بحذف الثانية المكررة تفاجأت بأنه تم حذف الاثنتين معاً ما السبب يا ترى؟ (سؤال الى الادارين)

سؤال اخر :لماذا ممنوع علينا نحن فريق الموقع التواصل مع (الاعضاء الجدد) عبر الرسائل الخاصة بينما هم يستطيعون

مع العلم اني قد قمت بالرد على المشاركة ووضع الكود اللازم لها لكن للاسف لا استطبع رفع الرد

لهذا سادرج الكود هنا مع الملف (مضافاً اليه الكود) مع الاعتذار  لصاحب المشاركة الاخ (Alawani)

Option Explicit

Sub give_certificates()

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Dim Target1 As Worksheet, Target2 As Worksheet
Dim sh_1 As Worksheet, sh_2 As Worksheet
Dim lr1%, lr2%
Dim i%
Set Target1 = Sheets("Prim_cert"): Set Target2 = Sheets("Sec_cert")
Set sh_1 = Sheets("Primery"): Set sh_2 = Sheets("second")

lr1 = sh_1.Cells(Rows.Count, 1).End(3).Row
lr2 = sh_2.Cells(Rows.Count, 1).End(3).Row
 Select Case ActiveSheet.Name
  Case "Prim_cert"
   For i = 13 To lr1 Step 2
    ActiveSheet.Range("h2") = i - 12
    ActiveSheet.Range("h23") = i - 11
    '---------------------------------
   ' ActiveSheet.PrintOut     'للطباعة احذف الفاصلة العليا من هذا السطر
    '---------------------------------
    Next
  Case "Sec_cert"
   For i = 13 To lr2 Step 2
    ActiveSheet.Range("h2") = i - 12
    ActiveSheet.Range("h20") = i - 11
    '---------------------------------
    ' ActiveSheet.PrintOut     'للطباعة احذف الفاصلة العليا من هذا السطر
    '---------------------------------
    Next
  
  Case Else
  GoTo Exit_me
 End Select
Exit_me:
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

الملف مرفق 

كي يقوم الكود بالطباعة يجب حذف الفاصلة العليا من السطرين 21  و 29 من هذا الكود

yahoo_salim.xlsm

 

 

[عامر ياسر]

تبقى رائع أستاذ سليم وتحب المساعدة جزاك الله خيرا 

[alawami]

الشكر الجزيل للاستاذ القدير سليم حاصبيا وبارك اللة فيك و اعطاك كل ماتتمنى وبارك لك في علمك ومالك☺️

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

20 دقائق مضت, alawami said:

الشكر الجزيل للاستاذ القدير سليم حاصبيا وبارك اللة فيك و اعطاك كل ماتتمنى وبارك لك في علمك ومالك☺️

الاخ Alawani

بعد السلام .....

يرجى اعادة المشاركة (مع عدم تكرارها) و ذلك كي يستفيد منها اكبر عدد من المشاركين

مع ذكر الحل  وعنوانه