sam_farh

الملف فيه تفاصيل كثير ناقصه ومحتاج شرح للمطلوب اكثر تفصيل

بعتزرلك اخي محمد يوسف ابو يوسف يبدو ان الملف لم يقم بالحفظ test .xlsb

السلام عليكم كيف يتم اضافه صوره خلفيه للفورم بدل اللون test.xlsx

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

جزاك الله خيرا

السلام عليكم هل يوجد كود لمسح التنسيق من الخلايا الفارغه حتي يصبح كل جدول منفصل عن الاخر test.xlsx

m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 2 lionheart This code is correct

جزاك الله خيرا الف شكر

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

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

السلام عليكم ورحمه الله وبركاته اخواتي الاعزاء في الملف المرفق مرتبات الموظفين في صفحه بيانات المعادلات غير مرتبطه بالشهر واريد ان اربط المعادله بالشهر واريد كود ترحيل البيانات من صفحه بيانات الي صفحه الترحيل بدون نقل المعادلات الشهر اسفل الاخر هل هذا ممكن وجزاكم الله خيرا مقدما test.xlsb

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

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

استاذ عبدالله الصاري اشكرك علي تعب حضرتك معي ومتابعتك

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

استاذي الغالي ابو القاسم ممكن تطبيق الكود علي الملف حولت اطبقه فشلت للاسف وماذلت احاول وده اللي طبقته بس للاسف منفعش Private Sub CommandButton1_Click() Dim i% i = Me.ListBox1.ListCount Workbooks("C:\Users\HARD\Desktop\كشف حساب 12\ترحيل").Sheets("ورقة3").Sheets("ورقة3").Range("A1").Value = "تقرير حركات العميل : - " & " " & Me.com1 Workbooks("C:\Users\HARD\Desktop\كشف حساب 12\ترحيل").Sheets("ورقة3").Sheets("ورقة3").Range("A3:F1000").ClearContents With Workbooks("C:\Users\HARD\Desktop\كشف حساب 12\ترحيل").Sheets("ورقة3").Range("A3") If i = 0 Then GoTo 1 .Resize(i, 6).Value = Me.ListBox1.List End With Lr = Workbooks("C:\Users\HARD\Desktop\كشف حساب 12\ترحيل").Sheets("ورقة3").Range("E1000").End(xlUp).Row Workbooks("C:\Users\HARD\Desktop\كشف حساب 12\ترحيل").Sheets("ورقة3").Range("E" & Lr + 1).Value = Application.WorksheetFunction.Sum(Workbooks("C:\Users\HARD\Desktop\كشف حساب 12\ترحيل").Sheets("ورقة3").Range("E3:E" & Lr)) Workbooks("C:\Users\HARD\Desktop\كشف حساب 12\ترحيل").Sheets("ورقة3").Range("E" & Lr + 1).Offset(0, 1).Value = Application.WorksheetFunction.Sum(Workbooks("C:\Users\HARD\Desktop\كشف حساب 12\ترحيل").Sheets("ورقة3").Range("F3:F" & Lr)) Workbooks("C:\Users\HARD\Desktop\كشف حساب 12\ترحيل").Sheets("ورقة3").Range("E" & Lr + 1).Offset(0, -1).Value = Application.WorksheetFunction.Sum(Workbooks("C:\Users\HARD\Desktop\كشف حساب 12\ترحيل").Sheets("ورقة3").Range("E3:E" & Lr)) - Application.WorksheetFunction.Sum(Workbooks("C:\Users\HARD\Desktop\كشف حساب 12\ترحيل").Sheets("ورقة3").Range("F3:F" & Lr)) Workbooks("C:\Users\HARD\Desktop\كشف حساب 12\ترحيل").Sheets("ورقة3").Range("E" & Lr + 1).Offset(0, -2).Value = "الرصيد" Workbooks("C:\Users\HARD\Desktop\كشف حساب 12\ترحيل").Sheets("ورقة3").Select ActiveSheet.PageSetup.PrintArea = "A1:F" & Lr + 2 Unload Me ActiveWindow.SelectedSheets.PrintPreview a = MsgBox("هل ترغب في طباعة التقرير", vbYesNo + vbQuestion, "طباعة") If a = vbYes Then With ActiveSheet .PrintOut End With End If Range("A3").Activate 1 Unload Me ورقة1.Select هل هناك خطاء

استاذي العزيز عبدالله الصاري اتمني ان يكون ملف اكسل فارغ

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

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

اشكرك حضرتك قد حلت المشكله

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

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

استاذ / خالد الشاعر اشكر حضرتك ولكن هناك مشكله اخري ولكي يتم تجنبها يتم حزع الكود الاول فهل هذه الخطوه سليمه

السلام عليكم كنت منزل ملف من علي المجموعه بس لما بفتحه بيديني الرساله ديه Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal lngWinIdx As Long, ByVal dwNewLong As Long) As Long Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long ممكن الكود البديل برنامج صلاحيات المستخدمين اصدار 3.xlsm

ياريت لو حد يقدر يفدني في المشكله ديه انا عامل لملف اكسل صفحه رائيسيه للدخول علي باقي الصفحات مع اختيار headings من view بتختفي الايقونات ذي الصوره