ขอช่วยเรื่องสูตรดึงข้อมูลตามเงื่อนไขค่ะ

[suka]

อาจารย์คะ รบกวนด้วยค่ะ

หากใช้ Code นี้อันเดี่ยวสามารถใช้ได้ค่ะ แต่ติดที่ไม่ได้สามารถใช้ร่วมกับ Code อื่นได้ค่ะ

ขอรบกวนอาจารย์ช่วยปรับอย่างไรคะ

Code: Select all

Sub SPasteDetail()
    Dim woShare As Workbook
    Dim formBook As Workbook
    Dim woShareOpen As Boolean
    Dim ra As Range
    Set formBook = ThisWorkbook
    Set woShare = Workbooks("Paid_BookShare.xlsx")
       Set ra = woShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
       With formBook.Sheets("TemBilling")
            .Range("AA2:BB2").Resize(.Range("BC1")).Copy
            woShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp) _
            .Offset(1, 0).PasteSpecial xlPasteValues
        End With
End Sub

[snasui]

ช่วยอธิบายคำว่าใช้ร่วมกับ Code อื่นมาให้เข้าใจ ยกตัวอย่างมาให้เห็นชัดเจนด้วยครับ

[suka]

อาจารย์คะ สามารถใช้ code ร่วมกันได้แล้วค่ะ โดยตัดโค๊ดส่วนที่เป็นปัญหาออกจากโค๊ดทั้งชุด BeenArPay มาแยกไว้ในชื่อ SPasteDetail แล้วเรียกใช้ตามด้านล่างนี้ค่ะ

ขอบคุณอาจารย์มากค่ะ

Code: Select all

Sub MainCode()
Call SPasteDetail
Call BeenArPay
End Sub