[Help] Tự động copy vùng dữ liệu qua sheet có tên ứng với tháng nhập liệu (1 người xem)

[taphets]

Chào các anh chị,

Em đang tập tành tự học VBA mà khó quá, mong các anh chị giúp e case này với:
Em có 1 file nhập hóa đơn gồm 1 sheet nhập dữ liệu và 1 sheet "Form" những dữ liệu cần lưu lại
Sau khi chạy code em cần:
1. Kiểm tra dữ liệu ô "Thời gian" để lấy dữ liệu tháng (như ví dụ là tháng 3) => nếu chưa có sheet nào tên "Thang3" thì tạo sheet theo form ở sheet "Form" và đặt tên là "Thang3"


2. Copy các dữ liệu cần thiết qua sheet có tên thời gian tương ứng (sheet "Thang3")
- Phần thu và phần chi khoanh đỏ có thể có nhiều hoặc ít dòng hơn


3. Dữ liệu sau khi copy sang sheet "Thang3" ở 4 cột đầu sẽ được copy paste dài xuống để bằng với dòng cuối cùng của dữ liệu Phần thu/Phần chi

=>


4. Khi nhập data mới và chạy code lần nữa sẽ tự động update tiếp (vẫn kiểm tra thời gian để update vào đúng sheet)
5. Thêm 1 code thứ 2 để clear data ở sheet nhập (trong trường hợp muốn xóa)

Đội ơn các anh chị nhiều lắm.

 

[Maika8008]

Chào các anh chị,

Em đang tập tành tự học VBA mà khó quá, mong các anh chị giúp e case này với:
Em có 1 file nhập hóa đơn gồm 1 sheet nhập dữ liệu và 1 sheet "Form" những dữ liệu cần lưu lại
Sau khi chạy code em cần:
1. Kiểm tra dữ liệu ô "Thời gian" để lấy dữ liệu tháng (như ví dụ là tháng 3) => nếu chưa có sheet nào tên "Thang3" thì tạo sheet theo form ở sheet "Form" và đặt tên là "Thang3"
View attachment 251379

2. Copy các dữ liệu cần thiết qua sheet có tên thời gian tương ứng (sheet "Thang3")
- Phần thu và phần chi khoanh đỏ có thể có nhiều hoặc ít dòng hơn
View attachment 251380

3. Dữ liệu sau khi copy sang sheet "Thang3" ở 4 cột đầu sẽ được copy paste dài xuống để bằng với dòng cuối cùng của dữ liệu Phần thu/Phần chi
View attachment 251382
=>
View attachment 251383

4. Khi nhập data mới và chạy code lần nữa sẽ tự động update tiếp (vẫn kiểm tra thời gian để update vào đúng sheet)
5. Thêm 1 code thứ 2 để clear data ở sheet nhập (trong trường hợp muốn xóa)

Đội ơn các anh chị nhiều lắm.

Bạn chạy thử file xem đúng ý chưa.

Yêu cầu thứ 5 chưa làm vì không biết muốn xóa những chỗ nào?

 

[VetMini]

Tập tành học code mà chọn ngay đề bài với cái sheet thiết kế như hạch này thì chết là phải.
Sheet dữ liệu mà mẫu mã, merged cells tùm lum thì kết quả nát bét có ngày.

 

[taphets]

Bạn chạy thử file xem đúng ý chưa.

Yêu cầu thứ 5 chưa làm vì không biết muốn xóa những chỗ nào?

Mình chạy được rồi cảm ơn bạn nhiều lắm mình cần xóa ở những ô bôi xanh này nha.

 

[Maika8008]

Xong YC thứ 5. Bấm các nút ở sheet1 để xóa

 

[taphets]

Xong YC thứ 5. Bấm các nút ở sheet1 để xóa

Cảm ơn bạn nhiều lắm. Sẵn cho mình hỏi có code nào để mở Printer không? (Ctrl+P) ấy

 

[befaint]

code nào để mở Printer

Mở làm gì, mình in luôn và ngay chứ?

Sheet1.Range("A1:G30").PrintOut 'Vùng cần in là "A1:G30"

 

[Maika8008]

Cảm ơn bạn nhiều lắm. Sẵn cho mình hỏi có code nào để mở Printer không? (Ctrl+P) ấy

Sub PPview()
ActiveSheet.PrintPreview 'Hoac Sheets("ten sheet").PrintPreview
End Sub

Nếu muốn xem vùng cần in thì:
Sub PPview()
Sheets("Sheet1").Range("A5:J47").PrintPreview
End Sub

 

[be_09]

Mình chạy được rồi cảm ơn bạn nhiều lắm mình cần xóa ở những ô bôi xanh này nha.

Góp ý cho bạn:
1/ Chỉ cần sử dụng 1 sheet làm SheetForm để nhập liệu.
2/ Trong 1 sheet Theo dõi dùng để lưu dữ liệu từ SheetForm, để phân tích các tháng thì chỉ cần dựa vào cột D.