السلام عليكم يا اخواني الكرام
ارجوا معرفة الكود لطباعه الفاتورة المرفقه ( invoice)....بدون طباعه الاسطر الفارغه... المدي هو a4:f22
ثم ترحيل تلك الفاتورة بدون تلك الاسطر الفارغه ...الي الصفحه (sheet1).. الترحيل للمدى نفسه a4:f22
وذك في السطر الموضح بالصفحه (sheet1) من b2:m2
وان يكون حسب عدد الاصناف وكميتها( تذيد او تقل )...علي ان تكون خلية m2 (اجمالي الفاتورة ) في نهاية الصف.
وجزاكم الله كل خير
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
ارجوا معرفة الكود لطباعه الفاتورة المرفقه ( invoice)....بدون طباعه الاسطر الفارغه... المدي هو a4:f22
ثم ترحيل تلك الفاتورة بدون تلك الاسطر الفارغه ...الي الصفحه (sheet1).. الترحيل للمدى نفسه a4:f22
وذك في السطر الموضح بالصفحه (sheet1) من b2:m2
وان يكون حسب عدد الاصناف وكميتها( تذيد او تقل )...علي ان تكون خلية m2 (اجمالي الفاتورة ) في نهاية الصف.
وجزاكم الله كل خير
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
تم تحرير الموضوع بواسطة :خالد
بتاريخ:24-08-2017 06:12 مساء
بتاريخ:24-08-2017 06:12 مساء
أفضل إجابة مقدمة من
YasserKhalil
وهي:
وعليكم السلام أخي الكريم خالد
تفضل الكود التالي عله يفي بالغرض إن شاء الله
عرض الإجابة
تفضل الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
Dim ws As Worksheet
Dim sh As Worksheet
Dim i As Long
Dim lr As Long
Dim c As Long
Set ws = Sheets("invoice")
Set sh = Sheets("Sheet1")
Application.ScreenUpdating = False
ws.Rows("10:21").Hidden = False
For i = 20 To 10 Step -1
If ws.Cells(i, 2) = "" Then ws.Cells(i, 2).EntireRow.Hidden = True Else Exit For
Next i
'[PrintOut] قم باستبدال حدث معاينة الطباعة بحدث الطباعة
ws.PrintPreview
lr = sh.Cells(Rows.Count, 2).End(xlUp).Row + 1
sh.Range("B" & lr).Value = ws.Range("D5").Value
sh.Range("C" & lr).Value = ws.Range("D7").Value
sh.Range("D" & lr).Value = ws.Range("C8").Value
For i = 10 To 13
sh.Cells(lr, c + 5).Value = ws.Cells(i, 2).Value
sh.Cells(lr, c + 6).Value = ws.Cells(i, 4).Value
c = c + 2
Next i
sh.Range("M" & lr).Value = ws.Range("F21").Value
Application.ScreenUpdating = True
End Sub
أعجبني أعجبك هذاإلغ اعجابي 0