ارجو منكم حل مشكلتى مع جمع الخلايا بشرط التاريخ

[طارق زكريا]

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

 

مطلوب التعديل.rar

[طارق محمود]

السلام عليكم

تفضل المرفق

مطلوب التعديل2.rar

[طارق زكريا]

والله مش عارف اشكر ازاى الاستاذ طارق اخوك طارق رزكريا من اسوان

[طارق زكريا]

السلام عليكم

تفضل المرفق

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

[طارق محمود]

السلام عليكم

 

أخي العزيز

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

 

لايوجد مرفقات ولم توضح ماتريد من تعديل

[جمال عبد السميع]

ماشاء الله أستاذى ( طارق ) أعمال حضرتك عظيمة مثلك بارك الله فيك

[طارق زكريا]

هذا هو المرفق استاذى العزيز

مطلوب التعديل).rar

[طارق محمود]

وهذا هو بعد التضبيط

وبه الكود التالي (لابد من تخفيض أمان الماكرو)

 

Sub Macro1()

old_N = Format([M1], "dd-mm-yyyy")
ActiveSheet.Name = old_N
new_N = Format([M1] + 1, "dd-mm-yyyy")
ActiveSheet.Copy After:=Sheets(Sheets.Count)

With Sheets(old_N)
    [M1] = .[M1] + 1
    .Protect
End With

    ActiveSheet.Name = new_N
    [F9999].End(xlUp).Copy
    [F1].End(xlDown).End(xlDown).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("B2:I" & [A9999].End(xlUp).Row).ClearContents
    
    [C9999].End(xlUp).End(xlUp).Offset(0, 4).Select
     Cells([C9999].End(xlUp).End(xlUp).Row, "G").Select
    Range([F9999].End(xlUp).Offset(-1, 0), Selection).ClearContents
    
End Sub

تفضل المرفق

(تم دمج الموضوعين)

مطلوب التعديل3.rar

[طارق زكريا]

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

ثانيا اشكر جزيلا

سلام عليكم

[أبو محمد عباس]

الاستاذ والمهندس الكبير طارق محمود جزاك الله خيرا

عمل رائع وابداع اساتذه كبار

جعله الله في ميزان حسناتك

تقبل فائق احترامي وتقديري