Tự động nhập khối lượng bì xe theo biển số xe (1 người xem)

[nguyenduongthan]

e muốn khi nhập biển số xe thì sẽ tự động có khối lượng bì cũ đã nhập mà không cần nhập lại và tự động cập nhật bì mới khi mình gõ bì mới ở lần tiếp theo. Mong mọi người giúp

 

[hung_xu20032000]

Chẳng thấy bì của bạn đâu cả. Bạn gửi lại file đi. Nếu mà không phức tạp bạn có thể dùng hàm vlookup để tạo được mà.

 

[nguyenduongthan]

thanks b nhá add nhầm file

 

[nguyenduongthan]

đã up lại file. mong mọi người giúp

 

[Let'GâuGâu]

đã up lại file. mong mọi người giúp

kiểm tra nha, tôi làm chứ chưa kiểm, ko biết nó chạy được ko

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SoXe As Range
If Not Intersect(Target, [B4:B60000]) Is Nothing Then
    Set SoXe = [B:B].Find(Target, , , 1)
    If Not SoXe Is Nothing Then Target.Offset(, 2).Value = SoXe.Offset(, 2).Value
End If
End Sub

 

[le_vis]

Code chay được nhưng chưa đúng yêu cầu của chủ top bạn ơi ! Ví dụ xe 34m1245 lần thứ nhất bì là 7800 lần 2 vẫn nhận 7800 nhưng lần 3 bì có thay đổi 8000 thì chủ top mốn lần 4 phải nhận là 8000 cơ. bạn xem lại giúp chủ top nhé

 

[nguyenduongthan]

Thank mọi người đã đọc và trả lời bài

 

[Let'GâuGâu]

Thank mọi người đã đọc và trả lời bài

hỏi mà còn hỏi kiểu nữa
thử vậy coi, hỏng đúng thì thui

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SoXe As Range, bi As Long
If Not Intersect(Target, [B4:B60000]) Is Nothing Then
    Set SoXe = [B:B].Find(Target, , , 1)
    If Not SoXe Is Nothing Then bi = SoXe.Offset(, 2).Value
    Do
    Set SoXe = SoXe.Resize(1000).Find(Target, , , 1)
    If Not SoXe Is Nothing And SoXe.Row < Target.Row Then bi = SoXe.Offset(, 2).Value
    Loop While SoXe.Row < Target.Row
    Target.Offset(, 2).Value = bi
End If
End Sub

 

[le_vis]

Cảm ơn Let'GâuGâu về bài viết này. Không phải là mình hỏi kiểu mà là kiểu hỏi chứ. Bạn có ghi Sòng phẳng là tri kỷ . Cảm ơn bạn Code chạy tốt chăc chủ top vui nhiều, còn mình thì học thêm được đôi điều về kiến thức và ứng hỏi

 

[nguyenduongthan]

Vâng e rất vui bác le_vis, không phải hỏi kiểu hay kiêu gì đâu bác. E nói thế giống như lời kết topic ấy mà.