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 شيك

وشكرا لتفاعلك ومجهودرك واعتذر لانني انشغلت قليلا

تجربه الطباعه.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

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

شكرا ادى المطلوب

تحيه طيبه

كيف ادرج ملاحظه في محرر الاكواد او بين سطور الكود

بدون التاثير عليه وظهور اخطاء عن التنفيذ ؟

مثلا

انا جربت الملف بالتعديل المذكر واشتغل