Thêm dòng tự động khi có dữ liệu mới

[Xem Thử Thui]

Chào các anh chị ! e mới vô chưa hiểu gì về VBA mong anh chị giúp đỡ
Bài toán của e như sau :
Dữ liệu lấy từ sheet nhập liệu, ở sheet PNK khi nhập số phiếu PNK01 chỉ có 5 dòng dữ liệu bảng danh sách bên dưới tự động rút ngắn lại, khi nhập PNK02 có 16 dòng dữ liệu thì bảng bên dưới tự động thêm dòng để hiển thị đủ thông tin và yêu cầu tính tổng đúng theo danh sách chèn thêm, các thông tin bên dưới dòng tổng cộng luôn được hiển thị

 

[thnghiachau]

Chào các anh chị ! e mới vô chưa hiểu gì về VBA mong anh chị giúp đỡ
Bài toán của e như sau :
Dữ liệu lấy từ sheet nhập liệu, ở sheet PNK khi nhập số phiếu PNK01 chỉ có 5 dòng dữ liệu bảng danh sách bên dưới tự động rút ngắn lại, khi nhập PNK02 có 16 dòng dữ liệu thì bảng bên dưới tự động thêm dòng để hiển thị đủ thông tin và yêu cầu tính tổng đúng theo danh sách chèn thêm, các thông tin bên dưới dòng tổng cộng luôn được hiển thị

Bạn đem toàn bộ từ Row 27 xuống tới row 1000, rùi ghi công thức tới Row 999, dữ liệu không có từ hàng nào thì hiden row từ hàng đó tới row 999

 

[Tuấn Hoà Chi]

Cũng đơn giản thôi. Hihi

 

[Ba Tê]

Chào các anh chị ! e mới vô chưa hiểu gì về VBA mong anh chị giúp đỡ
Bài toán của e như sau :
Dữ liệu lấy từ sheet nhập liệu, ở sheet PNK khi nhập số phiếu PNK01 chỉ có 5 dòng dữ liệu bảng danh sách bên dưới tự động rút ngắn lại, khi nhập PNK02 có 16 dòng dữ liệu thì bảng bên dưới tự động thêm dòng để hiển thị đủ thông tin và yêu cầu tính tổng đúng theo danh sách chèn thêm, các thông tin bên dưới dòng tổng cộng luôn được hiển thị

Thay vì chèn hay xóa dòng thì "bao lô" cho nó 30 dòng, lấy dữ liệu xong, dòng nào không có số liệu thì ẩn nó đi.

 

[haog]

Chào các anh chị ! e mới vô chưa hiểu gì về VBA mong anh chị giúp đỡ
Bài toán của e như sau :
Dữ liệu lấy từ sheet nhập liệu, ở sheet PNK khi nhập số phiếu PNK01 chỉ có 5 dòng dữ liệu bảng danh sách bên dưới tự động rút ngắn lại, khi nhập PNK02 có 16 dòng dữ liệu thì bảng bên dưới tự động thêm dòng để hiển thị đủ thông tin và yêu cầu tính tổng

Anh Ba tê trong bài 3 và cả bài 2 đều cho giải pháp làm bằng tay.
Nếu muốn giúp về VBA để tự động lấy dữ liệu từ sheet nhâp liệu về sheet PNK thì bảo.
(nếu dùng sự kiện thì mọi sửa chữa như thay đổi tên gọi, số liệu, hoặc xóa bớt hay thêm dòng trên nhập liệu sẽ được cập nhật sang PNK).
Và chú ý nói rõ lấy cột nào sang.

 

[Ba Tê]

Anh Ba tê trong bài 3 và cả bài 2 đều cho giải pháp làm bằng tay.
Nếu muốn giúp về VBA để tự động lấy dữ liệu từ sheet nhâp liệu về sheet PNK thì bảo.
(nếu dùng sự kiện thì mọi sửa chữa như thay đổi tên gọi, số liệu, hoặc xóa bớt hay thêm dòng trên nhập liệu sẽ được cập nhật sang PNK).
Và chú ý nói rõ lấy cột nào sang.

Đây là chuyên mục "Lập trình với Excel"
Không hiểu ý bạn, tôi làm theo tôi đoán hiểu ý của chủ bài đăng, không đúng thì thôi.
Những câu tô đậm bên trên tôi không hiểu ý bạn là gì,
"thì bảo" là ai bảo?
(nếu dùng sự kiện thì mọi sửa chữa như thay đổi tên gọi, số liệu, hoặc xóa bớt hay thêm dòng trên nhập liệu sẽ được cập nhật sang PNK).
Và chú ý nói rõ lấy cột nào sang. Vấn đề này bạn nói với ai?

 

