اذهب الي المحتوي
أوفيسنا

حسين مامون

الخبراء
  • Posts

    1,284
  • تاريخ الانضمام

  • Days Won

    6

كل منشورات العضو حسين مامون

  1. جرب ورد تكرار -عدد - قيمة1.xlsm
  2. اخي الكريم الملف شغال في حدث فتح يعني عند فتح الملف ينفذ اذا كان التاريخ في الجهاز مطابق للتاريخ في الكود ملاحظة يمكنك تغيير التاريخ في الكود حسب ما تريد قرعة.xlsm
  3. المرفق فيه تجربة مماثلة لما تقول يعني الملف الرئيسي المسمى test1 من خلاله تفتح فورم ومن الفورم يمكنك فتح ملف اي عميل حسب الكود كل الملفات مخزنة في مجلد ma boite قم بفك الضغط وضع المجلف في اس فولدر تريد هذا يختصر لك عملية البحث عن ملف داخل مجلد فيه اكثر من ملف يمكنك اجراء تعديل على ملفك كما في هذا الملف جرب ورد ... تحياتي ma boite.rar
  4. اخي الكريم فتحت ملفك اكثر من مرة ولكن لم افهم طلبك اظن ينقصك المزيد من التوضيح حاول شرح ما تريد بلغة الاكسيل مثلا: اريد ترحيل البيانات بناء على كذا في تيكست بوكس كذا او خلية كذا في الشيت كذا حاول ادخال بيانات يدويا في الفورم كما تتصورها وارفع صورة لذلك. ونفس الشيء للشيت الهدف
  5. تفضل Private Sub Workbook_Open() Dim ws As Worksheet Dim lr Dim x x = Date Set ws = Sheets("ورقة1") With ws lr = .Cells(Rows.Count, "c").End(3).Row If .Range("c" & lr).Offset(, 1) = x Then MsgBox "تمت العملية لهذا الشهر ": Exit Sub If Format(x, "dd") = 13 Then ' غير القيمة لتتناسب مع اليوم الذي تريد تنفيذ الكود فيه 'ws.Range("c" & lr + 1).Value = "تم" .Range("c" & lr + 1).Value = .Range("c" & lr + 1).Offset(, -2).Value .Range("c" & lr + 1).Interior.ColorIndex = 6 .Range("c" & lr + 1).Offset(, 1).Value = Date End If End With End Sub
  6. ربما يكون المرفق ما تريد قمت ببعض الاضافة في الجدول وذلك لمنع تكرار العملية في نفس اليوم الكود يعمل عند فتح الملف قرعة.xlsm
  7. ربما هكذا Sub ÍÐÝ() Range("A6:B220").Select Selection.Delete Range("A6:B220").Formula = "=COUNTA(B6:B220)" End Sub
  8. ولكن الكود مكرر في ملفك والتاريخ ايضا اذا كان ذلك مقصود فانصحك باستعمال الليستبوكس في البحث بدل الكومبوبوكس يعني فورم يحتوي على textbox للبحث بالكود و listbox لاطهار نتيجة البحث عند عمل كليك على اي صف داخل listbox يحدد الخلية في الشيت لي فيه نقس الكود في نفس row اعطيني قليل من الوقت لاجهز تجربة عن هذا وهذه تجربة جرب ورد active cell.xlsm
  9. لم افهم ممكن نمودج مما تريد يعني ضع بعض البيانات يدويا كما تريدها وارفع الملف
  10. جرب المرفق xxxxxxxx.xlsm
  11. اعتدر عن تأخري في الرد لاسباب عملي جرب المرفق ترحيل.xlsm
  12. ريما تقصد هذا الشيء fon.xlsx
  13. تفضل اضافة البيانات مباشرة بعد الحقل الفارغ من الرقم القومي مع الحفاظ على التسلسل.xlsm
  14. السلام عليكم اخي الكريم لم اغير شيء في الكود لاني وجدت ان التعديل الملون بالبني في صورتك هو نفس ما يقوم به الكود انظر الصورتين لما طلبت منك رفع صورتين يعني تشرح فيهم ما تريد بعد تنفيذ الكود ( كيف تظهر البيانات بعد اضافتها في الرو باخر خلية فارغة في العمود B) الصورة بعد اصافة البيانات الملونة بالاخضر الكود يضيف صف فارغ ويصدر اليه البيانات المعبأة في التكستات
  15. ارفع صورتين الاولى قبل تغير شيء والثانية بعد الاضافة مع تلوين البيانت الجديدة بلون اخر
  16. جرب المرفق اضافة البيانات مباشرة بعد الحقل الفارغ من الرقم القومي مع الحفاظ على التسلسل.xlsm
  17. جرب المرفق فاتورة بيع اجل.xlsm
×
×
  • اضف...

Important Information