Macro đổi tên sheet theo giá trị thay đổi (1 người xem)

[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

 

[khaivinh]

bạn thêm 1 lệnh activesheet.name = range("C6").value là xong

 

[Hai Lúa Miền Tây]

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:

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

 

[locphat6868]

chào bạn, cám ơn bạn nhé
cho mình hỏi code macro xóa điều kiện lọc là khoảng trắng ("") của những dòng có số tiền và khoảng trắng
VD: Tại ô L15:L100 CHỨA GIÁ TRỊ bao gồm số và khoảng trống ("") - lọc tại ô L15
Mình muốn viết code macro để lọc khoảng trống đó ra và xóa những dòng vừa lọc ra
tại ô L15 là giá trị phụ thuộc vào giá trị của ô D6 (D6 khac khoảng trống "")