เปลี่ยนชื่อ Sheet ตามเซลล์ที่เลือก
Posted: Fri Sep 30, 2016 9:06 pm
ผมต้องการเปลี่ยนชื่อ Sheet ใน Code VBA ตามที่เราเลือกจากใน Cell ครับ
ขอบคุณครับ
Code: Select all
Sub RecCopy()
Range("RangeCopy").Copy
Sheets("ร้านนายก").Select
Range("A10000").Select
Selection.End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
แก้ไขชื่อชีตกับค่าในเซลล์ L4 ให้เหมือนกันทุกประการเสียก่อน จากนั้นปรับ Code ที่ใช้เลือกชีตเป็นด้านล่างครับ