Code đếm dữ liệu và xuất báo cáo (1 người xem)

[thangtq92]

Chào các thầy và các bạn !

Em có file báo cáo đính kèm cần đếm tổng cước theo ngày tháng
và xuất báo cáo theo Template.
Em nhờ thầy và các bạn giúp đỡ ah.

Thanks !

 

[be_09]

Chào các thầy và các bạn !

Em có file báo cáo đính kèm cần đếm tổng cước theo ngày tháng
và xuất báo cáo theo Template.
Em nhờ thầy và các bạn giúp đỡ ah.

Thanks !

Tổng hợp thì dùng PivotTable, còn muốn xuất báo cáo theo từng tỉnh thì phải dùng code, còn muốn đơn gỉản thì Filter rồi copy từng tỉnh qua sheet khác (vì nó có 2 tỉnh).

 

[thangtq92]

Em dùng PivotTable rồi nhưng ko đúng ý ạ, em muốn nó thêm 1 cột đếm vào bên phải luôn ạ. Còn phần code kia em chưa làm được, mà dữ liệu em đưa lên chỉ là ví dụ, trên thực tế có rất nhiều tỉnh thành em ko làm thủ công dc ah. Anh giúp em vs ah

 

[giaiphap]

Em dùng PivotTable rồi nhưng ko đúng ý ạ, em muốn nó thêm 1 cột đếm vào bên phải luôn ạ. Còn phần code kia em chưa làm được, mà dữ liệu em đưa lên chỉ là ví dụ, trên thực tế có rất nhiều tỉnh thành em ko làm thủ công dc ah. Anh giúp em vs ah

Bạn up file thật lên đây luôn đi, mọi người sẽ giúp trên file của bạn luôn.

 

[thangtq92]

File gốc của em đây ạ #giaiphap, anh xem qua giúp em với ạ

 

[giaiphap]

File của bạn Up lên mình đây thấy dữ liệu gì đâu, chỉ có một Sheet trống trơn tên Report

 

[thangtq92]

Em xin lỗi vì gửi thiếu file báo cáo và cột tính tổng. em gửi lại ạ

 

[thangtq92]

File của bạn Up lên mình đây thấy dữ liệu gì đâu, chỉ có một Sheet trống trơn tên Report

trong sheet Report có dữ liệu mà anh !

 

[giaiphap]

trong sheet Report có dữ liệu mà anh !

Nếu có thì đâu cần nói vòng do cho mệt vậy. bạn xem lại file của bạn tôi mở lên nó bào lỗi và khi mở xong không có dữ liệu gì cả. Nếu cần copy dữ liệu sang file mới.

 

[thangtq92]

Em cũng ko biết nguyên nhân, em copy và tạo ra file mới rồi ạ, anh xem giúp em dc chưa ạ?

 

[giaiphap]

Cái này chắc phải dùng đến code rồi bạn ơi, mình chưa đủ sức.

 

[Ba Tê]

Em cũng ko biết nguyên nhân, em copy và tạo ra file mới rồi ạ, anh xem giúp em dc chưa ạ?

Sao mỗi tỉnh lại tạo 1 sheet?
Chỉ 1 sheet, muốn xem tỉnh nào thì chọn tỉnh đó để xem được không?
Làm bằng VBA, Enable Macros khi mở file, chọn tỉnh trong ô D5 là có kết quả.
2 cột phụ G:H không muốn thấy thì ẩn nó đi.

 

[thangtq92]

Thêm tùy chọn code VBA tạo nhiều sheet...

Sao mỗi tỉnh lại tạo 1 sheet?
Chỉ 1 sheet, muốn xem tỉnh nào thì chọn tỉnh đó để xem được không?
Làm bằng VBA, Enable Macros khi mở file, chọn tỉnh trong ô D5 là có kết quả.
2 cột phụ G:H không muốn thấy thì ẩn nó đi.

Tks anh ạ,

Logic của anh đúng ý em rồi ạ, anh giúp em thêm lựa chọn là có thể tạo ra nhiều sheet(files) hoặc in hàng loạt báo cáo theo tên Tỉnh thành được ko ạ?

 

[thangtq92]

Tuỳ biến Code VBA Print_All()

Mượn file #12. Code cho bạn 1 đoạn để in ra hàng loạt. Nhớ kéo cột lại cho cân đối rồi mới in
Chạy code thì nó in ra hết 8 tỉnh có tại cột G theo file #12

Public Sub Print_All()
Dim Arr, I As Long, Rws As Long
Arr = Sheet2.Range("G1", Sheet2.Range("G1000").End(3)).Value
For I = 1 To UBound(Arr)
    Sheet2.Range("D5").Value = Arr(I, 1)
    GPE_1
    Rws = Sheet2.Range("E65000").End(3).Row
    Sheet2.PageSetup.PrintArea = "$A$1:$E$" & Rws
    Sheet2.PrintOut
Next I
End Sub

Em cảm ơn #hpkhuong đã giúp đỡ,

Chắc do em chưa đặt câu hỏi rõ ràng nên chưa đúng ý ạ.
Em muốn in hàng loạt là gộp tất cả vào 1 file(sheet) mới rồi mới in được ko anh #hpkhuong.

 

[thangtq92]

Tuỳ biến Code VBA Print_All()

Là sao nhỉ? Ý bạn là dồn tấ cả vào 1 sheet chỉ cần 1 tiêu đề/ ở giữa là dữ liệu của tất cả các tỉnh/ cuối là chữ ký...Vậy hay là sao???

Em muốn gộp vào như Sheet Print_All anh hpkhuong ah.
Anh xem giúp em nhé !
Em cảm ơn anh!