Gửi bởi
locphat6868
Chào anh chị,
nhờ a/c giúp đỡ viết macro như sau:
Em có 2 sheet: "list": Chứa danh sách các mã hàng theo thứ tự
"copy": đây là sheet gốc em muốn copy ra sheet mới theo giá trị thay đổi từ sheet "list" (từ 1 đến 60)
tình hình là e đã viết để copy ra sheet mới theo giá trị chạy từ 1 đến 60
nhưng bây giờ em muốn đổi tên từng sheet tạo ra theo số thứ tự mới (chạy từ 1 đến 60) bằng giá trị của ô $c$6
nhờ các a/c hướng dẫn giúp
chân thành cám ơn
Chạy thử code củ chuối như sau:
Mã:
Sub CuChuoi()
Application.ScreenUpdating = False
DelSht
With Sheets("COPY")
For I = 1 To 60
.Range("G5") = I
Sheets("COPY").COPY After:=Sheets("COPY")
ActiveSheet.Name = .[c6]
.Select
Next I
End With
Application.ScreenUpdating = True
End Sub
Sub DelSht()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In ThisWorkbook.Sheets
If UCase(sh.Name) <> "LIST" And UCase(sh.Name) <> "COPY" Then sh.Delete
Next
Application.DisplayAlerts = True
End Sub