اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تعديل على سطر فى كود


الردود الموصى بها

السلام عليكم

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

ارجو المساعده فى تعديل على سطر فى كود

MyName = "D:\بدلات المقاولين\بدلات الخفراء والعمالة الغير فنية_" & Format(Date, "mm-yyyy") & ".pdf"

والخاص بتسميه الملف بعد حفظه pdf  بدلات الخفراء والعمالة الغير فنية - الشهر - السنه مثال (   بدلات الخفراء والعمالة الغير فنية_07-2017.pdf  )

المطلوب اذا كان التايخ الحالى شهر 7  ......يتم طرح شهر من التاريخ  اى  ( بدلات الخفراء والعمالة الغير فنية_06-2017.pdf )

 

 

Sub PDF_ALL()
Application.ScreenUpdating = False
    On Error Resume Next
      ActiveSheet.Unprotect "219161221"
 MyName = "D:\بدلات المقاولين\بدلات الخفراء والعمالة الغير فنية_" & Format(Date, "mm-yyyy") & ".pdf"
    Range("C45").Select
    Sheets(Array("بدل")).Select
    Sheets("رمضان 1").Activate
     MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه")
    If MyMsg = 6 Then
    ChDir "D:"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        MyName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    MsgBox "تم الحفظ"
    Else
       MsgBox "لم يتم الحفظ"
        End If
        Application.ScreenUpdating = True
    Sheets("رمضان 1").Select
    ActiveSheet.Protect "219161221"
End Sub
 

 

ارجو يكون المطلوب اتضح

رابط هذا التعليق
شارك

وعليكم السلام

إذا كان الشرط لشهر 7 فقط كما فهمت من موضوعك فجرب التالي ...

    Dim mMonth As Integer
    
    mMonth = IIf(Month(Date) = 7, 6, Month(Date))
    myName = "D:\بدلات المقاولين\بدلات الخفراء والعمالة الغير فنية_" & Format(mMonth, "00") & "-" & Format(Date, "yyyy") & ".pdf"

أما إذا كنت تقصد أن يتم التعامل مع الشهر السابق أياً كان الشهر فجرب التالي

    Dim mMonth As Integer
    
    mMonth = Month(Date) - 1
    myName = "D:\بدلات المقاولين\بدلات الخفراء والعمالة الغير فنية_" & Format(mMonth, "00") & "-" & Format(Date, "yyyy") & ".pdf"

 

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

الاخ الجليل ياسر خليل

نعم المقصود ان يتم التعامل من الشهر السابق أياً كان الشهر

وتم الامر شكل ممتاز

جزاك الله كل الخير والتقدير

  • Like 1
رابط هذا التعليق
شارك

وجزيت خيراً أخي العزيز أبو حنين والحمد لله أن تم المطلوب على خير

والحمد لله الذي بنعمته تتم الصالحات

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information