Tạo nhiều sheets và đổi tên

[phanngoctrai1981]

Anh chị xem giúp em.​

1/ Nếu nhập đủ 12 dòng thì Code (lấy kết quả kiểm nghiệm và tạo sheet mới) chạy bình thường nhưng nếu ở cột A mà nhập ít hơn 12 dòng dữ liệu thì code bị lỗi,​

2/ Không muốn hiện thông báo khi xóa nhiều sheet​

Em mới tập tành VBA mong các Anh/chị xem file khắc phục lỗi giúp ah.​

 

[hvnhpro]

Anh chị xem giúp em.​

1/ Nếu nhập đủ 12 dòng thì Code (lấy kết quả kiểm nghiệm và tạo sheet mới) chạy bình thường nhưng nếu ở cột A mà nhập ít hơn 12 dòng dữ liệu thì code bị lỗi,​

2/ Không muốn hiện thông báo khi xóa nhiều sheet​

Em mới tập tành VBA mong các Anh/chị xem file khắc phục lỗi giúp ah.​

2 không muốn thông báo thì bạn thêm dòng

Application.DisplayAlerts = False

trước khi thực thi dòng lệnh xóa
và sau khi chạy dòng lệnh xóa

Application.DisplayAlerts = True

1 lỗi không nhập đủ 12 dòng, mình xem code không hiểu ý bạn muốn chạy nhưng đang đoán là do lỗi
ở vòng lặp

For i = 1 To 12

bạn sửa lại chỗ này cho phù hợp. nếu cột a nhập ít hơn 12 thì không đủ để vòng lặp chạy nên báo lỗi.
nên sửa lại chỗ 12 thành biến số không cố định X, và X thì bạn xác định theo số lượng cell ở cột a bạn nhập.
Đoán thế thôi

 

[bebo021999]

Mình đã test với file của bạn: sheet DATA có 12 mã lô, trong đó 4 mã có data
Chạy code thử thì vẫn tạo ra 12 sheets bình thường, không báo lỗi.
Click vô "Xóa Sheet" thì xóa mà không hề bị hỏi gì hết.
Vậy là sao nhỉ?

 

[ngocbaovu]

1. Sửa đoạn 'For i = 1 To 12' thành 'For i = 1 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row - 5'
2. Thêm Application.DisplayAlerts = False vào đầu và Application.DisplayAlerts = True vào cuối sub Xoasheet.
3. Trong sub copy nên cho đoạn code xóa sheet vào trước để code trơn tru hơn.

 

[phanngoctrai1981]

Anh có thể chỉ cách khắc phục lỗi khi nhập không đủ 12 dòng dữ liệu trong sheet Data khi chạy code thêm sheet không ạh

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

1. Sửa đoạn 'For i = 1 To 12' thành 'For i = 1 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row - 5'
2. Thêm Application.DisplayAlerts = False vào đầu và Application.DisplayAlerts = True vào cuối sub Xoasheet.
3. Trong sub copy nên cho đoạn code xóa sheet vào trước để code trơn tru hơn.

Ôi hay quá ah, em cảm ơn

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

Đúng ý em rồi, em Cam ơn các Anh đã nhiệt tình giúp đỡ.

 

[phanngoctrai1981]

Các Anh oi
Cũng file trên, em muốn không cho thực hiện tạo sheet mới khi chưa xóa các sheet hiện có và hiện thông báo phải xóa trước thì code như thế nào ạ.

 

[Ronaldinho7]

Các Anh oi
Cũng file trên, em muốn không cho thực hiện tạo sheet mới khi chưa xóa các sheet hiện có và hiện thông báo phải xóa trước thì code như thế nào ạ.

Loop qua các sheets
Kiểm tra điều kiện
Xoá sheet
Rồi chạy code tiếp theo

 

[phanngoctrai1981]

Loop qua các sheets
Kiểm tra điều kiện
Xoá sheet
Rồi chạy code tiếp theo

em mới tập tành, thật sự không biết phải viết như thế nào luôn á.

 

[Hoàng Tuấn 868]

em mới tập tành, thật sự không biết phải viết như thế nào luôn á.

Nếu viết hộ luôn từ đầu đến cuối thì còn tập tành gì nữa bạn ơi, chịu khó mày mò tìm hiểu và thử lần lượt từng dòng gợi ý ở bài #7 là ổn và sẽ nhớ rất lâu. (Có thể phải thử đi thử lại nhiều lần luôn ấy).

 

[phanngoctrai1981]

Nếu viết hộ luôn từ đầu đến cuối thì còn tập tành gì nữa bạn ơi, chịu khó mày mò tìm hiểu và thử lần lượt từng dòng gợi ý ở bài #7 là ổn và sẽ nhớ rất lâu. (Có thể phải thử đi thử lại nhiều lần luôn ấy).

Cảm ơn anh đã chỉ bài tham khảo. Em đã tự làm được yêu câu trên rồi.

 

[Hoàng Tuấn 868]

Em đã tự làm được yêu câu trên rồi.

Vậy là bạn làm quá nhanh, xin chúc mừng.