Giúp tạo code lọc danh sách có điều kiện. (1 người xem)

[tanbinh2002]

Kính gởi các Anh/Chị!
Tôi có một khó khăn khi làm biên bản điều chỉnh hóa đơn như sau:
1. có sheet data dữ liệu đã xuất hóa đơn trong tháng, mỗi khách hàng sẽ có rất nhiều hóa đơn cần phải điều chỉnh.
2. Sheet biên bản là mẫu chung của biên bản điều chỉnh hóa đơn.
3. Yêu cầu đặt ra là mỗi khách hàng sẽ in ra 2 biên bản điều chỉnh để ký kết.
Tôi đã làm nhiều công thức và tìm kiếm trên diễn đàn nhưng không có trường hợp nào tương tự. Hiện nay tôi phải làm bằng thủ công lọc từng khách hàng rồi copy qua sheet biên bản, nhưng do số lượng điều chỉnh nhiều nên việc làm bằng thủ công rất tốn nhiều thời gian.
Nhờ các Anh/Chị giúp tạo code hoặc có cách nào làm được thì hướng dẫn giúp.
Xin cám ơn các Anh/Chị.

 

[Let'GâuGâu]

Kính gởi các Anh/Chị!
Tôi có một khó khăn khi làm biên bản điều chỉnh hóa đơn như sau:
1. có sheet data dữ liệu đã xuất hóa đơn trong tháng, mỗi khách hàng sẽ có rất nhiều hóa đơn cần phải điều chỉnh.
2. Sheet biên bản là mẫu chung của biên bản điều chỉnh hóa đơn.
3. Yêu cầu đặt ra là mỗi khách hàng sẽ in ra 2 biên bản điều chỉnh để ký kết.
Tôi đã làm nhiều công thức và tìm kiếm trên diễn đàn nhưng không có trường hợp nào tương tự. Hiện nay tôi phải làm bằng thủ công lọc từng khách hàng rồi copy qua sheet biên bản, nhưng do số lượng điều chỉnh nhiều nên việc làm bằng thủ công rất tốn nhiều thời gian.
Nhờ các Anh/Chị giúp tạo code hoặc có cách nào làm được thì hướng dẫn giúp.
Xin cám ơn các Anh/Chị.

thử xem bạn..............................

 

[tanbinh2002]

Rất cám ơn bạn Let'GâuGâu, Bài của bạn rất đúng ý mình. Nhờ bạn hướng dẫn mình cách làm được không?
Cám ơn rất nhiều.

 

[Let'GâuGâu]

Rất cám ơn bạn Let'GâuGâu, Bài của bạn rất đúng ý mình. Nhờ bạn hướng dẫn mình cách làm được không?
Cám ơn rất nhiều.

À, xin lổi, tôi đọc thoáng qua thấy bạn có chữ "code", tưởng là bạn làm bằng vba
không để ý bạn post trong box cthúc và hàm
tôi sẻ làm lại cho bạn bằng cthức

bạn cho hỏi, bên sheet data các khách hàng có nằm trên các dòng liên tục nhau không hay rời rac?

 

[tanbinh2002]

À, xin lổi, tôi đọc thoáng qua thấy bạn có chữ "code", tưởng là bạn làm bằng vba
không để ý bạn post trong box cthúc và hàm
tôi sẻ làm lại cho bạn bằng cthức

bạn cho hỏi, bên sheet data các khách hàng có nằm trên các dòng liên tục nhau không hay rời rac?

Cám ơn bạn. Do xuất hóa đơn rất nhiều ngày nên khách hàng nằm rời rạc nhiều dòng khác nhau.

 

[tanbinh2002]

Mình đã thấy code của bạn rồi. mình sẽ tìm hiểu thêm, khi nãy do mình save chưa enabled macro nên tưởng bạn không dùng VBA. do mình mới tập tành làm VBA nên phải học hỏi thêm.

 

[Let'GâuGâu]

Cám ơn bạn. Do xuất hóa đơn rất nhiều ngày nên khách hàng nằm rời rạc nhiều dòng khác nhau.

có mấy cái name, nhấn Ctrl F3 để xem nha
==========
còn muốn tìm hiểu vba thì nhấn Alt F11 xem code

 

[tanbinh2002]

Bạn Let'GâuGâu ơi bạn vui lòng giúp thêm cho mình 1 tí. Do dòng tổng cộng và bằng chữ bị xóa khi mình nhập qua khách hàng mới nên phải làm thêm công thức mỗi lần thay đổi. Mình muốn nó tự động cập nhật khi thay đổi mã khách hàng (ô tô màu vàng như file đính kèm).
Cám ơn bạn nhiều.

 

[Let'GâuGâu]

Bạn Let'GâuGâu ơi bạn vui lòng giúp thêm cho mình 1 tí. Do dòng tổng cộng và bằng chữ bị xóa khi mình nhập qua khách hàng mới nên phải làm thêm công thức mỗi lần thay đổi. Mình muốn nó tự động cập nhật khi thay đổi mã khách hàng (ô tô màu vàng như file đính kèm).
Cám ơn bạn nhiều.

cái dzụ đổi số tiền ra chữ viết bạn tìm trên diễn đàn, có một cái Add_in
thêm mấy cái tính tổng

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$18" And Not IsEmpty(Target) Then
[a28:h60000].Clear
With Sheet1
    .[a1].Resize(.[a6000].End(3).Row, 10).AutoFilter 2, Target.Value
    .[d2].Resize(.[a6000].End(3).Row, 7).SpecialCells(12).Copy
End With
    [b28].PasteSpecial 3
    [a28].Resize([b60000].End(3).Row - 27) = "=row()-27"
er = [a60000].End(3).Row
    With Range("A" & er)
        .Offset(1).Value = [l1].Value
        [a28].CurrentRegion.Borders.Value = 1
        .Offset(2).Resize(4).Value = [l2:l5].Value
        .Offset(6, 1).Value = [l6].Value
        .Offset(6, 5).Value = [l7].Value
        .Offset(1, 4).Value = WorksheetFunction.Sum([e28].Resize(er))
        dgc = WorksheetFunction.Sum([f28].Resize(er))
        dgm = WorksheetFunction.Sum([g28].Resize(er))
        .Offset(1, 5).Value = dgc
        .Offset(1, 6).Value = dgm
        .Offset(2, 1).Value = dgc + dgm
    End With
     Sheet1.AutoFilterMode = 0
End If
End Sub

 

[sonktpm2]

Kính gởi các Anh/Chị!
Tôi có một khó khăn khi làm biên bản điều chỉnh hóa đơn như sau:
1. có sheet data dữ liệu đã xuất hóa đơn trong tháng, mỗi khách hàng sẽ có rất nhiều hóa đơn cần phải điều chỉnh.
2. Sheet biên bản là mẫu chung của biên bản điều chỉnh hóa đơn.
3. Yêu cầu đặt ra là mỗi khách hàng sẽ in ra 2 biên bản điều chỉnh để ký kết.
Tôi đã làm nhiều công thức và tìm kiếm trên diễn đàn nhưng không có trường hợp nào tương tự. Hiện nay tôi phải làm bằng thủ công lọc từng khách hàng rồi copy qua sheet biên bản, nhưng do số lượng điều chỉnh nhiều nên việc làm bằng thủ công rất tốn nhiều thời gian.
Nhờ các Anh/Chị giúp tạo code hoặc có cách nào làm được thì hướng dẫn giúp.
Xin cám ơn các Anh/Chị.

Chào bạn!
Mình đã giải quyết vấn đề của bạn bằng công cụ Add-in A-tools của BLUESOFTS. Nó rất nhanh và đơn giản, Bạn có thể chỉ cần vài cú click chuột là có thể đưa ra được báo cáo như bạn mong muốn.
Đây là file mình đã làm cho bạn. Bạn cài add-in a-tools trước khi dùng nhé. Nó giúp bạn không phải sử lý bằng code VBA bạn nhé.
Rất vui nếu nó giúp được bạn.
Thanks.