Snasui Excel Forum

Sub Macro1()
Dim kceWB As Workbook
Dim i As Integer
Dim gFileKPI As String



For i = 2 To 50
If Worksheets("File_KPI").Range("A" & i).Value = "" Then
Exit For
Else
Range("K11:K16").Select
Selection.Copy
gFileKPI = Worksheets("File_KPI").Range("A" & i).Value
Set kceWB = Workbooks.Open ...

สอบถามเพิ่มเติมครับอาจารย์ ผมได้ทำมาโครเพิ่มอีก 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 ...

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

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