Liệt kê hợp đồng đến hạn

  • Thread starter Thread starter htrungi2
  • Ngày gửi Ngày gửi
Liên hệ QC

htrungi2

Thành viên mới
Tham gia
6/4/10
Bài viết
14
Được thích
0
Chào các ban,
Mình có vấn đề cần các bạn giúp đỡ như sau.
Mình có nhiều data về các thông tin hợp đồng. Mỗi ngày mình cần biết có những hợp đồng nào đến hạn. Nhưng vì data lưu ở các file khác nhau. Bây h mình muốn có 1 file tổng hợp các hợp đồng đến hạn trong ngày nhưng đang không biết liệt kê 1 danh sách ra kiểu gì -+*/ . Các bạn xem file và cho mình xin ý kiến nhé. Cảm ơn }}}}}}}}}}
 

File đính kèm

Chào các ban,
Mình có vấn đề cần các bạn giúp đỡ như sau.
Mình có nhiều data về các thông tin hợp đồng. Mỗi ngày mình cần biết có những hợp đồng nào đến hạn. Nhưng vì data lưu ở các file khác nhau. Bây h mình muốn có 1 file tổng hợp các hợp đồng đến hạn trong ngày nhưng đang không biết liệt kê 1 danh sách ra kiểu gì -+*/ . Các bạn xem file và cho mình xin ý kiến nhé. Cảm ơn }}}}}}}}}}
Thấy trong file làm sao thì mình ....làm đại
Trúng trật tính sau, tạo nút ==> chép code này vào ==> bấm
Mã:
Private Sub CommandButton1_Click()
    Dim Vung As Range, I As Integer
    Application.ScreenUpdating = False
    Range([a3], [a3].End(xlDown)).Resize(, 4).Clear
        For I = 1 To 2
            Sheets("data " & I).Range("D:D,G:G").EntireColumn.Hidden = True
            Set Vung = Sheets("data " & I).Range(Sheets("data " & I).[b1], Sheets("data " & I).[b5000].End(xlUp)).Resize(, 6)
                With Vung
                    .AutoFilter Field:=6, Criteria1:=Range("b1").Value
                    .Offset(1, 0).SpecialCells(12).Copy [a5000].End(xlUp)(2)
                    .AutoFilter
                End With
            Sheets("data " & I).Range("D:D,G:G").EntireColumn.Hidden = False
        Next
  Application.ScreenUpdating = True
End Sub
 

File đính kèm

Cảm ơn bạn, nhưng nói thật mình không rành cái VBA nên chưa biết cách làm như bạn nói. Bạn có thể nói rõ hơn các bước cho mình được không?
 
Bạn chỉ cần dùng hàm if đặt điều kiện ngày hiện tại lớn hơn ngày đến hạn của bạn là xong thôi
 
Chào các ban,
Mình có vấn đề cần các bạn giúp đỡ như sau.
Mình có nhiều data về các thông tin hợp đồng. Mỗi ngày mình cần biết có những hợp đồng nào đến hạn. Nhưng vì data lưu ở các file khác nhau. Bây h mình muốn có 1 file tổng hợp các hợp đồng đến hạn trong ngày nhưng đang không biết liệt kê 1 danh sách ra kiểu gì -+*/ . Các bạn xem file và cho mình xin ý kiến nhé. Cảm ơn }}}}}}}}}}

Tôi nghĩ bạn nên tổng hợp tất cả vào 1 sheet rồi dùng Pivot Table vừa nhẹ & gọn !
 
Rất cảm ơn mọi người đã tham gia ý kiến. Nhưng quả thực mình vẫn chưa tìm được câu trả lời thoả đáng. Mặc dù không phải mình mù excel đâu... Anyway, thank you
 
Các anh chị ơi, em ngu exel lắm. Vì đây cũng là vấn đề em đang quan tâm nên có đọc comment của mọi người, nhưng tình hình là em chả hiểu phải làm ra sao cả....
1/ "Trúng trật tính sau, tạo nút ==> chép code này vào ==> bấm code " ????
2/ Nếu đặt hàm If thì nên đặt như thế nào?
 
Web KT

Bài viết mới nhất

Back
Top Bottom