Tự động nhập liệu theo điều kiện

[vanlinh_2904]

Mình có dữ liệu nhờ các anh chị giúp mình code để khi nhập liệu ở cột B ( nhập hoặc copy ), xét nếu có cùng số ID ở cột C thì tự động điền tất cả các ô còn lại có cùng ID ở cột B ( kể cả trên hoặc dưới ). Cảm ơn các anh chị.

 

[bebo021999]

Chạy đỡ cái này. Click chuột phải trên tên sheet/View code, copy/paste code này vào:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&, id As String, f, u, ad As String
lr = Cells(Rows.Count, "C").End(xlUp).Row
If Intersect(Target, Range("B3:B" & lr)) Is Nothing Or Target.Count > 1 Then Exit Sub
id = Target.Offset(0, 1).Value
If Target.Value = "" Or id = "" Then Exit Sub
Set f = Range("C3:C" & lr).Find(what:=id, after:=Range("C3"), searchdirection:=xlNext)
If Not f Is Nothing Then
    ad = f.Address
    Set u = f.Offset(, -1)
    Do
        Set f = Range("C3:C" & lr).FindNext(f)
        If Not f Is Nothing Then
            Set u = Union(u, f.Offset(, -1))
        End If
    Loop Until f.Address = ad
End If
u.Value = Target.Value
End Sub

 

[vanlinh_2904]

Chạy đỡ cái này. Click chuột phải trên tên sheet/View code, copy/paste code này vào:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&, id As String, f, u, ad As String
lr = Cells(Rows.Count, "C").End(xlUp).Row
If Intersect(Target, Range("B3:B" & lr)) Is Nothing Or Target.Count > 1 Then Exit Sub
id = Target.Offset(0, 1).Value
If Target.Value = "" Or id = "" Then Exit Sub
Set f = Range("C3:C" & lr).Find(what:=id, after:=Range("C3"), searchdirection:=xlNext)
If Not f Is Nothing Then
    ad = f.Address
    Set u = f.Offset(, -1)
    Do
        Set f = Range("C3:C" & lr).FindNext(f)
        If Not f Is Nothing Then
            Set u = Union(u, f.Offset(, -1))
        End If
    Loop Until f.Address = ad
End If
u.Value = Target.Value
End Sub

Nhờ anh sửa giúp em nếu copy dán dữ liệu có từ 2 ô trở lên vẫn chưa chạy được. Cảm ơn anh nhiều nhé.

 

[bebo021999]

Nhờ anh sửa giúp em nếu copy dán dữ liệu có từ 2 ô trở lên vẫn chưa chạy được. Cảm ơn anh nhiều nhé.

Bỏ cái này đi

Or Target.Count > 1

 

[vanlinh_2904]

Thấy báo lỗi như vậy anh. Anh xem lại giúp em với ạ

 

[vanlinh_2904]

Bỏ cái này đi

Or Target.Count > 1

Nhờ anh xem lại giúp em lỗi ở bài 5 giúp em với ạ.