vba ที่ใช้เขียน vlookup ติดตรงที่โค้ดไม่เอาข้อมูลมาค้นหาครับ

[tulkavin]

สอบถามหน่อยครับ

vba ที่ใช้เขียน vlookup ไล่ขั้นตอนยังไงร่อครับ
คือตอนนี้มาจนถึง vlookup ไปที่อีกไฟล์ ในแฟ้มเดียวกัน แต่มี2-3 worksheet
แล้ว vba ไม่รับค่าจากช่อง K10 มาเพื่อ lookup ข้อมูล

ไม่ทราบติดส่วนไหน รบกวนอาจารย์หน่อยครับ

ขอบคุณครับ

[snasui]

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

Code: Select all

'Other code
On Error Resume Next
With tb.Sheets("AllDream")
    .Cells(8, "d") = Application.WorksheetFunction.VLookup(.Cells(10, "k"), myrange, 3, False)
End With
'Other code

[tulkavin]

ขอบคุณครับ อาจารย์ แต่ว่าผลลัพธ์ยังไม่ออกมาน่ะครับ ช่อง C8 ยังไม่แสดงผลลัพธ์ที่ไป vlookup จากอีกไฟล์เลย

Dim path As String
path = Application.ActiveWorkbook.path <------เก็บพาทของไฟล์
Dim FileOpen As String
FileOpen = "1Bill_ProductIn_Customer.xlsx" <------เตรียมชื่อไฟล์

Dim myrange As Range, tb As Workbook
Set tb = ThisWorkbook
Set wb = Workbooks
Workbooks.Open path & "\" & FileOpen <------สั่งเปิดไฟล์
Sheets("Cus_Name").Activate <------สั่งชีทที่ต้องการไป lookup ให้ activate
Set myrange = ActiveSheet.Range("a:n") <------กำหนดส่วนที่จะ lookup
On Error Resume Next
With tb.Sheets("AllDream") <------กลับมาที่ไฟล์แรกและให้ชีทที่ต้องการทำงาน
Cells(d, 8) = Application.WorksheetFunction.VLookup(Cells(k, 10), myrange, 3, False) <------สั่ง Vlookup แต่ผลลัพธ์ไม่มาครับ
End With
wb.Close False

[snasui]

Cells(d, 8) = Application.WorksheetFunction.VLookup(Cells(k, 10), myrange, 3, False)

บรรทัดนี้ยังไม่ได้แก้ให้เป็นตามที่ผมแจ้งไป กรุณาสังเกตให้ครบทุกอักขระว่าผมคีย์ไว้อย่างไร ควรคัดลอกไปวางแทนคีย์เองจะได้ไม่พลาดครับ

[tulkavin]

มาละครับ ขอบคุณครับ
ผมดันแก้ไขเฉพาะส่วนในวงเล็บเอง

ควรจะ copy มาเลยใช่มั้ยครับ ขอโทษด้วยครับหากผิดกฏ

[snasui]

ไม่ได้มีกฎว่าต้อง Copy ไปใช้แทนการคีย์เข้าไปใหม่ แต่เพื่อลดความผิดพลาดและประหยัดเวลา สามารถ Copy ส่วนที่ได้รับคำตอบไปใช้ได้เลยครับ

กฎมีแค่ 6 ข้อตามด้านบน