sabah2022 قام بنشر مارس 9, 2023 مشاركة قام بنشر مارس 9, 2023 (معدل) السلام عليكم ورحمة الله وبركاته محتاج كود فعند الضغط على زر طباعة تتم الطباعة وترحيل بيانات الوصل الى شيت اخر وبذلك اجمع المبالغ والتفاصيل في الشيت وكما موجود في المبلف المرفق جزاكم الله خير وصل استلام مبلغ - الكلية.xlsm تم تعديل مارس 9, 2023 بواسطه sabah2022 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر مارس 9, 2023 أفضل إجابة مشاركة قام بنشر مارس 9, 2023 السلام عليكم و رحمة الله استخدم هذا الكود 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 3 رابط هذا التعليق شارك More sharing options...
sabah2022 قام بنشر مارس 10, 2023 الكاتب مشاركة قام بنشر مارس 10, 2023 جزاك الله عنا خيرا وادخلتك في رحمته تسلم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.