حسين مامون

جرب ورد تكرار -عدد - قيمة1.xlsm

اخي الكريم الملف شغال في حدث فتح يعني عند فتح الملف ينفذ اذا كان التاريخ في الجهاز مطابق للتاريخ في الكود ملاحظة يمكنك تغيير التاريخ في الكود حسب ما تريد قرعة.xlsm

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

اخي الكريم فتحت ملفك اكثر من مرة ولكن لم افهم طلبك اظن ينقصك المزيد من التوضيح حاول شرح ما تريد بلغة الاكسيل مثلا: اريد ترحيل البيانات بناء على كذا في تيكست بوكس كذا او خلية كذا في الشيت كذا حاول ادخال بيانات يدويا في الفورم كما تتصورها وارفع صورة لذلك. ونفس الشيء للشيت الهدف

تفضل 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

تفضل قرعة.xlsm

ربما يكون المرفق ما تريد قمت ببعض الاضافة في الجدول وذلك لمنع تكرار العملية في نفس اليوم الكود يعمل عند فتح الملف قرعة.xlsm

ربما هكذا Sub ÍÐÝ() Range("A6:B220").Select Selection.Delete Range("A6:B220").Formula = "=COUNTA(B6:B220)" End Sub

ولكن الكود مكرر في ملفك والتاريخ ايضا اذا كان ذلك مقصود فانصحك باستعمال الليستبوكس في البحث بدل الكومبوبوكس يعني فورم يحتوي على textbox للبحث بالكود و listbox لاطهار نتيجة البحث عند عمل كليك على اي صف داخل listbox يحدد الخلية في الشيت لي فيه نقس الكود في نفس row اعطيني قليل من الوقت لاجهز تجربة عن هذا وهذه تجربة جرب ورد active cell.xlsm

تفضل ترحيل (2).xlsm

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

جرب المرفق xxxxxxxx.xlsm

ربما تقصد هذا الشيء جديد قديم.xlsx

اعتدر عن تأخري في الرد لاسباب عملي جرب المرفق ترحيل.xlsm

جرب المرفق ترحيل.xlsm

ريما تقصد هذا الشيء fon.xlsx

تفضل اضافة البيانات مباشرة بعد الحقل الفارغ من الرقم القومي مع الحفاظ على التسلسل.xlsm

تفضل click.xlsm

هذه تجربة click.xlsm

السلام عليكم اخي الكريم لم اغير شيء في الكود لاني وجدت ان التعديل الملون بالبني في صورتك هو نفس ما يقوم به الكود انظر الصورتين لما طلبت منك رفع صورتين يعني تشرح فيهم ما تريد بعد تنفيذ الكود ( كيف تظهر البيانات بعد اضافتها في الرو باخر خلية فارغة في العمود B) الصورة بعد اصافة البيانات الملونة بالاخضر الكود يضيف صف فارغ ويصدر اليه البيانات المعبأة في التكستات

ارفع صورتين الاولى قبل تغير شيء والثانية بعد الاضافة مع تلوين البيانت الجديدة بلون اخر

جرب المرفق اضافة البيانات مباشرة بعد الحقل الفارغ من الرقم القومي مع الحفاظ على التسلسل.xlsm

ربما تقصد ما في هذا المرفق طباعة.xlsm

هذه محاولة

جرب المرفق فاتورة بيع اجل.xlsm