Snasui Excel Forum

liveday wrote:1.Code VBA ผมจะบันทึก 10 บรรทัดเเต่ Codeบันทึกใด้เเค่ 2 บรรทัดครับ ต้องเเก้ส่วนไหนเพิ่มเติมครับ

Sub PasteData()
Dim rs As Range
Dim rt As Range
With Worksheets("Template")
    Set rs = .Range("A2", .Range("J" & .Range("K1")))
End With
    Set rt = Worksheets("Database").Range("B65536").End(xlUp).Offset(1, -1)
    rs.Copy
    rt.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Finish."
End Sub

liveday wrote:2.จากรายการสินค้าที่ Database จะเเยกสินค้าออกมาเป็น 2 ที่ใด้หรือเปล่าครับ
3.ผมใด้ทำ COUNTIF ใว้เป็นการรวบรวมเพื่อจะส่งรายงานครับ เเต่ยัง Error อยู่

liveday wrote:1.สินค้าผมเเบ่งเป็น 2 ประเภท เป็นสินค้าทาง GP เเละ GS
ผมเลยต้องการเเยกสินค้าใน Database ออกมาโดยเเบ่งออกไปตาม สินค้าของ GP เเละ GS เพื่อต้องการคำนวนว่าในเเต่ละเดือน เเต่ละที่ว่าขายสินค้าเเต่ละอย่างไปเท่าไหร่
ส่วน Countif คีย์ใว้ที่ B3

liveday wrote:2.(ที่ชีท Template เซลล์ K1 เขียนสูตร =COUNTIF(J:J,"*?")) เกี่ยวโยงอะไรกับสูตร VBA หรือเปล่าครับ บางทีผมจะเอาโค้ดของอาจารย์ ไปทำเเบบฟอร์มตัวอื่นดูครับ ขอคำเเนะนำด้วยนะครับ

With Worksheets("Template")
    Set rs = .Range("A2", .Range("J" & .Range("K1")))
End With