In Phieu NXK tự động : chọn số phiếu, phiếu thể hiện nhiều dòng cho các mặt hàng ? (1 người xem)

[Xuong Rong]

Nhờ các anh chị giúp đỡ :

Em muốn tạo file in phiếu nhập xuất kho tự động. Ở sheet phiếu nhập, chọn số phiếu, phải dùng hàm gì để thể hiện nhiều dòng của các mặt hàng trên phiếu nhập ?

Cảm ơn

 

[chuot0106]

Nhờ các anh chị giúp đỡ :

Em muốn tạo file in phiếu nhập xuất kho tự động. Ở sheet phiếu nhập, chọn số phiếu, phải dùng hàm gì để thể hiện nhiều dòng của các mặt hàng trên phiếu nhập ?

Cảm ơn

Bạn đưa File thật lên nếu sợ lộ bí mật thì đưa File giả lập lên cũng được và mô tả thật rõ ràng yêu cầu của bạn trong File đó. Có như vậy thì các thành viên mới biết đường mà giúp đỡ bạn chứ?

 

[Xuong Rong]

Xin gởi file, các anh chị xem giúp

 

[dovanhoc84]

Xin gởi file, các anh chị xem giúp

bạn dùng tạm cái này xem. Tuy không nhanh ghê gớm nhưng mà cũng tàm tạm.

 

[doveandrose]

sáng thấy topic này rồi tính làm cái code mà thôi . vì biết ở đây có nghệ sĩ viết công thức và đang chờ người ấy vào làm . đúng thật

 

[Xuong Rong]

1. Dùng cột phụ tại sheet Master Data: cột N nhé. Công thức cho N4, sau đó kéo xuống cho hết các dòng còn lại ở phía dưới

 =IF($A3='Phieu NK'!$H$4,MAX($N$2:N2)+1,"")

2. Tại sheet Phiếu NK. Công thức cho B9, fill ngang đến cột F, fill xuống

 =IFERROR(INDEX('Master data'!F$3:F$26,MATCH(ROW()-8,'Master data'!$N$3:$N$26,0)),"")

3. Còn muốn "cót két" thì xài đoạn Sự kiện này. Paste vào sheet Phieu NK

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sh As Worksheet, Arr()
Dim Rws As Long, J&, W&, d As String
If Target.Address = "$H$4" Then
    d = Sheet4.Range("H4").Value
    Set Sh = Sheet3
    With Sh.[A3]
        Rws = .CurrentRegion.Rows.Count
        Arr() = .Resize(Rws, 12).Value
    End With
    
    ReDim dArr(1 To Rws, 1 To 5)
    For J = 1 To UBound(Arr())
        If Arr(J, 1) = d Then
            W = 1 + W
            dArr(W, 1) = Arr(J, 6)
            dArr(W, 2) = Arr(J, 7)
            dArr(W, 3) = Arr(J, 8)
            dArr(W, 4) = Arr(J, 9)
            dArr(W, 5) = Arr(J, 10)
        End If
    Next J
    If W Then
        Sheet4.[B9].Resize(12, 5).ClearContents
        Sheet4.[B9].Resize(W, 5).Value = dArr()
    End If
End If
End Sub

4. Còn muốn code ngon hơn nữa thì.........đợi anh "Chim Hồng" ở #6 anh ấy "cót két" cho ngọt..........

Em làm theo bước 1 & 2. Công thức anh hướng dẫn ko hoàn toàn chính xác, và em cũng ko hiểu công dụng các hàm, hic, nhắm mắt làm theo, và sửa đổi lại cho ra kết quả như ý. Trời ơi, mới lỏm bỏm áp dụng hàm 1 cách máy móc, được như ý mà thấy "phấn khích" quá. Cảm ơn nhiều

 

[Xuong Rong]

Công thức 1&2 áp dụng ko hoàn toàn chính xác? Ko chính xác ở chỗ nào vậy bạn?

