nguyenacc_audit
A demo is worth a thousand words
- Tham gia
- 3/7/18
- Bài viết
- 37
- Được thích
- 22
- Giới tính
- Nam
- Nghề nghiệp
- Anh nghèo không có môtô, Chỉ có xe đạp thô sơ nhất làng.
Em chào các Anh,Chị,
Em muốn nhờ các anh chị giúp đỡ một vẫn đề như sau ạ,
Em có 1 file excel gồm có 2 sheet chính:
+ Sheet 1: chứa thông tin nguồn
+ Sheet 2: Là 1 file Biên bản.
Em muốn tạo ra 1 nút để sau khi click vào thì sẽ copy sheet2 ( sheet biên bản ) và đổi tên sheet theo tên file ở ô G2 và tên file tự động cập nhật không bị trùng với tên file của sheet trước đó.
* Hiện tại em đang dùng 2 nút với 2 code sau:
1.
Sub Test_addnewsheet()
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
End Sub
2.
Sub Test_RenameSheet()
ActiveSheet.Name = Range("G2")
MsgBox " doi ten sheet thanh cong"
End Sub
* Vấn đề em đang gặp phải:
Sheet mới tạo ra lấy thông tin từ sheet trước đó nên khi dùng nút thứ 2 để đổi tên sheet thì bị lỗi do trùng tên file. Phải thực hiện đổi tên phải thủ công ở ô G1 ( Tên file ở ô G2 tham chiếu từ ô G1).
* Nhờ các Anh,Chị giúp đỡ với ạ!
Em cảm ơn,
Em muốn nhờ các anh chị giúp đỡ một vẫn đề như sau ạ,
Em có 1 file excel gồm có 2 sheet chính:
+ Sheet 1: chứa thông tin nguồn
+ Sheet 2: Là 1 file Biên bản.
Em muốn tạo ra 1 nút để sau khi click vào thì sẽ copy sheet2 ( sheet biên bản ) và đổi tên sheet theo tên file ở ô G2 và tên file tự động cập nhật không bị trùng với tên file của sheet trước đó.
* Hiện tại em đang dùng 2 nút với 2 code sau:
1.
Sub Test_addnewsheet()
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
End Sub
2.
Sub Test_RenameSheet()
ActiveSheet.Name = Range("G2")
MsgBox " doi ten sheet thanh cong"
End Sub
* Vấn đề em đang gặp phải:
Sheet mới tạo ra lấy thông tin từ sheet trước đó nên khi dùng nút thứ 2 để đổi tên sheet thì bị lỗi do trùng tên file. Phải thực hiện đổi tên phải thủ công ở ô G1 ( Tên file ở ô G2 tham chiếu từ ô G1).
* Nhờ các Anh,Chị giúp đỡ với ạ!
Em cảm ơn,
File đính kèm
Lần chỉnh sửa cuối:
