Cách lưu 1 WorkBook thành 1 WorkBook mới (2 người xem)

[a.nguoidensau]

Chào các anh/chị/em
Hiện giờ tôi có 1 WorkBook gồm 5 Sheet từ sheet1 đến Sheet5 ( Các sheets này có chưa công thức).
Bây giờ tôi muốn lưu thành 1 WorkBook mới, chỉ có 2 Sheet( Sheet2 và Sheet5) và không còn công thức( chỉ còn giá trị). Vậy Code như thế nào, mong anh/chị chỉ giúp.
Xin cảm ơn.

 

[HieuCD]

Tôi muốn loại bỏ công thức trong File mới, File cũ phải giữ nguyên công thức.
File cũ là File xử lý dữ liệu,vì có Sheet "Trang chu", "Huongdan",.....nên không thể lưu những Sheets đó được. Thế nên mới cần nhặt 1 số Sheets để lưu dữ liệu thôi bạn à.
Cảm ơn bạn HieuCD đã quan tâm.

bạn xem lại kết quả file mới đã loại bỏ công thức. Code bỏ dòng đóng file để bạn nhìn cho dể

 

[a.nguoidensau]

bạn xem lại kết quả file mới đã loại bỏ công thức. Code bỏ dòng đóng file để bạn nhìn cho dể

Ổn rồi bạn à.
Cảm ơn bạn HieuCD nhiều.

 

[a.nguoidensau]

Cái hình nhỏ quá, không nhìn rõ thông báo gì.

p/s: Đã sửa lại...

Vẫn bị lỗi như ban đầu, bạn xem hình dưới xem có khá hơn không nhé

 

[befaint]

Vẫn bị lỗi như ban đầu, bạn xem hình dưới xem có khá hơn không nhé

Lỗi tô màu vàng dòng nào vậy bạn?

 

[a.nguoidensau]

Lỗi tô màu vàng dòng nào vậy bạn?

Bạn xem hình dưới nhé

 

[befaint]

Bạn xem hình dưới nhé

Khó nhỉ? Thử với cả tiếng Việt có dấu đều không lỗi. Có vẻ nó không chơi với anh Excel 2007

 

[a.nguoidensau]

Khó nhỉ? Thử với cả tiếng Việt có dấu đều không lỗi. Có vẻ nó không chơi với anh Excel 2007

Tôi đã tìm ra hướng giải quyết cho bài toán của mình rồi.
Xin chân thành cảm ơn sự quan tâm, giúp đỡ nhiệt tình của bạn, HieuCD và cả bác ndu nữa.

 

[kbw1]

Bạn xài thử nha. Nếu ổn thì chuyển sang Addins.

E đã dùng thử file này.
File này lưu save as rồi mở luôn file ra.
Dùng ổn ạ.

 

[kbw1]

bạn xem lại kết quả file mới đã loại bỏ công thức. Code bỏ dòng đóng file để bạn nhìn cho dể

Bác ơi, file này có thể làm thành add in được ko ạ?

 

[befaint]

E đã dùng thử file này.
File này lưu save as rồi mở luôn file ra.
Dùng ổn ạ.

Cảm ơn bạn. Thế mới khó, không rõ lỗi như bạn chủ thớt nêu mà sửa...

 

[kbw1]

Cảm ơn bạn. Thế mới khó, không rõ lỗi như bạn chủ thớt nêu mà sửa...

Nhưng e không lưu được thành file add ind dể dùng ạ.

 

[HieuCD]

Cảm ơn bạn. Thế mới khó, không rõ lỗi như bạn chủ thớt nêu mà sửa...

máy mình dùng Excel 2007, mở file nó phải tự chỉnh lại theo Ex 2007, và chạy code cũng bị lổi ở dòng

If UCase(TextBox2.Text & eType) Like UCase(ActiveWorkbook.Name) _    Then MsgBox "File Name Error?": TextBox2.Text = "": TextBox2.SetFocus: Exit Sub

cụ thể nó không hiểu hàm Ucase, bỏ Ucase thì chạy được

If TextBox2.Text & eType Like ActiveWorkbook.Name _    Then MsgBox "File Name Error?": TextBox2.Text = "": TextBox2.SetFocus: Exit Sub

 

[befaint]

máy mình dùng Excel 2007, mở file nó phải tự chỉnh lại theo Ex 2007, và chạy code cũng bị lổi ở dòng

If UCase(TextBox2.Text & eType) Like UCase(ActiveWorkbook.Name) _    Then MsgBox "File Name Error?": TextBox2.Text = "": TextBox2.SetFocus: Exit Sub

cụ thể nó không hiểu hàm Ucase, bỏ Ucase thì chạy được

If TextBox2.Text & eType Like ActiveWorkbook.Name _    Then MsgBox "File Name Error?": TextBox2.Text = "": TextBox2.SetFocus: Exit Sub

Cảm ơn anh.

Chắc do bản office đó nó bị thế.
(https://newtonexcelbach.wordpress.com/2014/03/08/problems-with-ucase-and-lcase-in-vba/)

UCase(text)
Applies To:
Excel 2016, Excel 2013, Excel 2011 for Mac, Excel 2010, Excel 2007, Excel 2003, Excel XP, Excel 2000

Anh thử giúp em như sau xem được không?

If [COLOR=#ff0000]VBA.UCase[/COLOR](TextBox2.Text & eType) Like [COLOR=#ff0000]VBA.UCase[/COLOR](ActiveWorkbook.Name) _

 

[HieuCD]

Cảm ơn anh.

Chắc do bản office đó nó bị thế.
(https://newtonexcelbach.wordpress.com/2014/03/08/problems-with-ucase-and-lcase-in-vba/)


Anh thử giúp em như sau xem được không?

If [COLOR=#ff0000]VBA.UCase[/COLOR](TextBox2.Text & eType) Like [COLOR=#ff0000]VBA.UCase[/COLOR](ActiveWorkbook.Name) _

sửa lệnh lại thì chạy ngon lành

 

[befaint]

sửa lệnh lại thì chạy ngon lành

Tốt quá. Cảm ơn anh!

------------------
Cập nhật file Addins...