VBA Copy Sheet sang Sheet moi

[Namnuns2]

Em viết đoạn code như sau:
Sheets("File Tinh").Copy After:=Worksheets(Sheets.Count)
Sheets("File Tinh").Select
Range("A1").Activate
Selection.EntireRow.Hidden = False
Sheets("File Tinh").Select
Mỗi lần chạy thì nó sẽ copy từ sheet file tính sáng sheet có tên là file tinh (2) rồi tăng lên 3 , 4... Giờ em muốn sửa thành copy từ sheet File tính sang sheet Ket Qua 1 sau đó chạy tiếp thì thành Ket qua 2 rồi Ket qua 3 thì phải sửa code thành thế nào ạ. Em cảm ơn

 

[befaint]

Const ws_name = "File Tinh"
Const prefix_name = "Ket Qua "
Dim tcount as long
On error resume next
tcount = Sheets.Count
Sheets(ws_name).Copy after:= Worksheets(tcount)
activesheet.name = prefix_name & tcount
msgbox err.description

 

[Nhattanktnn]

Em viết đoạn code như sau:
Sheets("File Tinh").Copy After:=Worksheets(Sheets.Count)
Sheets("File Tinh").Select
Range("A1").Activate
Selection.EntireRow.Hidden = False
Sheets("File Tinh").Select
Mỗi lần chạy thì nó sẽ copy từ sheet file tính sáng sheet có tên là file tinh (2) rồi tăng lên 3 , 4... Giờ em muốn sửa thành copy từ sheet File tính sang sheet Ket Qua 1 sau đó chạy tiếp thì thành Ket qua 2 rồi Ket qua 3 thì phải sửa code thành thế nào ạ. Em cảm ơn

Thử phải vậy không

Sheets("File Tinh").Copy After:=Worksheets(Sheets.Count)
Activesheet.name="Ket Qua" & sheets.count-1 'Trừ 1 nếu số sheet hiện tại là 1
Sheets("File Tinh").Range("A1").EntireRow.Hidden = False

 

[VetMini]

Const THENAME = "Ket Qua"
numMax = 0
For Each sh in Sheets
If sh.Name Like THENAME & "*" Then
sNum = Val(Split(sh.Name, " "))
If sNum > numMax Then numMax = sNum
End If
Next sh
' sheet kế tiếp sẽ lấy tên THENAME & " " & (numMax + 1)

 

[Namnuns2]

Cảm ơn các bác. Em đã làm được rồi