VBA Copyอ้างอิง ชื่อใน Cell =ชื่อSheetเหมือนกัน ให้ copyข้อมูล ในช่วงไปวางที่sheetนั้น

[lotto009]

เรียนอาจาร์ยครับ
ขอความช่วยเหลือในการ เขียน code VBA หน่อยครับ
กำหนดให้
-ชื่อใน Worksheets(INPUT).Cell("I2") Referee Name = มีชื่อเหมือนกับชื่อ sheet ที่เหมือนกัน
-ให้ทำการcopyข้อมูล ในช่วงไปวางที่sheetนั้น
และ
-หากเปลี่ยนชื่อใน Worksheets(INPUT).Cell("I2") Referee Name = มีชื่อเหมือนกับชื่อ sheetที่เหมือนกัน
-ให้ทำการcopyข้อมูล ในช่วงไปวางที่sheetนั้น
เนือ่งจาก Referee Name มีหลายชื่อจึงต้องมีหลาย sheetที่ตั้งชื่อเพื่อให้เหมือน Referee Nameครับ
ด้วยเนื้องานข้อมุลผมจะเปลียนบ่อยมากและมีปริมาณที่มากครับ
ผมบันทึก Macro ไว้ด้วยนะครับตามไฟล์แนบ
ขอบพระคุณครับ
อาร์ต

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

'Other code
Dim tg As Range
With Worksheets("INPUT")
    Set tg = .Parent.Worksheets(.Range("i2").Value).Range("a2")
    tg.CurrentRegion.Offset(1, 0).Clear
    .Range("j3", .Range("k" & .Rows.Count).End(xlUp)).Copy tg
End With
'Other code

[lotto009]

ขออธิบาย code ด้วยได้ใหมครับ
ปกติ copy ข้ามsheet ธรรมดาผมก้อพอทำได้แต่หากจะ อ้างอิง จากชื่อช่องcell ใดcellหนึ่ง มันยากสำหรับผมนะครับ
ขอบพระคุณมากครับ
อาร์ต

[snasui]

ก่อนอื่นต้องทำความเข้าใจ With Statement เสียก่อนครับ ➡ With Statement

จาก Code ที่ผมเขียนไปมี 3 เรื่องสำคัญ ๆ คือ

1. ประกาศตัวแปรในส่วนที่เป็นเซลล์ปลายทาง คือ Dim tg As Range
2. กำหนดค่าให้ตัวแปรที่เป็นเซลล์ปลายทาง Set tg = .Parent.Worksheets(.Range("i2").Value).Range("a2") สำหรับ Worksheets(.Range("i2").Value) คือ Worksheet ที่มีชื่อตามเซลล์ I2
3. คัดลอกค่าต้นทางไปวางปลายทาง .Range("j3", .Range("k" & .Rows.Count).End(xlUp)).Copy tg โดยต้นทางคือ .Range("j3", .Range("k" & .Rows.Count).End(xlUp)) แปลว่าช่วงเซลล์ J3 จนถึง K สุดท้ายที่มีข้อมูล

ในส่วนที่เป็นรายละเอียดปลีกย่อยให้ลองศึกษาและถามเป็นกรณี ๆ ไปครับ

[lotto009]

ขอบพระคุณอาจารย์มากครับ
ดูแลสุขภาพครับ

[lotto009]

ผมไม่ต้องเปลี่ยนชื่อเองได้แล้วครับผมใช้
Sheets("Sheet1").Name = Worksheets("INPUT").Cells(2, 2).Value
ไว้หน้าก่อน เลย
ขอบพระคุณมากครับได้เรียนรู้จากอาจาร์ยเยอมากเลยช่วงนี้
อาร์ต