مساعدة في تعديل كود واضافة رسالة علي الكود

[Ahmed Saad 2017]

برجاء من الاخوة الكرام المساعدة في التعديل علي الكود المرسل ليتم ظهور شاشة انتظار "" جاري تنفيذ الكود "" اثناء عمل الكود و هل من الممكن ان تكون بها ميقات للوقت 

مرسل لسيادتكم الكود

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

 

Sub ChartFormulaChange()
Dim CH As Worksheet
Dim Answer As Byte
t = Timer

    Range("a1") = vbNullString
    Answer = MsgBox("هل تريد تحديث خريطة الاصناف? Ahmed Saad", 4)
    If Answer = 6 Then

Set CH = Sheets("Chart")
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("b10").AutoFilter

lr = CH.Range("E" & Rows.Count).End(xlUp).Row
    CH.Range("B1").Copy
    CH.Range("B11:B" & lr).PasteSpecial xlPasteFormulas
    ActiveSheet.Calculate
    arr = CH.Range("B11:B" & lr)
    CH.Range("B11:B" & lr) = arr

Range("b10").AutoFilter
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True

                
t = Int(Timer - t)
MsgBox "Ahmed Saad تم تحديث خريطة الاصناف فى  " & t & "  ثانيه"

    End If
End Sub
 

[عادل حنفي]

اخي

من الاقضل رفع ملف لرؤية عمل الكود والعمل علي المطلوب

[Ahmed Saad 2017]

8 دقائق مضت, عادل حنفي said:

اخي

من الاقضل رفع ملف لرؤية عمل الكود والعمل علي المطلوب

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

[أحمد يوسف]

أستاذ احمد نحن جميعا مع نصيحة استاذنا الكبير عادل 

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

[Ahmed Saad 2017]

16 ساعات مضت, عادل حنفي said:

اخي

من الاقضل رفع ملف لرؤية عمل الكود والعمل علي المطلوب

تم عمل نسخة من الشيت 

code.xlsm