Page 1 of 1
สอบถาม code vba ท่านอาจารย์ ผมอยาก copy sheet ไปเก็บอีก sheet ตามชื่อทีกำหนด
Posted: Thu Sep 27, 2018 10:39 am
by 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
Re: สอบถาม code vba ท่านอาจารย์ ผมอยาก copy sheet ไปเก็บอีก sheet ตามชื่อทีกำหนด
Posted: Thu Sep 27, 2018 10:09 pm
by 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
Re: สอบถาม code vba ท่านอาจารย์ ผมอยาก copy sheet ไปเก็บอีก sheet ตามชื่อทีกำหนด
Posted: Fri Sep 28, 2018 8:30 am
by sooksun2009
snasui wrote: Thu Sep 27, 2018 10:09 pm
ตัวอย่างการปรับ 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 ไปแล้ว ขอบคุณครับ
Re: สอบถาม code vba ท่านอาจารย์ ผมอยาก copy sheet ไปเก็บอีก sheet ตามชื่อทีกำหนด
Posted: Fri Sep 28, 2018 9:55 am
by logic
หลังคัดลอกข้อมูลแล้ว ลองเพิ่มบรรทัด
Worksheets("Record").Range("b4").Value).Activate เข้าไปครับ
Re: สอบถาม code vba ท่านอาจารย์ ผมอยาก copy sheet ไปเก็บอีก sheet ตามชื่อทีกำหนด
Posted: Fri Sep 28, 2018 12:22 pm
by sooksun2009
logic wrote: Fri Sep 28, 2018 9:55 am
หลังคัดลอกข้อมูลแล้ว ลองเพิ่มบรรทัด
Worksheets("Record").Range("b4").Value).Activate เข้าไปครับ
ได้แล้วครับ ขอบคุณครับ ถามอีกนิดหนึง ถ้าอยากแบ paste spacial ต้องเขียน Code อย่างไรครับ
Re: สอบถาม code vba ท่านอาจารย์ ผมอยาก copy sheet ไปเก็บอีก sheet ตามชื่อทีกำหนด
Posted: Fri Sep 28, 2018 1:15 pm
by sooksun2009
ตอนนี้ติดปัญหาแค่ paste spacial ต้องเขียน Code อย่างไรครับ
Re: สอบถาม code vba ท่านอาจารย์ ผมอยาก copy sheet ไปเก็บอีก sheet ตามชื่อทีกำหนด
Posted: Fri Sep 28, 2018 1:45 pm
by logic
ลองดูครับ
Code: Select all
rs.Copy
rt.pastespecial xlpastevalues
Re: สอบถาม code vba ท่านอาจารย์ ผมอยาก copy sheet ไปเก็บอีก sheet ตามชื่อทีกำหนด
Posted: Fri Sep 28, 2018 2:00 pm
by sooksun2009
logic wrote: Fri Sep 28, 2018 1:45 pm
ลองดูครับ
Code: Select all
rs.Copy
rt.pastespecial xlpastevalues
ขอบคุณมากครับ