أم روان المصرية

أخى ابو البراء

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

نعم تم الموضوع على خير والحمد لله

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

تحياتى

في 4/27/2016 at 01:44, ياسر خليل أبو البراء said:

أختي الفاضلة أم روان

في ملفك قومي بإزالة الدمج من الصف الذي يحتوي على العناوين ..إذ أن الدمج عدو الأكواد ..

أنا جربت على ملف من عندي وأزلت الدمج قبل التجربة ، وكان يجب أن أنوه لذلك الأمر

والنقطة التي يجب التركيز عليها ليست مسح النطاق كما ذكرتي إنما تنفيذ الكود في وقت محدد في أيام محددة ، وقد قدمته في مشاركتي في حدث فتح المصنف ..فيمكنك عمل إجراء فرعي لإظهار رسالة مثلاً وضعي الكود في حدث المصنف المسئول عن التوقيت وجربي بنفسك ..

اخى ياسر

السلام عليكم

اعتقد أن دمج العناوين مطلوب 

فهل من محاولة أخرى لتجنب رسالة الخطأ

تحياتى

8 ساعات مضت, أبو محمد الأمين said:

السلام عليكم

قمت بتعديل آخر عند الفتح و الإغلاق

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
    Dim sH As Worksheet, i As Byte, L As Long, Re As String
    If Not Format(Date, "dddd") = vbFriday And Hour(Now()) >= "00" And Minute(Now()) >= "00" Then GoTo 1
    If Not Format(Date, "dddd") = vbFriday And Hour(Now()) <= "00" Then
    Re = MsgBox("لم يتم حذف البيانات لحد الآن و الساعة لم تصل إلى منتصف الليل ، هل تريد القيام بذلك الآن", _
    vbInformation + vbYesNo, "حذف")
    
    If Re = vbNo Then
    ThisWorkbook.Save
    Exit Sub
    Else
    GoTo 2
    End If
    End If
                                                               
1
    If MsgBox("هل تريد حذف جميع البيانات الموجودة في 10 صفحات", vbInformation + vbYesNo, "حذف") = vbNo Then Exit Sub
  
'----------------------------
2
    For i = 6 To 16
    Set sH = Sheets(i)
    With sH
    .Range("A8:D" & .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row).ClearContents
    End With
    Next
  ThisWorkbook.Save   
End Sub

Private Sub Workbook_Open()

    Dim sH As Worksheet, i As Byte, L As Long, Re As String
    If Not Format(Date, "dddd") = vbFriday And Hour(Now()) <= "00" Then
    Re = MsgBox("لا تنسى أن تحذف البيانات قبل منتصف الليل ، هل تود القيام بذلك الآن", _
    vbInformation + vbYesNo, "حذف")
    If Re = vbNo Then Exit Sub
    End If
'----------------------------
    For i = 6 To 16
    Set sH = Sheets(i)
    With sH
    .Range("A8:D" & .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row).ClearContents
    End With
    Next

End Sub

 

السيد الاستاذ / ابو محمد الامين

السلام عليكم

شاكرة جدا جدا اهتمام حضرتك

مع تغيير ساعة الجهاز الى 11:57 م  والانتظار لمدة ثلاثة دقائق 

لوحظ تغيير الساعة الى 1:00 ص بدلا من الساعة 12:00 ولن يتم تنفيذ المطلوب

أعتقد أن الحل أصبح قريب واقترح الاتى 

اضافة أمر معاينة وطباعة لشيت رقم 16 ثم بعد ذلك تحذف جميع النطاقات من

شيت رقم 6 الى شيت رقم 16 ولنغير وقت الحذف بالحادية عشرا مساء كل يوم بإستثناء يوم الجمعة

تحياتى 

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

أخ الغالي أبو حنين

أعتقد أنه يجب وضع الكود في حدث المصنف ليتم تفعيل الحدث بمجرد وصول التوقيت للساعة 12 م ..

أما أن يوضع في موديول فلن يتم التنفيذ بشكل تلقائي ..إذا لابد من تنفيذ الكود في الوقت المحدد بالضبط

راجع الكود الذي أرفقته في مشاركتي السابقة وغير الوقت إلى 2:16 مثلاً واحفظ المصنف وفنحه مرة أخرى .. عند التوقيت المحدد سيتم تنفيذ الكود

 

اخى ابو البراء

السلام عليكم

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

        Worksheets(I).Range("A7").CurrentRegion.Offset(1).ClearContents

تحياتى

اخى الفاضل أبو البراء

حضرتك اللى منور الدنيا كلها

شاكرة جدا جدا لحضرتك

