ช่วยแก้ไข code VBให้ด้วยครับ codeหาค่าว่างจากColumnsเป็นRows

[g.piyanat]

Code: Select all

Sheets("abc").Select
    Range("D3:Q3").Select
    Selection.Copy
    Sheets("dfg").Select
    Cells(1, Cells(2, Columns.Count).End(xlToLeft).Column + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

จากCodeเก่า ถ้ารัน จะก็อปปี้ข้อมูลที่เลือกไว้จาก Sheets abcไป Sheets dfg โดยจะวางข้อมูลที่ก็อปปี้ไว้ไปวางไว้ตรงตำแหน่งที่ว่างทางขวามือต่อไปเรื่อยๆครับ
สิ่งที่อยากได้คือ ผมอยากจะให้ก็อปปี้ข้อมูลจากวางทางขวาให้วางลงมาเรื่อยๆแทนครับ
ขอบคุณครับ

[snasui]

กรุณาแนบไฟล์ Excel ที่เขียน Code นี้เอาไว้แล้วมาด้วยจะได้สะดวกต่อการตอบปัญหาของเพื่อนสมาชิกครับ

นอกจากนี้ การโพสต์ Code VBA ให้ดูตัวอย่างการโพสต์ได้จากกฎการใช้บอร์ดข้อ 5 ด้านบน เพื่อที่จะแยกได้ว่าอันไหนเป็นข้อความ Code อันไหนเป็นข้อความทั่วไป จะได้สะดวกในการอ่านและการคัดลอกไปทดสอบครับ

[g.piyanat]

แก้ไขแล้วครับ ขอโทษที่ไม่อ่านระเบียบให้ดีครับ

[snasui]

แนบไฟล์ที่มีนามสกุลเป็น .xlsm ซึ่งได้เขียน Code เอาไว้แล้ว สำหรับไฟล์ .xlsx จะไม่สามารถแนบ Code ได้ ลองแนบไฟล์มาใหม่อีกครั้งครับ

[g.piyanat]

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

[snasui]

กรณีมีข้อมูลอยู่ให้เปลี่ยนเป็นข้อมูลตัวอย่าง ไม่จำเป็นต้องนำไฟล์จริงแนบมาครับ

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

[g.piyanat]

ไม่ค่อยมีความรู้เรื่องcode VB ครับ แต่จะลองพยายามครับ ขอบพระคุณมากครับ

[snasui]

ตัวอย่างการวางลงด้านล่างครับ

Code: Select all

Sheets("abc").Range("D3:Q3").Copy _
    Sheets("dfg").Range("a" & Rows.Count).End(xlUp).Offset(1, 0)

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

[g.piyanat]

ขอบพระคุณมากๆเลยครับ ทดลองแล้วไม่ติดปัญหาครับ ขออภัยเรื่องแนบไฟล์และหัวข้อโพสให้เป็นข้อมูลศึกษาสำหรับประโยชน์ของผู้เรียนรู้นะครับ