code nối chuỗi và lấy diễn giải (2 người xem)

[LuuAnh980]

Chào các anh chị!!!
Em có file này, trong file em dùng công thức ở cột Diễn giải, cột Mã Đơn Hàng sheet "DonHang".
Nay em nhờ các anh chị giúp em viết code dùm khi em nhập Đơn Hàng, Khách Hàng, Số Hóa Đơn, Số Phiếu, Mã số vào Các cột tương ứng của sheet"DonHang"thì lấy cột I của sheet"DanhMuc" đập vào cột diễn giải của sheet"DonHang" và cột mã Đơn Hàng sẽ là nối chuỗi của các cột: Đơn Hang - Khách Hàng - Số Hóa Đơn - Số Phiếu lại vơi nhau như em đang dùng công thức.
Mong các anh chị giúp đỡ.

 

[Hoàng Tuấn 868]

Chào các anh chị!!!
Em có file này, trong file em dùng công thức ở cột Diễn giải, cột Mã Đơn Hàng sheet "DonHang".
Nay em nhờ các anh chị giúp em viết code dùm khi em nhập Đơn Hàng, Khách Hàng, Số Hóa Đơn, Số Phiếu, Mã số vào Các cột tương ứng của sheet"DonHang"thì lấy cột I của sheet"DanhMuc" đập vào cột diễn giải của sheet"DonHang" và cột mã Đơn Hàng sẽ là nối chuỗi của các cột: Đơn Hang - Khách Hàng - Số Hóa Đơn - Số Phiếu lại vơi nhau như em đang dùng công thức.
Mong các anh chị giúp đỡ.

Bạn xem thử. . .

 

[LuuAnh980]

Sao em nhập dữ liệu vào câc cột của sheet "DonHang" không thấy code chạy anh @Hoàng Tuấn 868 ơi.
Em có nhấn nút "Cập Nhật" cũng không thấy gì.
Anh có thể viết code cho em khi nhập mã số vào cột Mã số của sheet "DonHang" thì tụ chạy code được không ạ (không cần nhấn nút Cập Nhật)

 

[Hoàng Tuấn 868]

Em có nhấn nút "Cập Nhật" cũng không thấy gì.

Ở máy tính mình vẫn chạy bình thường.

khi nhập mã số vào cột Mã số của sheet "DonHang" thì tụ chạy code

Bạn xem tập tin đính kèm.

 

[bebo021999]

Code này để trong worksheet module nhé, mỗi khi cột H thay đổi sẽ cập nhật
(Chuột phải trên sheet, View Code, dán code vô)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&, f, DM As Range
If Intersect(Target, Columns("H")) Is Nothing Then Exit Sub
With Sheets("DanhMuc")
    lr = .Cells(Rows.Count, "B").End(xlUp).Row
    Set DM = .Range("B6:B" & lr)
End With
On Error Resume Next
Set f = DM.Find(Target.Value)
If Not f Is Nothing Then
    With Target
        .Offset(0, 1).Value = f.Value
        .Offset(0, 1).Value = f.Offset(, 7).Value
        .Offset(0, 9).Value = "D" & .Offset(, -4) & "-" & .Offset(, -3) & "-" & .Offset(, -2) & "-" & .Offset(, -1)
    End With
End If
End Sub

 

[LuuAnh980]

Cám ơn 2 anh nhiều!!!!!
À, em biết rồi vì sao hôm qua em nhập mã số vào cột H của sheet Đơn Hàng code không chạy, là vì em định dạng cột mã số của sheet DanhMuc là Text, nên bên sheet DonHang gõ không đúng định dạng Text là không chạy code. Các anh có thể viết code để dữ liệu nhập vào cột mã số là định dạng Text luôn không ạ.

 

[bebo021999]

Vào sheet DonHang định dạng cả cột là Text đi bạn, code làm chi cho phức tạp, vì chỉ phát sinh 1 lần thôi.