สอบถาม code vba ท่านอาจารย์ ผมอยาก copy sheet ไปเก็บอีก sheet ตามชื่อทีกำหนด

[sooksun2009]

สอบถามท่านอาจารย์ คือผมอยาก copy sheet record cell B7:AE7 ไปเก็บอีก sheet ตามชื่อที่กำหนดมใน Sheet Record cell B4

Code: Select all

Sub Copyrenameworksheet()
Dim r As Range, rt As Range, rs As Range
With Worksheets("Record")
    Set rs = .Range("B7:AE" & .Range("B300").End(xlUp).Row) _
        .SpecialCells(xlCellTypeVisible)
   
End With
    Set rt = Worksheets("Day").Range("B300").End(xlUp).Offset(1, 0)
    rs.Copy rt
    Application.CutCopyMode = False
    MsgBox "ºÑ¹·Ö¡àÃÕºÃéÍÂ"
    Range("B7,C7,D7,H7").Select
    'Range("I17").Activate
    Selection.ClearContents
    Worksheets("Day").Activate
End Sub

[snasui]

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

Code: Select all

'Other code
Set rt = Worksheets(Worksheets("Record").Range("b4").Value).Range("B300").End(xlUp).Offset(1, 0)
rs.Copy rt
'Other code

[sooksun2009]

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

Code: Select all

'Other code
Set rt = Worksheets(Worksheets("Record").Range("b4").Value).Range("B300").End(xlUp).Offset(1, 0)
rs.Copy rt
'Other code

ขอบคุณครับ ได้แล้วครับ แต่สอบถามเพิ่มเติมนิดหน่อย อยากให้ ชื่อ sheet ที่เรา copy Activate จะได้รูว่าข้อมูลถูก copy ไปแล้ว ขอบคุณครับ

[logic]

หลังคัดลอกข้อมูลแล้ว ลองเพิ่มบรรทัด Worksheets("Record").Range("b4").Value).Activate เข้าไปครับ

[sooksun2009]

หลังคัดลอกข้อมูลแล้ว ลองเพิ่มบรรทัด Worksheets("Record").Range("b4").Value).Activate เข้าไปครับ

ได้แล้วครับ ขอบคุณครับ ถามอีกนิดหนึง ถ้าอยากแบ paste spacial ต้องเขียน Code อย่างไรครับ

[sooksun2009]

ตอนนี้ติดปัญหาแค่ paste spacial ต้องเขียน Code อย่างไรครับ

[logic]

ลองดูครับ

Code: Select all

rs.Copy
rt.pastespecial xlpastevalues

[sooksun2009]

ลองดูครับ

Code: Select all

rs.Copy
rt.pastespecial xlpastevalues

ขอบคุณมากครับ