Snasui Excel Forum

ขอโทษทีค่ะ ไม่ได้แนบไฟล์

ต้องการให้ดูค่าในช่อง N65-Q65 ถ้ามีค่าแล้วในช่อง R65 ว่างให้ขึ้น Msgbox
และถ้ามีค่าในช่อง N66-Q66 ถ้ามีค่าแล้วในช่อง R66 ว่างให้ขึ้น Msgbox

เขียนโค้ดออกมาแล้วแต่ติดปัญหาตรงที่ว่า พอช่อง R65 ไม่ว่าง โค้ดในช่อง N66-Q66 มันไม่ทำงานไปเลยเพราะสั่งให้มัน Exit Sub ต้องใช้ Code ไหนเข้ามาช่วยคะ ...

ทำเป็นแต่ง่ายๆ ยากๆ ทำไม่เป็นนะ
ปกติเค้าจะทำแบบนี้อ่ะ เมื่อเรา Filter เฉพาะที่ต้องการได้แล้ว มาที่ช่อง C แล้วกด = ช่อง B ข้างๆ
มันจะได้เป็น =B4 เสร็จแล้วก็ Copy ใช้ Ctrl+c คลุมช่องที่เหลือวาง Ctrl+v
เมื่อเสร็จแล้วแล้วค่อยปลด Filter เลือกคอลัมน์ C copy วาง value

ทำยากๆ ไม่เป็นนะ ทำเป็นแต่ง่ายๆ
Insert ช่องด้านหน้ามา 3 ช่อง
ช่องแรกเป็นสูตร =B2&D2&C2
ช่องสองเป็น =
ช่องสามเป็น *$F$10
ลากสูตรลงมา อย่าลืมว่าช่อง *$F$10 ต้องไม่รันเลขตาม
Copy paste value ในคอลัมน์ A
แล้วค่อยใช้ Find&select เพื่อทำการ Replace ตัวเครื่องหมาย = มันจะออกมาค่า
ไม่เข้าใจลองดูในรูปนะ อธ ...

ได้แล้วขอบคุณมากนะคะ

ลองทำ Code ดูแล้วแต่ยังติดปัญหาตรงที่ไม่สามารถแก้ไขชื่อไฟล์ให้เป็นแบบเดียวกับตอนเลือก Folder ค่ะ

โค้ดจะเป็นการกดปุ่ม 2 ปุ่ม
- ปุ่มแรก Sub Test() ให้ทำการเลือก Folder ที่อยู่ไฟล์ทั้งหมด
- ปุ่มสอง addsheet_Link_BR() จะเป็นการทำการเพิ่ม copy sheet แล้วดึงข้อมูลจากไฟล์ที่เราเลือกที่อยู่ นำมาใส่ไฟล์ ปิด ...