การเขียน VBA Vlook up ข้าม WorkSheet มีปัญหา

[demeterrr]

ปัญหาคือ นี้คือ code ที่ผมเขียนแต่ข้อมูลไม่มา

Code: Select all

Cells(3, 2).Value = Application.WorksheetFunction.VLookup(Sheet1.Cells(2, 2), Windows("DATA (Autosaved).xlsm").Sheet1.Range("mat"), 3, 0) / 1000

ผมต้องการดึงข้อมูลข้ามไฟล์ โดย กดปุ่ม Chose ในไฟล์ vac st ver 3 ชีท calculate แล้วพอ กดเลือก OptionButton "น้ำหนักมาตรฐาน" ตรงนี้ ต้องการ vlookup เพื่อดึงข้อมูลที่ ไฟล์ DATA (Autosaved) ชีท MAT ตาราง MAt คอลัม 3 มาใส่ตรง ไฟล์ vac st ver 3 ชีท calculte เซลล์ b3 แต่เกิด error
รบกวนด้วยครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Private Sub OptionButton1_Click()
    With Workbooks("DATA (Autosaved).xlsm").Worksheets(1)
        If Application.CountIf(.Range("mat"), Cells(2, 2).Value) > 0 Then
            Cells(3, 2).Value = Application.WorksheetFunction.VLookup(Sheet1.Cells(2, 2), .Range("mat"), 3, 0) / 1000
        Else
            MsgBox "Data not found."
        End If
    End With
End Sub

[demeterrr]

ได้แล้วครับขอบคุณมากครับ