moaaz2020

Option Explicit Sub PRINT1() Dim DT, dt2 Dim RG Dim x DT = Sheets("ST").Range("c3"): dt2 = DT RG = Sheets("ST").Range("e3") For x = 1 To RG Sheets("P.R.T").Range("b3") = dt2 Sheets("P.R.T").PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False dt2 = Format(DateAdd("m", 1, dt2), "yyyy-mm-dd") Next End Sub قمت بتعديل السطر الملون واشتغل تمام .. شكرا

بالنسبه لتغيير التاريخ فهو المطلوب .. لكن يقوم بطباعه شيك واحد بالتاريخ الاول وشيكين للتاريخ الثاني وثلاثه للتاريخ الثالث وهكذا ... اريد نسخه واحده فقط لكل تاريخ اعتقد ان الخطا مني فالمقصود بعدد النسخ المكتوبه في الخليه D3 هو عدد تسلسل التواريخ مثلا عند كتابه 2 يطبع شهرين وعند كتابه 12 يقوم بطباعه شيكات سنه كامله اي 12 شيك وشكرا لتفاعلك ومجهودرك واعتذر لانني انشغلت قليلا

اود اضافه زر طباعه للبانات في الشيت p.R.T يقوم بطباعه عدد النسخ المكتوب في الخليه E3 وتكون طباعه اول ورقه بالتاريخ المكتوب في الخليه C3 والنسخه الثانيه بتغيير الشهر فقط مثلا النسخه الاولى 26-2-2021 والثانيه 26-3-2021 والثالثه 26-4-2021 الفكره هي طباعه شيكات الاقساط .. ويكون الفرق بين كل شيك وشيك شهر ...حاولت اسجل مايكرو لكني فشلت لانه ينخ نفس التواريخ المكتوبه عند التسجيل ... تحياتي تجربه الطباعه.xlsm

شكرا

شكرا .. اشتغل بصوره جيده وفهمت الفكره ... وبالنسبه لكود الانتقال لاول خليه فارغه ؟ شكرا ... اشتغل معاي بصوره جيده ... طيب بالنسبه لكود الاانتقال لاول خليه فارغه عند فكره ؟

تحيه طيبه في الملف المرفق ادناه اقوم بالبحث فيما بين 4 معطيات في شيت Dates.. لكن البحث في خانه نوع العمليه اصبح يعطي خطا في الكود ولم اعرف ماهو .. فالرجاء لمن يستطيع المساعده ان يسعفني وهل يمكن ان تظهر نتائج البحث من دون التاثير على تنسيق الجدول في شيت Dates وهناك طلب اخر وهو كود انتقال تلقائي لاخر خليه فارغه في صفحه data عند فتح الشيت .. تحياتي كشف حساب &خلل.xlsm

تجيه طيبه .. فعلا المطلوب هو البحث كما تفضلت وجزاك الله خيرا

وعليكم السلام ورحمه الله وبركاته بالنسبه للعنوان الرجاء توضيح الخطا فيه لكي اتجنبه مستقبلا اما بالنبه للطلب فقد قمت بعمل كود لفلتره البيانات بين تاريخين .. واود ان اضيف خيار لفلتره البيانات حسب المستفيد ايضا وذلك في الشيت Dates كما في الصوره المرفقه

السلام عليكم ورحمه الله وبركاته .. ارفق لكم ملف لتصميم كشف حركه البنك .. واود ان اضيف فلتر للبحث عن المستفيد لكنني لم اعرف الطريقه .. فهل يمكنكم مساعدتي وهل يمكن اضافه زر لطباعه النتائج ايضا N BANK.xlsm

نعم هذا هو المطلوب جزاك الله خير الثواب

هل يمكن ان يشمل البحث خيارات اخرى كاسم المستلم مثلا او المستلم + المشروع معا

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

السلام عليكم ورحمه الله وبركاته احاول عمل ملف لتنظيم صرفيات العمال في المشاريع ولكنني واجهت صعوبه في عمل بحث او فلتره للبيانات الموجودة في الملف Payments لخيار واحد او عدة خيارات مع بعض مثلا البحث وفق اسم المستلم او المشروع او المستلم والمشروع مع بعض كما هو موجود في الملف المرفق ولاحظت ان الملف ثقيل مع انه لايحتوي على داتا كثيره ولا يوجد فيه اي ماكرو واي شخص لديه اضافه يمكن ان يساعدني بها في الملف فليتفضل تحياتي حسابات المشاريع.xlsx

استخدم اوفيس 2019 64بت

لايظهر معي شي بعد فتح الملف كما في الصوره

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

يبدو ان المشكله من الكودات بداخل الملف لانني لم استطيع الدخول اللى document inspector سارفع لك الكلف هل يمكن ان تتاكد لي ان كانت من الكودات ام لا اليوزر شيكات .... كلمه المرور 12345 باسورد محرر الاكواد 2020 وشكرا شيكات.xlsm

تحيه طيبه ما معنى هذه الرسالة وكيف اتخلص منها ؟

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

ها هو الملف وعذرا للتاخير تعديل باللست.xlsm

مجهود ممتاز أبدعت استاذ منير

تحيه طيبه الكود المرفق ادناه الترحيل يكون للشيت الثاني في الملف يسببه لا استطيع تغيير ترتيب الصفحات هل يمكن جعل الكود ياسم الشيت بدل الرقم حاولت لكن للاسف Dim EndRow As Long For I = 2 To 2 EndRow = Sheets(I).Range("B1").CurrentRegion.Rows.Count Sheets(I).Cells(EndRow + 1, 1).Value = Sheets(1).Cells(2, 5).Value Sheets(I).Cells(EndRow + 1, 2).Value = Sheets(1).Cells(2, 3).Value Sheets(I).Cells(EndRow + 1, 3).Value = Sheets(1).Cells(4, 3).Value Sheets(I).Cells(EndRow + 1, 4).Value = Sheets(1).Cells(6, 3).Value Sheets(I).Cells(EndRow + 1, 7).Value = Sheets(1).Cells(8, 3).Value Sheets(I).Cells(EndRow + 1, 5).Value = Sheets(1).Cells(7, 8).Value Sheets(I).Cells(EndRow + 1, 6).Value = Sheets(1).Cells(10, 3).Value Next I End Sub

شكرا جزيلا جربت حل الرائد و نجح شكرا ادى المطلوب

تحيه طيبه كيف ادرج ملاحظه في محرر الاكواد او بين سطور الكود بدون التاثير عليه وظهور اخطاء عن التنفيذ ؟ مثلا