السلام عليكم
ياكرام
مطلوب كود يقوم بـ ( تعطيل / تفعيل ) التنسيق الشرطى الموجوده بالصفحة
ثم تفعيل بعد تنفيذ الامر
الامر هو حفظ pdf بدون ظهور التلوين في التنسيق الشرطي
وبعد الحفظ يتم اعادة التنسيق الشرطي كما كان للمتابعة
توصلت الى هذا الحل
ان اجعل شيت قيه التنسيق فقط لتسخ منه وليسى للعمل
ولكن المشكلة
عندما انسخ التنسيق الشرطي منه وهو المشروع 1
الى مشروع 2 ومشروع 3 ومشروع 4 ومشروع 5 ومشروع 6 ومشروع 7 وووو
يعمل على شيت محدد الذي بالكود
هل يمكن جعلة الكود ينسخ التنسيق من شيت محدد وثابت
ويلصقة في اي شيت انا اقف فيه واعمل عليه
سواء مشروع 2 او مشروع 3 او 4او 5او 6
CODE
[/font][/size][/color][/center]
[center]
Sub SaveAsPDF11()
Range("B2:I47").Select
Selection.FormatConditions.Delete
Range("A1:Z999").AutoFilter Field:=1, Criteria1:="<>"
savePath = "d:\" & Range("AA1").Value & " " & Format(Now, "yyyy-mm-dd,hh.mm") & ".pdf"
Range("A1:Z999").ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
Sheets("مشروع 1").Select
Range("B2:I47").Select
Selection.Copy
Sheets("مشروع 4").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
[/center]
[center][color=#353c41][size=2][font=tahoma]
مرفق الملف
على مجهوده السابق معي