เปลี่ยน vlookup เป็น index, match

[battoza]

ขออนุญาตสอบถามผู้รู้ครับ

คือผมอยากเปลี่ยนcode ของ vlookup ไปใช้ index และ match ครับ

พอผมใส่สูตรของ index และ match แล้วโปรแกรมไม่ทำงานครับ

อันนี้ vlookup ทำงานได้ครับ

Private Sub cbbEditProdID_Change()
With Worksheets("DataProd")
tbEditProdName.Value = Application.VLookup(Me.cbbEditProdID, .Range("Product"), 2, False)
End With
End Sub

ผมลองใส่สูตรเป็น indexdกับ match แล้วทำงานไม่ได้ครับ

Private Sub cbbEditProdID_Change()
With Worksheets("DataProd")

tbEditProdName.Value = Application.Index(Product, Match(Me.cbbEditProdID, CusProd, 0), 2)


End With
End Sub


ขอความกรุณาผู้รู้ช่วยดู code ให้ผมด้วยนะครับ

ขอบคุณมากครับ

[snasui]

ช่วย Post Code ให้แสดงเป็น Code ตามกฎข้อ 5 ด้านบนครับ

[ploynattharat]

ผมแก้แล้วนะครับ

ขออนุญาตสอบถามผู้รู้ครับ

คือผมอยากเปลี่ยนcode ของ vlookup ไปใช้ index และ match ครับ

พอผมใส่สูตรของ index และ match แล้วโปรแกรมไม่ทำงานครับ

อันนี้ vlookup ทำงานได้ครับ

Code: Select all

Private Sub cbbEditProdID_Change()
With Worksheets("DataProd")
    tbEditProdName.Value = Application.VLookup(Me.cbbEditProdID, .Range("Product"), 2, False)
End With
End Sub

ผมลองใส่สูตรเป็น indexdกับ match แล้วทำงานไม่ได้ครับ

Code: Select all

Private Sub cbbEditProdID_Change()
With Worksheets("DataProd")
  
  tbEditProdName.Value = Application.Index(Product, Match(Me.cbbEditProdID, CusProd, 0), 2)
  
End With
End Sub

ขอความกรุณาผู้รู้ช่วยดู code ให้ผมด้วยนะครับ

ขอบคุณมากครับ

[snasui]

ควรใช้เพียง User เดียวในการถามตอบปัญหา ไม่ทราบว่าต้องการเก็บ User ใดไว้ครับ