الـعيدروس

السلام عليكم الاخوة الاحبة والاساتذه الاجلاء اشكرك مروركم العطر وكلماتكم الطيب والله يبارك فيكم والسلام عليكم

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

السلام عليكم الاستاذ القدير محمد صالح حفظك الله ورعاك ماهي الاسباب التي تنتج عن خطاء غير إثبات المتغيرات مثلا انا كتبت كود هكذا thedate = Format(Date, "long date") وهو معرف في بداية الكود على انه Dim thedate As String على أساس اريده ينقراء في مسج بوكس فيظهر خطاء عند كلمة التنسيق thedate = Format(Date, "long date") المشار اليها باللون الأحمر فأين بيت الداء بارك الله فيك

وهذا اوفيس 2003 اسمك اوفيس 2003 يعني الاوفيس الذي تستخدمه 2003 تفضل offes2003.rar

السلام عليكم اخي الفاضل اوفيس 2003 فكرة الأيام في أوراق مستقله صعبة أو بمعنى صح يبغا لها جهد ووقت ولاكن من فهمي للنتائج التي تريدها انك تريد تقرير لكل يوم بمعنى لكل تاريخ معين بموجب هذا الكلام خليت قاعدة البيانات في ورقة واحدة ولاكن لديك فورم تقرير تحط التاريخ ويعطيك تقرير عن كل الحركة التي بنفس التاريخ والملف تم عمله ولم أتأكد من عملة بالشكل المطلوب جرب المرفق وأي تعديلات انا موجود أرجو أن يفي بالغرض والسموحه منك لو كان يوجد لدي الوقت الكافي لعملتك ماتريد وزيادة والله المستعان جرب المرفق للعلم المرفق اوفيس 2007 والسلام عليكم offes2007.rar

السلام عليكم جزاك الله خير استاذ احمد كود جميل ولاثراء الموضوع اخي الفاضل فضل1 كود في حدث الصفحة عند النقر على الخلية التي فيها تعليق يثبت التعليق كي تدخل اي البياان ثم تنقر على اي خليه فارغه كي يختفي التعليق زر كود تعليق_ALI.rar

اخي الفاضل ارجو ارفاق برنامج SIF كي انصبه عندي واجرب عليه لانه هذا النوع من الملفات يظهر عندي انه غير معرف نوع الملف أو أرشدني إلى رابط من عمنا جوجل

انا سويته على اساس خلايا عمود M ماهيا النتائج ارجو التوضيح

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

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

السلام عليكم تفضل شرح فيديو لطريقة التوصل الى الكود t.rar

حط في التنسيق المخصص هذا الكود [$-809]dddd ;@

السلام عليكم هذه المعادلة =WEEKDAY(A1) مثلا التاريخ في الخليه A1 تحط المعادلة في اي خليه وحط تنسيق مخصص للخلية التي فيها المعادلة dddd

السلام عليكم والله ماني عارف ماهو السيف هذا ولاكن جرب هذا الكود Sub Excel4Us() Dim LR As Long, c As Range LR = Range("A" & Rows.Count).End(xlUp).Row For Each c In Range("m1:m" & LR) c.Value = c.Offset(, -12) & " , " & c.Offset(, -11) & " , " & c.Offset(, -10) & " , " & c.Offset(, -9) & " , " & c.Offset(, -8) & " , " & c.Offset(, -7) & " , " & c.Offset(, -6) & " , " & c.Offset(, -5) & " , " & c.Offset(, -4) Next c On Error Resume Next Q = ThisWorkbook.Path & "\SAVE_File_Sif.sif" Open Q For Output As #1 For R_A = 1 To 500 For C_A = 13 To 13 Dim T_A As Variant T_A = Cells(R_A, C_A).Value If IsNumeric(T_A) Then T_A = Val(T_A) If C_A <> 13 Then Write #1, T_A; Else Write #1, T_A End If MsgBox "تم حفظ الملف في هذا المسار" & Chr(13) & Q: GoTo 1 Next C_A Next R_A Close #1 1 End Sub

جزاك الله خير فعلا هذا هو عمل الكود طيب كذا أكون اختصرت ربما Sub ALI_V() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Range(Cells(5, 3), Cells(13, 33)).Value = Range(Cells(5, 3), Cells(13, 33)).Value2 Range(Cells(17, 3), Cells(62, 33)).Value = Range(Cells(17, 3), Cells(62, 33)).Value2 Range(Cells(69, 3), Cells(73, 33)).Value = Range(Cells(69, 3), Cells(73, 33)).Value2 Range(Cells(78, 3), Cells(82, 33)).Value = Range(Cells(78, 3), Cells(82, 33)).Value2 Range(Cells(87, 3), Cells(89, 33)).Value = Range(Cells(87, 3), Cells(89, 33)).Value2 Range(Cells(95, 3), Cells(120, 33)).Value = Range(Cells(95, 3), Cells(120, 33)).Value2 Range(Cells(125, 3), Cells(133, 33)).Value = Range(Cells(125, 3), Cells(133, 33)).Value2 Range(Cells(137, 3), Cells(141, 33)).Value = Range(Cells(137, 3), Cells(141, 33)).Value2 Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

عليها تجميد الغي التجميد وراح تظهر ان شاء الله

السلام عليكم بيكون هكذا Sub Abu_Ahmed_Tjme3() Dim cl As Range For Each cl In Range("D7:D" & [D1500].End(xlUp).Row) If Len(cl.Value) > 8 Then GoTo 0 If Len(cl.Value) < 8 Then GoTo 0 If cl.Value <> "" Then cl.Value = [E2].Value & " _ " & cl.Value 0 Next End Sub

السلام عليكم الاخ waaly ربما إعدادات الماكرو عندك في حالة التعطيل ضروري تمكنها اتبع الشرح في المرفقات sss.rar

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

السلام عليكم اتبع الشرح ان شاء الله يزبط معاك شرح.rar

السلام عليكم الاخ الفاضل الانيس السر في بير وصعب نجيبه هههههههههههه يالغالي تغير لون الأداة من خصائص الأداة BackColor

السلام عليكم جرب هذا الكود Sub ALI_V() With ActiveSheet .Range("C5:AL159").Value = .Range("C5:AL159").Value2 End With End Sub

السلام عليكم جزاكم الله اساتذتي الافاضل أكواد قمة في الروعة الاخ فضل بإمكانك تغير المعادلة التالية بالمعادلة التي في العمود B =IF(ISERROR(VLOOKUP(ورقة2!A3;ورقة1!$A$2:$B$101;2));"";VLOOKUP(ورقة2!A3;ورقة1!$A$2:$B$101;2)) هي نفس المعادلة ولاكن مع اضافة بسيطه لإخفاء علامة الخطاء #N/A

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

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