Snasui Excel Forum

bank9597 wrote:

Anusornz wrote:

bank9597 wrote: หากใช้ vba ต้องเขียนมาเองก่อนตามกฏครับ

หรือลองศึกษาจากไฟล์ตัวอย่างครับ

ผมลองใส่สูตรดูตามไฟล์แนบครับ ผมทำเป็นเฉพาะ Run Macro แต่ VBA นั้นยังจำไม่ค่อยได้มักจะใส่ผิดเสมอเพราะเพิ่งศึกษาต้องขออภัยด้วยครับ ลองดูไฟล์แนบให้ด้วยนะครับว่าพอจะช่วยได้หรือไม่ตามที่บอกไปตอนตั้งกระทู้ รบกวนด้วยนะครับ ขอบคุณครับ

ลองใช้โค๊ดนี้ดูครับ

Code: Select all

Sub record()

    Dim wsFrm As Worksheet
    Dim wsData As Worksheet
    Dim rTarget As Integer
    
    
    Set wsFrm = Worksheets("PM(Mid)")
    Set wsData = Worksheets("Data")
    
    With Application
        rTarget = .Match(wsFrm.Range("T4"), wsData.Range("B2:B2000"), 0) + 1
    End With
        
        wsFrm.Range("AA4:AJ4").Copy
        wsData.Range("U" & rTarget).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Set wsFrm = Nothing
        Set wsData = Nothing

End Sub

Anusornz wrote:

bank9597 wrote: หากใช้ vba ต้องเขียนมาเองก่อนตามกฏครับ

หรือลองศึกษาจากไฟล์ตัวอย่างครับ

ผมลองใส่สูตรดูตามไฟล์แนบครับ ผมทำเป็นเฉพาะ Run Macro แต่ VBA นั้นยังจำไม่ค่อยได้มักจะใส่ผิดเสมอเพราะเพิ่งศึกษาต้องขออภัยด้วยครับ ลองดูไฟล์แนบให้ด้วยนะครับว่าพอจะช่วยได้หรือไม่ตามที่บอกไปตอนตั้งกระทู้ รบกวนด้วยนะครับ ขอบคุณครับ

Sub record()

    Dim wsFrm As Worksheet
    Dim wsData As Worksheet
    Dim rTarget As Integer
    
    
    Set wsFrm = Worksheets("PM(Mid)")
    Set wsData = Worksheets("Data")
    
    With Application
        rTarget = .Match(wsFrm.Range("T4"), wsData.Range("B2:B2000"), 0) + 1
    End With
        
        wsFrm.Range("AA4:AJ4").Copy
        wsData.Range("U" & rTarget).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Set wsFrm = Nothing
        Set wsData = Nothing

End Sub

bank9597 wrote: หากใช้ vba ต้องเขียนมาเองก่อนตามกฏครับ

หรือลองศึกษาจากไฟล์ตัวอย่างครับ