Tự động cập nhật tên sheet và số thứ tự

[loc2312new]

Xin các bạn chỉ giúp code để nó tự động cập nhật tên sheet ,số thứ tự ở sheet " Mucluc" khi mình chèn 1 sheet mới, mà không cần nhấn chạy macro (Trong file có code nhưng nó không tự cập nhật).
Thứ 2 là khi mình tạo nút trờ về từ sheet thứ 4 trở đi ,khi nhấn thì nó sẽ trở về sheet Mucluc và giấu sheet này luôn ạ.
Cám ơn mọi người

 

[Ronaldinho7]

Xin các bạn chỉ giúp code để nó tự động cập nhật tên sheet ,số thứ tự ở sheet " Mucluc" khi mình chèn 1 sheet mới, mà không cần nhấn chạy macro (Trong file có code nhưng nó không tự cập nhật).
Thứ 2 là khi mình tạo nút trờ về từ sheet thứ 4 trở đi ,khi nhấn thì nó sẽ trở về sheet Mucluc và giấu sheet này luôn ạ.
Cám ơn mọi người

Bạn đăng sai mục rồi, cái này phải đưa vào box lập trình mới phải.

 

[HUONGHCKT]

Xin các bạn chỉ giúp code để nó tự động cập nhật tên sheet ,số thứ tự ở sheet " Mucluc" khi mình chèn 1 sheet mới, mà không cần nhấn chạy macro (Trong file có code nhưng nó không tự cập nhật).
Thứ 2 là khi mình tạo nút trờ về từ sheet thứ 4 trở đi ,khi nhấn thì nó sẽ trở về sheet Mucluc và giấu sheet này luôn ạ.
Cám ơn mọi người

Thử sức với nội dung 2.

Sub TroVe()
Dim Sh As Worksheet
Dim i&
Set Sh = ActiveSheet
For i = 1 To Sheets.Count
    If i > 5 And Sheets(i).Name = Sh.Name Then
        Sh.Select
        ActiveWindow.SelectedSheets.Visible = False
        Sheets("Mucluc").Select
        Range("C6").Select
    End If
Next
End Sub

 

[Maika8008]

Xin các bạn chỉ giúp code để nó tự động cập nhật tên sheet ,số thứ tự ở sheet " Mucluc" khi mình chèn 1 sheet mới, mà không cần nhấn chạy macro (Trong file có code nhưng nó không tự cập nhật).
Thứ 2 là khi mình tạo nút trờ về từ sheet thứ 4 trở đi ,khi nhấn thì nó sẽ trở về sheet Mucluc và giấu sheet này luôn ạ.
Cám ơn mọi người

Thử xem có đúng ý không?

 

[loc2312new]

Thử xem có đúng ý không?

Vâng, đúng ý rồi bạn , Cám ơn nhiều

Bài đã được tự động gộp: 2/2/23

Thử sức với nội dung 2.

Sub TroVe()
Dim Sh As Worksheet
Dim i&
Set Sh = ActiveSheet
For i = 1 To Sheets.Count
    If i > 5 And Sheets(i).Name = Sh.Name Then
        Sh.Select
        ActiveWindow.SelectedSheets.Visible = False
        Sheets("Mucluc").Select
        Range("C6").Select
    End If
Next
End Sub

Khi mình gán macro cho nút trở về sheet "Mucluc " thì ok nhưng khi bấm "go to sheet" ở sheet "Mucluc" khi nó không hiện đến sheet vừa giấu mà phải UNHIDE nó ra, làm sao để nó như lúc chưa gán macro "Trove"

 

[Maika8008]

Khi mình gán macro cho nút trở về sheet "Mucluc " thì ok nhưng khi bấm "go to sheet" ở sheet "Mucluc" khi nó không hiện đến sheet vừa giấu mà phải UNHIDE nó ra, làm sao để nó như lúc chưa gán macro "Trove"

Cập nhật chuyển đến sheet ẩn khi bấm vào go to sheet

 

[loc2312new]

Cập nhật chuyển đến sheet ẩn khi bấm vào go to sheet

Vẫn chưa được ,bạn Maika8008

 

[Maika8008]

Vẫn chưa được ,bạn Maika8008

Sorry! Tôi tải lên nhầm file.