فضلت أن يكون الموضوع هنا لتدخل خبراء المنتدى

مسح أم حذف مش دى المشكلة 

المشكلة فى أننى لاأحبذ استخدام الحلقات التكرارية  

فهل يمكن معالجة الموضوع بإستخدام المصفوفات 

تحياتى

السلام عليكم

تحياتى للجميع 

دى اول مشاركة بمنتداكم المتميز

أبحث عن كود لحذف نطاق ثابت بعدة اوراق بحيث تُحذف هذة النطاقات

فى الثانية عشرمساءا بصفة يومية من السبت وحتى الخميس من كل اسبوع

هذة النطاقات من A8  الى أخر صف بالعمودD  

ومن الشيت السادس وحتى الشيت السادس عشر 

المثال المرفق

حذف نطاق ثابت بعدة اوراق بتوقيت ثابت من كل يوم بإستثناء يوم الجمعه

تحياتى

الاسم           ام روان

البلد / الاقامة   ام الدنيا مصر – شرم الشيخ / السعودية

الحالة.ج       متزوجة من طبيب أمراض نفسية وعصبية

السن            28 سنة

الاولاد          البنت روان – الولد سيف الدين

مجال العمل    محللة نظم ومعلومات – برمجة شبكات

اللغات         الانجليزية – الفرنسية – الالمانية – الاسبانية

الهوايات     القرأة والاطلاع – السباحة – ركوب الخيل – اليوجا – الشطرنج

الاهتمامات    Access  - Front Page - SQL Server

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

سبب معرفتى بالمنتدى هو الاستاذ الفاضل وأخى الكريم / ياسر خليل ابو البراء بارك الله فيه وفيكم جميعا

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

الان, ياسر خليل أبو البراء said:

كود بلا ملف مرفق زي السلطة من غير طماطم .. مع تحياتي

هههههههههههه

ولو أنى ماليش فى الاكسيل

أحببت أن أقول انتم أحلى منتدى

يجمع بين التعاون والجدية والفكاهة

أرى أن السيد / ابو عبد الرحمن

 يتمتع بقدر عال من الذكاء فى تحليل وتطويع المرفقات التى يتم تحميلها

للإستفادة منها وهوعين الصواب وهذا  فى حد ذاته ذكاءا غير عادى

من رجل يتسم بذوق رفيع فى حديثة الراقى وإستحيائه الواضح

فى طلب معالجة الموضوع بالمصفوفات فى إشارة غير مباشرة بمشاركتة الاولى

مجرد رأى وافر تقديرى واحترامى

الان, محمد حسن المحمد said:

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

حللتِ أهلاً ووطئتِ سهلاً...أختنا الكريمة في بيت يجمع ضمنه طالبي العلم ومحبيه من شتى أصقاع الوطن العربي الكبير

نرغب في رفع شأن أمتنا بالعلم النافع الذي نسطره للأجيال اللاحقة ...حتى نكون حلقات في سلسلة مليئة بالنوابغ الذين ملأوا الأرض حلماً وعلماً وعدلاً وتواضعاً وعفة في عصر أمتنا الذهبي الذي ترنو  أعيننا لإعادة تسطيره بدمٍ جديد وفكر بناء ...فأمتنا العربية الإسلامية لاتنطفئ شعلتها ولا تخبو نارها بل تزداد نوراً وضياء بأسرجتها الوضاءة.

حيهلا بكِ بين إخوتك الكرام ...والسلام عليكم ورحمة الله وبركاته.

سيدى الفاضل / محمد حسن المحمد

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

كلمات وضائة ملؤها الامل والعمل

بارك الله فى حضرتك تقبل وافر تقديرى

ابو البراء

ههههههههه

مش زنقه ولا حاجة هية زنجة زنجة وحارة حارة

السيد الاستاذ / الصقر

السيد الاستاذ / ابو أدهم

بارك الله فيكم 

أهلا وسهلا بك أخى ابو البراء

بجد ليس هناك وجه مقارنة 

كل شيىء هنا جميل

معك حق الجميع هنا اسرة واحدة

حيث يتمتع جميع الاخوة هنا بروح عالية من التعاون

فضلا عن أخلاقهم الكريمة فلك وافر تقديرى واحترامى

بسم الله الرحمن الرحيم

وبه نستعين

بدعوة كريمة من أخى العزيز الاستاذ / ياسر خليل ابو البراء

لإنضمامى الى اسرتكم الكريمة أسرة منتدى أوفسينا

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

هنيئا لى بإنضمامى بينكم وارجو أن أكون عند حسن ظن الجميع

وافر تقديرى واحترامى