Snasui Excel Forum

Sub Button3_Click()
Dim customername As String
Dim customeraddress As String
Dim invoicenumber As Long
Dim r As Long



lastrow = Cells(Rows.Count, 1).End(xlUp).Row
r = 2
For r = 2 To lastrow

customername = Sheets(“CustomerDetails”).Cells(r, 3).Value
invoicenumber = Sheets(“CustomerDetails”).Cells(r, 2).Value
quantityin = Sheets(“CustomerDetails”).Cells(r, 4).Value
quantityout = Sheets(“CustomerDetails”).Cells(r, 5).Value
goldPrice = Sheets(“CustomerDetails”).Cells(r, 7).Value
buybackprice = Sheets(“CustomerDetails”).Cells(r, 8).Value
buybackgram = Sheets(“CustomerDetails”).Cells(r, 9).Value
Total = Sheets(“CustomerDetails”).Cells(r, 10).Value
discount = Sheets(“CustomerDetails”).Cells(r, 11).Value
different = Sheets(“CustomerDetails”).Cells(r, 12).Value
taxes = Sheets(“CustomerDetails”).Cells(r, 13).Value


Worksheets(“Invoice”).Range(“f3”).Value = invoicenumber
Worksheets(“Invoice”).Range(“B8”).Value = customername
Worksheets(“Invoice”).Range(“E14”).Value = quantityin
Worksheets(“Invoice”).Range(“C21”).Value = quantityout
Worksheets(“Invoice”).Range(“F8”).Value = goldPrice
Worksheets(“Invoice”).Range(“F10”).Value = buybackprice
Worksheets(“Invoice”).Range(“F12”).Value = buybackgram
Worksheets(“Invoice”).Range(“F21”).Value = Total
Worksheets(“Invoice”).Range(“F22”).Value = discount
Worksheets(“Invoice”).Range(“F23”).Value = different
Worksheets(“Invoice”).Range(“F24”).Value = taxes


ActiveWorkbook.PrintOut copies:=1


Next r

End Sub

ควรว่างโค้ดให้เป็นโค้ด ในเว็บนี้ และแนบไฟล์ตัวอย่างมาด้วย และติดตรงไหนแจ้งมาด้วยครับจะได้สะดวกต่อการตอบครับ

ลองเปลี่ยนเป็นตามข้างล่างดูครับ
lastrow = WorkSheets(“CustomerDetails”).Cells(Rows.Count, 1).End(xlUp).Row