Dùng hóa đơn nhập liệu và truy vấn hóa đơn bán hàng (1 người xem)

[anhha_mobile]

em có file hoa đơn này mong anh chị giúp tạo code lấy dử liệu khách hàng và địa chỉ khi mình nhập vào tên khách hàng ở sheet 2 và 3 vào hóa đơn tính tiền em cảm ơn nhiều ak
https://secufiles.com/532w/HOA_DON_TAN_TAI.XLS

 

[Lê Duy Thương]

bạn nên tạo thêm 1 sheet giao dịch nữa
sheet này gồm các cột như sau
ngày mã kh người mua số lương dvt chủng loại thành tiên

như vậy chỉ cần gõ ma kh là có thể được như mẫu của bạn rôi

 

[be_09]

em có file hoa đơn này mong anh chị giúp tạo code lấy dử liệu khách hàng và địa chỉ khi mình nhập vào tên khách hàng ở sheet 2 và 3 vào hóa đơn tính tiền em cảm ơn nhiều ak
https://secufiles.com/532w/HOA_DON_TAN_TAI.XLS

Bạn nên sửa tiêu đề là "Dùng hóa đơn nhập liệu và truy vấn hóa đơn bán hàng".

Cách sửa lại tiêu đề bài viết:
Khi đăng nhập xong, vào Công cụ chủ đề (trên cùng bên phải bài viết), chọn Edit Title , nó hiện ra hộp thoại để sửa tiêu đề, khi sửa xong nhấn nút Lưu thay đổi.

 

[minhtungph]

bạn click phải lên sheet1, chọn view code, và dán code này vào, sau đó nhập tên của khách ở ô C8, tuy nhiên việc tìm tên sẽ có tên trùng, nên khuyên bạn hãy tạo mã khách hàng, để đảm bảo mỗi khách chỉ có 1 mã duy nhất

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$8" Then
        Dim rng As Range
        Application.EnableEvents = False
        Set rng = Sheet3.Range("DiaChi").Resize(, 1).Find("*" & Target & "*", , xlValues, xlWhole)
        [c9] = Space(0)
        If Not rng Is Nothing Then [c9] = rng(, 2).Value
        Application.EnableEvents = True
    End If
End Sub

 

[anhha_mobile]

bạn nên tạo thêm 1 sheet giao dịch nữa
sheet này gồm các cột như sau
ngày mã kh người mua số lương dvt chủng loại thành tiên

như vậy chỉ cần gõ ma kh là có thể được như mẫu của bạn rôi

xin cảm ơn bạn nhiều mình không biết ji về codr cả nếu được bạn giúp là dùm mình và tạo cho mình nút lưu lại háo đơn luôn xin thành thật cảm ơn

 

[anhha_mobile]

bạn click phải lên sheet1, chọn view code, và dán code này vào, sau đó nhập tên của khách ở ô C8, tuy nhiên việc tìm tên sẽ có tên trùng, nên khuyên bạn hãy tạo mã khách hàng, để đảm bảo mỗi khách chỉ có 1 mã duy nhất

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$8" Then
        Dim rng As Range
        Application.EnableEvents = False
        Set rng = Sheet3.Range("DiaChi").Resize(, 1).Find("*" & Target & "*", , xlValues, xlWhole)
        [c9] = Space(0)
        If Not rng Is Nothing Then [c9] = rng(, 2).Value
        Application.EnableEvents = True
    End If
End Sub

xin cảm ơn bạn nhiều mình không biết ji về codr cả nếu được bạn giúp là dùm mình và tạo cho mình nút lưu lại háo đơn luôn xin thành thật cảm ơn

 

[be_09]

Tham khảo File trong bài viết sau là tương tự:
http://www.giaiphapexcel.com/diendan/threads/theo-dõi-và-truy-vấn-đơn-thuốc-nơi-phòng-khám-bệnh.126073/