أبو جاسم قام بنشر يوليو 1, 2021 مشاركة قام بنشر يوليو 1, 2021 هل أقدر اعمل معادله او امر طباعه هنا بحيث انه هو يجيب كل المراسي الموجودة في الورقة Renew Report في العمود B وبعدين يطبعهم واحده واحده في مكان الخانة الزرقاء نادي الخيران لليخوت.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسين مامون قام بنشر يوليو 1, 2021 أفضل إجابة مشاركة قام بنشر يوليو 1, 2021 تفضل الكود Option Explicit Sub PRINT_OUT() Dim ws As Worksheet Set ws = Sheets("Renew Report") Dim lr As Long Dim x Application.ScreenUpdating = False lr = ws.Cells(Rows.Count, 3).End(3).Row With Sheets("renew") For x = 2 To lr .Range("G8").Value = ws.Cells(x, "b") .Range("B4").Value = ws.Cells(x, "c") .Range("B8").Value = ws.Cells(x, "d") .Range("G12").Value = ws.Cells(x, "k") .Range("B14").Value = ws.Cells(x, "r") .Range("a1:h26").PrintOut If .Range("G8") = "" Then Exit For Next x End With Application.ScreenUpdating = True End Sub الملف Ù_ادÙ_ اÙ_Ø®Ù_راÙ_ Ù_Ù_Ù_Ø®Ù_ت.xlsm 2 رابط هذا التعليق شارك More sharing options...
أبو جاسم قام بنشر يوليو 1, 2021 الكاتب مشاركة قام بنشر يوليو 1, 2021 جزاك الله خير ما شاء اله الف شكر لحضرتك الله يبارك فيك اخي الكريم هل أقدر اعمل معادله او امر طباعه هنا بحيث انه هو يجيب كل المراسي الموجودة في الورقة Renew Report في العمود B وبعدين يطبعهم واحده واحده في مكان الخانة الزرقاء رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر يوليو 2, 2021 مشاركة قام بنشر يوليو 2, 2021 هذا ما يقوم به الكود بالظبط يعني عند الضغط على الزر يطبع مرس واحد ويمر لطباعة الاخرى وهكذا حتى النهاية رابط هذا التعليق شارك 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.