Copy จากแนวตั้ง เมื่อ Past ปรับเป็นแนวนอน ข้อมูลมาไม่ครบ

[voravit]

ผม รบกวน สอบถาม อาจารย์ ครับ คือ
ผมทำ แบบ กรอกข้อมูล โดยให้ ตารางกรอก เป็นแนวตั้ง แล้วส่งข้อมูลไป แล้ว เลือก tanspose เพื่อให้ตารางเป็นแบบแนวนอน พบปัญหาอยู่ 2 ส่วน ครับ
1. ข้อมูลบางส่วนขาดหายไป ในที่นี้ส่วนที่หายไปคือ ก.พ. 57
2. คอลัมน์ ที่เป็นระหัส ยังคงเป็น รูปแบบ drop downlist ซึ่งไม่ต้องการให้เป็น
รบกวน อาจารย์ด้วยครับว่าจะต้อง past อย่างไรครับ หรือว่า อาจารยืจะแนะนำวิธีการทำแบบกรอกที่ดีกว่านี้ก็ยินดีเป็นอย่างมากครับ
ขอบคุณครับ

[snasui]

ช่วยชี้ให้เห็นว่าที่ขาดไปนั้น สังเกตได้อย่างไรว่าขาดไปครับ

สำหรับตัวอย่างการปรับ Code คือด้านล่างครับ

Code: Select all

Sub AddTRpayRec()
'
' AddTRpayRec Macro
'
' Keyboard Shortcut: Ctrl+Shift+Y
'
    Application.Goto Reference:="Mpayrec"
    Selection.Copy
    Application.Goto Reference:="ulTRpayrec"
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Selection.PasteSpecial Paste:=xlPasteFormats, Transpose:=True
    Application.CutCopyMode = False
    ActiveCell.Offset(7, 1).Range("A1").Select
    Sheets("Mpayrec").Select
    Range("C4,C7,C8,C9").Select
    Range("C9").Activate
    Selection.ClearContents
    Range("C4").Select
End Sub

[voravit]

ขอบคุณ อาจารย์ เป็นอย่างสูงครับ
ผมแนบบไฟล์ที่แสดงส่วนที่หายไป ครับ

[voravit]

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