Công thức hàm Match(row()-8 :thay số 8 bằng số khác mới đúng, VD vậy, em ko nhớ chính xác nữa, nhưng phải thay số thì mới đúng.

Em nhờ giúp đỡ thêm :

1/ Ở sheet Master data, cột Tên hàng, khi gõ tên hàng thì sẽ xổ ra 1 list có các ký tự tương ứng với ký tự đã gõ vào.

VD : gõ chữ Nh thì sẽ list ra các mặt hàng có chữ Nh để danh sách lựa chọn ngắn lại

2/ Ở sheet PNK, khi gõ vào Combo box thì hiện ra nhiều dòng của PNK số 1 quá, làm sao để mỗi số phiếu NK chỉ hiện ra 1 lần ?

Mong các anh chị giúp em. Em cảm ơn

 

[HyperLink]

Công thức hàm Match(row()-8 :thay số 8 bằng số khác mới đúng, VD vậy, em ko nhớ chính xác nữa, nhưng phải thay số thì mới đúng.
Em nhờ giúp đỡ thêm :
1/ Ở sheet Master data, cột Tên hàng, khi gõ tên hàng thì sẽ xổ ra 1 list có các ký tự tương ứng với ký tự đã gõ vào.
VD : gõ chữ Nh thì sẽ list ra các mặt hàng có chữ Nh để danh sách lựa chọn ngắn lại
2/ Ở sheet PNK, khi gõ vào Combo box thì hiện ra nhiều dòng của PNK số 1 quá, làm sao để mỗi số phiếu NK chỉ hiện ra 1 lần ?
Mong các anh chị giúp em. Em cảm ơn

yêu cầu 1: nhìn vào 2 cột mã hàng (D) và tên hàng (E) sheet Master data số liệu ko chuẩn => ô thì có công thức ô thì ko trong cùng 1 cột

 

[Xuong Rong]

Em gởi file ah. Xem file mới giúp em

 

[n0thing1988]

Em gởi file ah. Xem file mới giúp em

yêu cầu 1.
Sheet DM HTK bạn sort dữ liệu theo cột B ( tên hàng)
Ctr+F3 đặt name .
tenhang=OFFSET('DM HTK'!$B$3,0,0,COUNTA('DM HTK'!$B$3:$B$658),1)
Sheet Master data tại E2 chọn data validition chọn list phần source gõ công thức sau
=OFFSET('DM HTK'!$B$3,MATCH($E$2&"*",tenhang,0)-1,0,COUNTIF(tenhang,$E$2&"*"),1)
Nhớ loại phần error ra nhé
Yêu cầu 2
thì copy nguyên cột A sheet master Data ra 1 chỗ nào đó
Rồi dùng Remove Duplicate để loại bỏ trùng. Sau đó làm Data Validition theo list duy nhất đó. Thế là nhẹ file nhẹ máy

 

[HyperLink]

Em gởi file ah. Xem file mới giúp em

mình trả lời yêu cầu 1 (#9):
- mở file, cho chạy Macro
- sheet Master data, bạn Double click vào cột Tên hàng (khi ô = trống) để mở Form tìm kiếm
- đọc thêm phần hướng dẫn có trên Form nhé

 

[Xuong Rong]

Rất cảm ơn mọi người giúp đỡ, file tạo ra y như mong muốn luôn

 

[Xuong Rong]

File xài Code VBA nên bạn cần Enable Macro

1. Trả lời yêu cầu 1 của bạn, cột tên hàng tại sheet Master Data, click vào ô trống (chưa có dữ liệu) thì sẽ gõ được tên mặt hàng cần tìm: gõ không dấu, có dấu, bất cứ ký tự gì , chữ thường , in hoa đều được gợi ý.
Dùng phím tab hoặc mũi tên xuống để chuyển xuống bên dưới listbox, enter để chọn. Cứ thế tiếp tục............

Nếu ô nào đã có dữ liệu (tên mặt hàng) rồi thì cái khung dò tìm (textbox+listbox) sẽ được ẩn, bạn muốn gõ lại mặt hàng khác thì vui lòng xóa trắng cái tên hàng cũ đi thì nó sẽ hiện ra khung gõ & tìm tương tự như nhập mới......

2. Về yêu cầu tạo data validtion cho ô L6 tại sheet Phieu NK: vấn đề này trong file code sẽ tự động làm cho bạn. Bạn cứ mở sheet này lên thì số phiếu tự động nạp vào ô L6 cho bạn.......bạn cứ việc chọn phiếu nào tùy thích.

3. Có làm thêm cho bạn tại sheet Phieu NK. Thay đổi số phiếu tại L6 thì số liệu từ dòng A10:G21 sẽ tự động được điền vào (thay vì trước kia tôi đã từng làm công thức cho bạn, bây giờ bạn có thể hoàn toàn xóa cột phụ bên sheet Master data....mà trước kia tôi làm cho bạn.)

Có thể chỉ cho em link hướng dẫn cách làm cho các yêu cầu của em ko ah ? Em rất muốn có thể tự tay làm, để có thể thay đổi theo ý muốn. Thật sự là em rất kém, nhưng hy vọng sẽ cố gắng tiếp thu phần nào. Thanksssss

 

[Xuong Rong]

Link thì đầy rẫy trên GPE.....nó ở Box lập trình, hoặc Box nào đó liên quan tới Code. Bạn muốn tự tay làm.......thì phải tự học trên GPE thôi, dần dần rồi tích lũy...... chứ tôi hok biết hướng dẫn sao cho đặng cả. Bởi, tôi cũng mày mò học hỏi trên GPE cả thôi......chứ chẳng ai tự nhiên mà biết được mấy cái đó đâu.hihi......

Hihi, trước mắt em muốn biết cách tự làm yêu cầu 1 ah. Vì hỏi rồi, giờ muốn làm cái tương tự, thì ngại quá, sợ làm phiền

 

[Xuong Rong]

Cứu file dùm em với ah. Ko hiểu sao mở file lên cứ báo lỗi : Run error 348, phải chọn End hoặc Debug ?