محمد عبدالسلام

نعم

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

رائع

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

اخي الحبيب ممكن طريقة ربط الكود بي زر الخفاء

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

أخي الكريم طريقة لربط زر بي الكود جزاك الله خير مرة أخري

أخي الكريم لا أعرف طريقة مناسبة لشكرك وليس بوسعي شئ إلا قول جزاك الله عني كل الخير ولك مني دعوة بي الخير جزاك الله خير مرة أخري

ولكم جزيل الشكر بارك الله فيك وفي جهودك وجزاك الله خيرا

السلام عليكم ورحمة الله وبركاته يوجد في الملف كود اخفاء واظهارصفوف الفارغة نرجو من حضراتكم عمل زر واحد اي بالضغط مرة اخفاء واخري اظهار زر واحد اخفاء واظهار.zip

اتمنى لكم التوفيق

وعليكم السلام ورحمة الله وبركاته حياك الله يا اخي الحبيب وبارك الله فيك على هذا الجهود وجزاكم الله خير الجزاء وجعله في ميزان حسناتك استفسار هل يمكن طباعة جميع الورقة متل صورة في المرفيق المجموع الفاتورة في نهاية الورقة حتى ولوكان في الورقة 5 اسطر فيها بيانات لاحظ الأمر عندما يتم تغير الفلترا من سطر.f8.الى .f32.تتيم الطباعة بهدا شكل في صورة هدا ما اتمنى هل من طريقة ليتم طباعة الورقة الأولى يتم طباعتها بشكل جيد اما باقي الورقة على عدد البيانات في صفحة اريد ان يتم طباعة جميع الورقة متل الورقة الأولى اتمنى لك التوفيق

السلام عليكم ورحمة الله وبركاته يوجد في الملف كود تصفية فلتر لخفاء الصفوف الفارغة توجد 4 صفحة لطباعة اريد طريقة لطباعة الأجمالي الفاتورة في نهاية كل ورقة صفحة 4 نسخة من 00.zip

مجهود مميز ورائع

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

السلام عليكم ورحمة الله وبركاته عبدالله الصاري بارك الله فيك اخي على مجهوداتك وعلى اهتمامك اريد تكرار في أعلى كل صفحة الطباعة وفي اسفل كل صفحة

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

الله

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

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

السلام عليكم ورحمة الله وبركاته بالضبط هو المطلوب أخي الكريم جزاك الله خيرا كنت ابحث في المنتدى فوجدت هذا الكود من الأخ حمادة باشا حاولت أن اظيفه ولكن لعدم المعرفة بأكواد الفي بي إيه لم استطع تعديله لو تتكرم علي بأن تبين لي الطريقة اريد اضافة في الملف هدا الكود لتكبير الخط عند الطباعة Sub MyPrint() Application.ScreenUpdating = False With ActiveSheet.PageSetup CurrentZoom = .Zoom .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With With Sheets("جدول دفع الإستشارة (3)") With .UsedRange For i = 1 To .Rows.Count If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True End If Next i End With .PrintOut .Rows.Hidden = False End With With ActiveSheet.PageSetup .Zoom = CurrentZoom End With Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام في الملف المرفق عند الطباعة تخرج الخطوط صغيرة جدا فما هو الحل invoice2.zip

تم

السلام عليكم ورحمة الله وبركاته المرجو تعديل الكود في الملف المرفق باستخراج القيمه الخاصه بكل صنف invoice3.zip

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