كود طبع وترحيل في آن واحد

[sabah2022]

السلام عليكم ورحمة الله وبركاته

محتاج كود

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

وكما موجود في المبلف المرفق

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

 

وصل استلام مبلغ - الكلية.xlsm

تم تعديل مارس 9, 2023 بواسطه sabah2022

[ابراهيم الحداد]

السلام عليكم و رحمة الله

استخدم هذا الكود

Sub TranData()
Dim ws As Worksheet, Sh As Worksheet
Dim LR As Long, i As Integer, Arr
Set ws = Sheets("استلام مبلغ")
Set Sh = Sheets("جمع المبالغ")
ActiveWindow.SelectedSheets.PrintOut from:=1, to:=1, copies:=1
LR = Sh.Range("C" & Rows.Count).End(3).Row
Arr = Array("B7", "B6", "E4", "D6", "A8")
For i = LBound(Arr) To UBound(Arr)
Sh.Range("B" & LR + 1).Offset(0, i) = ws.Range(Arr(i))
Next
End Sub

 

[sabah2022]

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

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

تسلم