VBA การดึงข้อมูลจากไฟล์ที่มีคอลัมภ์ต่างกัน

[Jirawat namrach]

รบกวนสอบถามครับ พอดีมีไฟล์อยู่ 2 อย่างที่มีข้อมูล Code, Name, Qty แต่อยู่คนละคอลัมภ์ โดยทั้ง 2 ไฟล์ต่างกันที่ชื่อ ไฟล์หนึ่งมีแต่ตัวเลข อีกไฟล์หนึ่งมีคำว่า TSS นำหน้า หากใส่ข้อมูลตามชื่อไฟล์ใน B1 แล้วมีคำว่า TSS.... ให้ดึงจากคอลัมภ์ C,D,N แต่ถ้าใน B1 ไม่มีคำว่า TSS ให้ดึงจาก คอลัมภ์ D,E,Q ต้องแก้ Code แบบไหนครับ

[snasui]

ปัจจุบันติดปัญหาที่บรรทัดใดครับ

ลักษณะ Code เป็นการดึงข้อมูลจากกไฟล์อื่น ดังนั้นควรแนบไฟล์ต้นทางของข้อมูลมาด้วยจะได้สะดวกในการตอบของเพื่อนสมาชิกครับ

[Jirawat namrach]

ลักษณะงานคือเปิดไฟล์ไว้ แล้วเลือก Sheet ที่จะดึงข้อมูลเข้ามา
ตอนนี้ผมใช้การใส่เลข 1 หรือ ลบเลข 1 ออกจาก Cell C1 เพื่อเลือกการดึงจาก Column ที่ต่างกัน เนื่องจากต้องการดึง Code,Name,Qty จากในไฟล์ ซึ่งไฟล์ทั้ง 2 ชนิด (มีคำว่า TSS นำหน้า และไม่มีคำว่า TSS) รายการที่ต้องการดึงอยู่ต่าง Column กัน หากจะไม่ต้องใส่เลข 1 เป็นเงื่อนไขในการดึงข้อมูล ต้องปรับแก้ Code ยังไงครับ รบกวนด้วยครับ

Code: Select all

If .Range("c1") = 1 Then

[puriwutpokin]

ใส่เป็นชื่อไฟล์ตรงๆ ไปเลยได้มั้ยครับ ถ้ามีแค่2ไฟล์ครับ

[Jirawat namrach]

มีไฟล์เยอะครับ เวลาจะไช้ต้องคอยมาลบเลข ก็ไม่เข้าใจว่าเขาทำไมทำต่างคอลัมน์กัน ทั้งที่ข้อมูลภายในเหมือนกัน

[puriwutpokin]

ทำแบบใช้เงื่อนไข ถ้าไฟล์ที่จะดึงมา มีชื่อ TSS.... ให้ทำแบบหนึ่ง ถ้าไม่มี ให้ทำอีกแบบ โดยดูจากชื่อไฟล์ ก็น่าจะได้นะครับ

[Jirawat namrach]

ขอบคุณครับ ตอนนี้แก้ไขปัญหาได้แล้วครับตาม Code นี้เลยครับ

Code: Select all

If InStr(.Range("B1"), LCase("T")) < 1 Then