كود ترحيل من ملف لملف اخر

[sam_farh]

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

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

مشاركة مكررة ... تــم بالفعل حذف المشاركة الأخرى , من فضلك لا تكرر نفس المشاركات والا ستحذف جميع المشاركات

كشف حساب .xlsm

[وجيه شرف الدين]

اتفضل الملف لعله يفى بالغرض

نسخة من كشف حساب .xlsm

[sam_farh]

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

 

تم تعديل ديسمبر 28, 2020 بواسطه sam_farh

[عبدالله الصاري]

ما هي الصفحة التي تريد ترجيلها  الى ملف اكسل احر او الى ملفpdf 

[sam_farh]

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

[ابو القاسم]

Workbooks("ااسم الملف بالامتدات").Sheets("اسم الورقة")

وكمل زي ما انته عايز

[sam_farh]

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

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

هل هناك خطاء

 

 

[عبدالله الصاري]

افتح المصننف1 واضغظ على زر استدعاء 

الملفان يجب ان يكونا في ملف واحد

كشف حساب.xlsm

المصنف1.xlsb

[sam_farh]

صديقي الغالي عبدالله الصاري

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

 

[عبدالله الصاري]

جرب الملف تحويل الى \pdf

كشف حساب.xlsm

[عبدالله الصاري]

طريقة اخرى

كشف حساب1.xlsm

[sam_farh]

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