Kết quả 1 đến 4 của 4

Chủ đề: Macro đổi tên sheet theo giá trị thay đổi

  1. #1
    Ngày tham gia
    Aug 2015
    Bài viết
    0

    Macro đổi tên sheet theo giá trị thay đổi

    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

  2. #2
    huongcao Guest
    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ố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 "")

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

  4. #4
    phatthinh2010 Guest
    Trích dẫn 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

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •