Snasui Excel Forum

:D อ่านแล้วไม่เข้าใจครับ

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

สอบถามเพิ่มเติมครับอาจารย์ ผมได้ทำมาโครเพิ่มอีก 2ตัวครับ ซึ่งพอรันข้อมูลมันทับกันเองครับ มันทับที่ K14 K15 K16 ทุกไฟล์เลยครับ
พอมีทางแก้ไหมครับ ไฟล์แต่ละไฟล์นั้นผมอ้างอิงจาก sheet ชื่อ KCE_Data
B4 C4 D4 ไปยัง K14 K15 K16 File 1
B5 C5 K5 ไปยัง K14 K15 K16 File 2
B6 C6 K6 ไปยัง K14 K15 K16 File 3
ตามไฟล์ที่อ้างอิง ผมได้ทำตัวมาโครเพิ่มมาครับ แก้ไขข้อมูลแล้ว แต่ไม่รู้ว่าทำไมถึงทับกัน อาจารย์พอจะแนะนำได้ไหมครับ
[attachment=0]KCEsystem.xlsm[/attachment]

ใช้งานได้แล้วครับ ขอบพระคุณมากๆครับอาจารย์

If Worksheets("KCE_Data").Range("A" & i).Value = "" Then
    Exit For
Else
    Range("B4:C4:D4").Select
    Selection.Copy
    FileKPI = Worksheets("KCE_Data").Range("A" & i).Value
    Set kceFile = Workbooks.Open(FileKPI)
    Range("K14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
    kceFile.Save
    kceFile.Close
End If

:D ตัวอย่างการวางแบบสลับแกนครับ

[code]If Worksheets("KCE_Data").Range("A" & i).Value = "" Then
Exit For
Else
Range("B4:C4:D4").Select
Selection.Copy
FileKPI = Worksheets("KCE_Data").Range("A" & i).Value
Set kceFile = Workbooks.Open(FileKPI)
Range("K14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
kceFile.Save
kceFile.Close
End If
[/code]

สวัสดีครับ ผมพึ่งหัด vba ครับ
แนบไฟล์ให้คืองานที่ผมต้องทำมาโคร เพื่อ copy ข้อมูลไปยัง ไฟล์พนักงานอื่นๆครับ
ปัญหาที่พบคือ เวลากดปุ่มเพื่อ copy ข้อมูลในช่อง B4 C4 D4 แนวนอนแล้ว ต้องใช้โคดอะไรในการทำให้เป็นแนวตั้งในช่อง K14 K15 K16 ตามลำดับครับ
ที่ผมเขียนโคดมา ทำจนเกือบเสร็จแล้ว ติดปัญหาแค่เปลี่ยนจากแนวนอน เป็นแนวตั้งครับผม

ตามไฟล์ที่ผมแนบให้ไปนั้น มีโคดที่ผมเขียนอยู่ใน sheet ชื่อ Jan นะครับ
ขอบคุณครับ
[attachment=0]KCEsystem.xlsm[/attachment]