[haog]

Đây là chuyên mục "Lập trình với Excel

Quả thật, không để ý. Xin lỗi anh Ba Tê. Mà chỉ chú ý đến ý của chủ thớt nói rằng

Chào các anh chị ! e mới vô chưa hiểu gì về VBA mong anh chị giúp đỡ

Và cũng (rất quan trọng) không đọc file đính kèm của Ba Tê, đã giải quyết xong hết rồi. Cảm ơn sự nhắc nhở.

 

[Xem Thử Thui]

Thay vì chèn hay xóa dòng thì "bao lô" cho nó 30 dòng, lấy dữ liệu xong, dòng nào không có số liệu thì ẩn nó đi.

Dạ e cảm ơn ạ... để e thử xem. Mà cho e hỏi ví dụ e muốn thêm hơn 30 dòng thì làm như thế nào ạ. e chèn thêm thì nó chỉ tự ẩn được 30 dòng thôi... mấy dòng e thêm k ẩn

 

[Xem Thử Thui]

Thay vì chèn hay xóa dòng thì "bao lô" cho nó 30 dòng, lấy dữ liệu xong, dòng nào không có số liệu thì ẩn nó đi.

Anh Ba tê trong bài 3 và cả bài 2 đều cho giải pháp làm bằng tay.
Nếu muốn giúp về VBA để tự động lấy dữ liệu từ sheet nhâp liệu về sheet PNK thì bảo.
(nếu dùng sự kiện thì mọi sửa chữa như thay đổi tên gọi, số liệu, hoặc xóa bớt hay thêm dòng trên nhập liệu sẽ được cập nhật sang PNK).
Và chú ý nói rõ lấy cột nào sang.

Dạ ý e là vậy đó ạ. E muốn lấy các thông tin bên phần nhập liệu sang sheet PNK. E dự định tạo list chọn PNK ở ô c7, số PNK ở đây thay đổi thì dữ liệu dưới bảng thay đổi theo thông tin đã cập nhật bên sheet nhập liệu ạ. Các cột lấy sang gồm H,I,K,M,N... nhờ a giúp đỡ

 

[Ba Tê]

Dạ e cảm ơn ạ... để e thử xem. Mà cho e hỏi ví dụ e muốn thêm hơn 30 dòng thì làm như thế nào ạ. e chèn thêm thì nó chỉ tự ẩn được 30 dòng thôi... mấy dòng e thêm k ẩn

Không viết tắt "k, e..." đọc không thiện cảm.
Bạn tự xem bố trí biểu mẫu sheet PNX, rồi so sánh Sub trong file này và file trước khác nhau cái gì.
Từ đó bạn có thể chỉnh sửa từ 30 thành 100, 200 hay 300 ... dòng theo ý mình.

 

[haog]

Chào các anh chị ! e mới vô chưa hiểu gì về VBA mong anh chị giúp đỡ

Tôi có cách giải quyết khác với đề nghị của bạn. Không cần sheet PNX để chép dữ liệu sang. Code của tôi sẽ lọc dữ liệu của sheet Nhaplieu. Do dùng sự kiện Worksheet_Change của sheet Nhaplieu nên chỉ cần bạn nhập vào ô I4 (có khung nét đôi màu đỏ) của sheet Nhaplieu, ví dụ "PNK01" thì chương trình lọc theo nội dung đó, ẩn các hàng và cột cần thiết. Nếu xóa ô I4 thì nó lại bỏ lọc và trở về trạng thái để nhập liệu. Nếu nhập nội dung không có trong cột B thì chương trình xử lý như bạn xóa ô I4.
Có một vài lỗi có tính trình bày, ví dụ thiếu cột số thứ tự như của Ba tê, các thông tin ở đầu và cuối bảng không rõ, thì bạn có thể trình bày lại khi dữ liệu đang được lọc. Xóa những nội dung chỉ dẫn trong sheet đi, Số hàng trống sau bảng và trước dòng "cộng" là tùy ý, cách dòng "cộng" 1 hàng thì nhập thông tin cuối bảng.
Chú ý tôi thêm 2 hàng đầu để mục tiêu đề chỉ có 1 hàng, tiện cho qua trình lọc
Bạn chỉ nên bỏ lọc bằng xóa ô I4, dù nó đang trống. Nếu sự kiện không hoạt động thì bạn phải bảo. Tôi nói vậy vì bạn tự giới thiệu như trong bài 1, đừng tự ái.