อยากให้ข้อมูลวิ่งตามชื่อมาใส่ในแต่ละ sheet และเปลี่ยนชื่อsheet ตาม cell B2

[snasui]

การ Debug เป็นการหาสาเหตุว่าผิดพลาดจาก Statement ใดครับ

การแก้ Code ได้จะต้องพบสาเหตุเสียก่อน วิธีการหาสาเหตุคือคลิกใน Code นั้นแล้วกดแป้น F8 ซ้ำ ๆ เพื่อให้ Run ไปทีละ Statement ในแต่ละครั้งที่ Run ไปนั้นให้สังเกตผลที่ได้ หากไม่ได้ตามที่เราตั้งใจไว้แสดงว่าเกิดความผิดพลาด ให้แจ้งบรรทัดนั้นมาตามที่ผมได้โพสต์ไปที่โพสต์ #17 ครับ

การเขียน Code ไม่ว่าจะด้วยการ Record Macro หรือเขียนเอง จำเป็นต้อง Debug ให้เป็นครับ

[March201711]

ปกติเวลา เลือก cell จะกด shift แล้วกด ลูกศรลงล่าง ถ้ามีหลายบรรทัดจะไม่เกิเปัญหาค่ะ แต่พอวันนี้มีแค่รายการเดียว เวลาลงshift ลง code จะบันทึกลงไปเจอข้อความสุดท้าย

Code: Select all

    Range("B4:E4").Select

    Range(Selection, Selection.End(xlDown)).Select

    

แต่พอวางวางที่ sheet foreign_a ไปทับข้อความอื่นที่้คยมีอยู่ ทำให้ข้อมูลหายหมดค่ะ

ตามไฟล์ที่แนบค่ะ

[snasui]

ตัวอย่างการใช้ If เข้ามาช่วยครับ

Code: Select all

'Other code
If Range("b5") <> "" Then
    Range("B4:E4").Select
    Range(Selection, Selection.End(xlDown)).Select
Else
    Range("B4:E4").Select
End If
Selection.Copy
'Other code

[March201711]

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