انشاء نسخة من الصفحة فى نفس الشيت

[كريم 201190]

السادة الافاضل ،،،،

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

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

ولسيادتكم جزيل الشكر

كشوف معاشات استثنائية.rar

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم كريم (حلوة القافية)

جرب الكود التالي .. عله يفي بالغرض

Sub Test()
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Worksheets("معاشات استثنائية ")
    
    ws.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Format(Time, "hhmmss")
    ws.Activate
    ws.Range("F12:H36").ClearContents
    
    MsgBox "Done ...", 64
End Sub

أعتقد أن الملف المرفق به تلف أو شيء ما مريب حيث تتجمد أوراق العمل ..

عموماً حاول تجرب الكود وتشوف .. ولو فيه مشاكل أنشيء الملف من جديد أفضل

تقبل تحياتي

كشوف معاشات استثنائية.rar

[كريم 201190]

2 ساعات مضت, ياسر خليل أبو البراء said:

وعليكم السلام أخي الكريم كريم (حلوة القافية)

جرب الكود التالي .. عله يفي بالغرض

Sub Test()
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Worksheets("معاشات استثنائية ")
    
    ws.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Format(Time, "hhmmss")
    ws.Activate
    ws.Range("F12:H36").ClearContents
    
    MsgBox "Done ...", 64
End Sub

أعتقد أن الملف المرفق به تلف أو شيء ما مريب حيث تتجمد أوراق العمل ..

عموماً حاول تجرب الكود وتشوف .. ولو فيه مشاكل أنشيء الملف من جديد أفضل

تقبل تحياتي

كشوف معاشات استثنائية.rar

استاذى الجليل استاذ ياسر 

شكرا جزيلا على الاهتمام بالموضوع والرد 

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

[ياسر خليل أبو البراء]

لا أستطيع الجزم بقولي أن الاستعلام متاح أم لا .. لسببين : 

الأول أنني ليس لدي ما يكفي من تفاصيل لمعرفة ذلك

الثاني هو أنني أفضل أن يكون الموضوع لطلب واحد فقط (لذا من الأفضل طرح موضوع جديد مع إرفاق ملف مع ذكر النتائج المتوقعة) .. 

تصدق والله تعبت من نفس النصيحة ..بس مش مشكلة .. كلكم إخواني ولازم تستحملوني

[كريم 201190]

في ١٢‏/٧‏/٢٠١٧ at 09:04, ياسر خليل أبو البراء said:

لا أستطيع الجزم بقولي أن الاستعلام متاح أم لا .. لسببين : 

الأول أنني ليس لدي ما يكفي من تفاصيل لمعرفة ذلك

الثاني هو أنني أفضل أن يكون الموضوع لطلب واحد فقط (لذا من الأفضل طرح موضوع جديد مع إرفاق ملف مع ذكر النتائج المتوقعة) .. 

تصدق والله تعبت من نفس النصيحة ..بس مش مشكلة .. كلكم إخواني ولازم تستحملوني

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