أبو حنــــين

السلام عليكم Intransit2.rar

السلام عليكم جرب المرفق AWB 16.rar

السلام عليكم أولا اعتذر عن التاخر في الرد وذلك لانني لمم اتصل مند ثلاثة أيام اخي ابو البراء جزاكم الله خيرا على مروركم و كلماتكم الطيبة و إلتفاتتكم الحسنة تشجيعا لكل الاخوة ، أحسن الله إليك و أثابك الجنة أخي مهند لقد تم عمل المطلوب m222.rar

السلام عليكم جرب أخي المرفق m111.rar

مرحبا لقد اجبت عن سؤالك في الرابط الآخر

السلام عليكم جرب أخي المرفق New Microsoft Excel Workshee 2.rar

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

السلام عليكم أخي لابد من وجود صفحة خاصة بالطباعة أنشأ صفحة و سمها بأي إسم مثلا AAAAA ثم أكتب عناوين الأعمدة في المكان الذي تريده مثلا في الخلية A4 تكتب المادة في الخلية B4 تكتب الكمية في الخلية C4 تكتب سعر الوحدة في الخلية D4 تكتب الإجمالي ثم في الفورم تنشأ زر و تكتب الكود التالي Sheetts("AAAAA").Range("A5").Resize(ListBox1.ListCount, 4).Value = ListBox1.List Sheetts("AAAAA")..PrintOut

أخي وائل أخوكم في الله = أبو محمد الأمين يعني فقط غيرت الاسم نزولا عند رغبة بعض الاخوة و وضعت صورة

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

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

من الأيقونة التي تفتح بها القائمة اذهب إلى ------> خيارات إكسيل -----> مركز التوثيق ------> إعدادات مركز التوثيق ------> خيارات الخصوصية ثم أزل علامة الصح عن العبارة : إزالة المعلومات الشخصية من خصائص الملف عند الحفظ

السلام عليكم قمت بتعديل آخر عند الفتح و الإغلاق 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

وجدت خطأ في الكود الذي أدرجته آنفا لا نضع يساوي بل نضع أكبر أو يساوي ثانيا من الأحسن يكون في الحدث BeforeClose Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim sH As Worksheet, i As Byte, L As Long For i = 6 To 16 Set sH = Sheets(i) With sH L = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row If Not Format(Date, "dddd") = vbFriday Then If Format(Now, "hh-mm-ss") >= TimeSerial(0, 0, 0) Then sH.Range("A8:D" & L).ClearContents End If End If End With Next End Sub

السلام عليكم قمت بهذا الكود و لكنني لم أجربه فقط كتبته من خلال المعطيات Sub sDel_ALL() Dim sH As Worksheet, i As Byte, L As Long For i = 6 To 16 Set sH = Sheets(i) With sH L = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row If Not Format(Date, "dddd") = vbFriday Then If Format(Now, "hh-mm-ss") = TimeSerial(0, 0, 0) Then sH.Range("A8:D" & L).ClearContents End If End If End With Next End Sub

السلام عليكم كإضافة لما ذكره أخي ياسر تثبيت النطاق هو إضافة هذه العلامة $ مثال : هذه خلية غير مثبتة A1 هذه خلية مثبتة $A$1 و لتثبيت خلية أو نطاق يكفي أن نضغط على المفتاح F4

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

السلام عليكم أخي البحث الذي تريده بمعيارين المعيار الأول موجود في العمود الأول A أما المعيار الثاني ففي أي عمود هل هو العمود D او E او F

السلام عليكم أخي البحث الذي تريده بمعيارين المعيار الأول موجود في العمود الأول A أما المعيار الثاني ففي أي عمود هل هو العمود D او E او F

السلام عليكم هذا هو الملف إدارج نصوص تحت عناوين متعددة ومرتبطة.rar

السلام عليكم إجابة على السؤال قمت بإدراج كمبوبكس و كموند بوتن و كتبت الكود التالي Private Sub CommandButton1_Click() Me.ComboBox1.Clear For i = 1 To 9 Me.ComboBox1.AddItem Cells(i + 1, i) Next End Sub

السلام عليكم فعلا غريب و إننا نتطلع لباقي الموضوع بشغف تقبل تحياتي

السلام عليكم لقد عملت المطلوب مثل ما فهمت و ان كان هناك تغيير اشرح لي بالتفصيل File 4.rar

السلام عليكم قمت بإجراء ما يلي إيقاف الكودين Private Sub UserForm_Activate() Me.Repaint 'Application.OnTime Now + TimeValue("00:00:05"), "VanishForm" End Sub '-------------------------------------------------------------------- Sub Demarrer() 'Application.OnTime Now + TimeValue("0:0:01"), "MiseAJour" End Sub ثم كتابة الكود التالي في زر الخروج Private Sub CommandButton2_Click() ThisWorkbook.Save With Application .DisplayAlerts = False .Quit End With Unload Me End Sub

السلام عليكم اخي عبد العزيز عندما نضع Cancel = True في الحدث Workbook_BeforeClose فإنه لا يمكن الخروج