Code update du liệu

[nguyenvietviet]

Mọi người sửa giúp em đoạn code này với.
Em có file tự động update update khi thêm dữ liệu mới vào cột B thì nó sẽ update vào cột G, nhưng em mới vó cập nhập sang cột B của sheet 2 mong mọi người giúp.

 

[concogia]

Mọi người sửa giúp em đoạn code này với.
Em có file tự động update update khi thêm dữ liệu mới vào cột B thì nó sẽ update vào cột G, nhưng em mới vó cập nhập sang cột B của sheet 2 mong mọi người giúp.

Right Click vào sheet2 ==> View Code ==> chép code này vào

Private Sub Worksheet_Activate()
Dim Vung, d, Cll
    Vung = Sheets("sheet1").Range(Sheets("sheet1").[B2], Sheets("sheet1").[B20000].End(xlUp))
    Set d = CreateObject("scripting.dictionary")
        For Each Cll In Vung
            If Cll <> "" Then
                If Not d.exists(Cll) Then d.Add Cll, ""
            End If
        Next Cll
    [B2:B10000].ClearContents
    [B2].Resize(d.Count) = Application.WorksheetFunction.Transpose(d.keys)
    Range([B2], [B20000].End(xlUp)).Sort Key1:=Range("B1"), Order1:=xlAscending
End Sub

Thân

 

[Hoàng Trọng Nghĩa]

Nếu không dùng dao to búa lớn như bác Concogia thì dùng code như của bạn, chỉnh lại chút thôi:

Private Sub WorkSheet_Change(ByVal target As Range)
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If Not Intersect(target, Range("B2:B1000")) Is Nothing Then
        Sheet2.Range("B:B").ClearContents
        Range([B1], [B65536].End(xlUp)).AdvancedFilter _
        Action:=xlFilterCopy, CopyToRange:=Sheet2.[B1], Unique:=True
        Range(Sheet2.[B1], Sheet2.[B65536].End(xlUp)).Sort Sheet2.[B1], 1, , , , , , xlYes
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[quykh]

người ta muốn cập nhật vào cột B của sheet 2 cơ mà (qua sheet khác)