sam_farh قام بنشر ديسمبر 26, 2020 مشاركة قام بنشر ديسمبر 26, 2020 السلام عليكم هل يوجد كود لترحيل البيانات من ملف لملف اخر ولا لازم معادلات هل يوجد كود لترحيل بيانات من صفحه في ملف اكسل الي صفحه في ملف اكسل ثاني مثلا لو عملت كشف حساب وعاوز ارحله لملف اخر لطباعته والاطلاع عليه في الملف الاخر حتي لا يتم الاطلاع علي باقي البيانات في الملف الاول بمعني اخر لما ادوس ترحيل يتفتحلي ملف اخر غير اللي انا شغال عليه مفهوش غير كشف الحساب اللي رحتله فقط مشاركة مكررة ... تــم بالفعل حذف المشاركة الأخرى , من فضلك لا تكرر نفس المشاركات والا ستحذف جميع المشاركات كشف حساب .xlsm رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر ديسمبر 28, 2020 مشاركة قام بنشر ديسمبر 28, 2020 اتفضل الملف لعله يفى بالغرض نسخة من كشف حساب .xlsm 4 رابط هذا التعليق شارك More sharing options...
sam_farh قام بنشر ديسمبر 28, 2020 الكاتب مشاركة قام بنشر ديسمبر 28, 2020 (معدل) استاذ وجيه شرف الدين شكرا علي متابعه حضرتك وتعبك معي ولكن يبدو ان طلبي لم يكن واضح انا عاوز ارحل من ملف اكسل لملف اكسل اخر مش منصفحه لاخري في نفس الملف بمعني اني لما ادوس طباعه في ملف كشف حساب يترحل الكشف لملف تاني وليكن اسمه تقارير تم تعديل ديسمبر 28, 2020 بواسطه sam_farh رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر ديسمبر 28, 2020 مشاركة قام بنشر ديسمبر 28, 2020 ما هي الصفحة التي تريد ترجيلها الى ملف اكسل احر او الى ملفpdf 1 رابط هذا التعليق شارك More sharing options...
sam_farh قام بنشر ديسمبر 28, 2020 الكاتب مشاركة قام بنشر ديسمبر 28, 2020 استاذي العزيز عبدالله الصاري اتمني ان يكون ملف اكسل فارغ رابط هذا التعليق شارك More sharing options...
ابو القاسم قام بنشر ديسمبر 28, 2020 مشاركة قام بنشر ديسمبر 28, 2020 Workbooks("ااسم الملف بالامتدات").Sheets("اسم الورقة") وكمل زي ما انته عايز 2 رابط هذا التعليق شارك More sharing options...
sam_farh قام بنشر ديسمبر 28, 2020 الكاتب مشاركة قام بنشر ديسمبر 28, 2020 استاذي الغالي ابو القاسم ممكن تطبيق الكود علي الملف حولت اطبقه فشلت للاسف وماذلت احاول وده اللي طبقته بس للاسف منفعش 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 هل هناك خطاء رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر ديسمبر 28, 2020 مشاركة قام بنشر ديسمبر 28, 2020 افتح المصننف1 واضغظ على زر استدعاء الملفان يجب ان يكونا في ملف واحد كشف حساب.xlsm المصنف1.xlsb 1 رابط هذا التعليق شارك More sharing options...
sam_farh قام بنشر ديسمبر 28, 2020 الكاتب مشاركة قام بنشر ديسمبر 28, 2020 صديقي الغالي عبدالله الصاري اولا اشكرك علي مجهودك العظيم ولكن كنت اتمني ان يتم الترحيل من كشف الحساب الي المصنف وليس العكس بمعني اخر بدل الاستدعاء يكون ترحيل 1 رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر ديسمبر 28, 2020 مشاركة قام بنشر ديسمبر 28, 2020 جرب الملف تحويل الى \pdf كشف حساب.xlsm 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله بشير عبدالله قام بنشر ديسمبر 28, 2020 أفضل إجابة مشاركة قام بنشر ديسمبر 28, 2020 طريقة اخرى كشف حساب1.xlsm 1 رابط هذا التعليق شارك More sharing options...
sam_farh قام بنشر ديسمبر 29, 2020 الكاتب مشاركة قام بنشر ديسمبر 29, 2020 استاذ عبدالله الصاري اشكرك علي تعب حضرتك معي ومتابعتك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان