Nhờ sửa giùm code lọc các cặp TK duy nhất.

[ManhHungMHNH]

Mình có File lọc cặp TK đối ứng duy nhất bị sai code nhờ mọi người sửa lại giùm mình với nhé. cảm ơn nhiều à.

 

[ManhHungMHNH]

xin moi nguoi huong dan a/

 

[ptm0412]

Sub LocTKTH()
  Dim KyPS As String, No As String, Co As String, TT As String, Clls As Range
  Sheets("DKCTGS").Range("C12:E340").ClearContents
  With Range(Sheets("NhapCtu").[E6], Sheets("NhapCtu").[j2669].End(xlUp))
    .Offset(, 4).Resize(, 2).AdvancedFilter 1, , , True
    .Offset(1, 3).Resize(, 3).SpecialCells(12).Copy: Sheets("DKCTGS").Range("C12").PasteSpecial 3
    .Parent.ShowAllData
   End With
End Sub

 

[ManhHungMHNH]

Cảm ơn bạn nhiều à.mình đã làm theo code của bạn lọc các cặp TK duy nhất theo cột là được rồi, Còn một chổ bạn sửa code lại hộ mình, mình muốn lọc Cột G bên Bên Sheet NHAPCTU sang cột C sheet DKCTGS/ cảm ơn bạn nhiều à. code trên đang lọc cột Cột H bên Bên Sheet NHAPCTU

 

[ptm0412]

Sub LocTKTH()
  Dim KyPS As String, No As String, Co As String, TT As String, Clls As Range
  Sheets("DKCTGS").Range("C12:E340").ClearContents
  With Range(Sheets("NhapCtu").[E6], Sheets("NhapCtu").[j2669].End(xlUp))
    .Offset(, 4).Resize(, 2).AdvancedFilter 1, , , True
    Union(.Offset(1, 2).Resize(, 1), .Offset(1, 4).Resize(, 2)).SpecialCells(12).Copy: Sheets("DKCTGS").Range("C12").PasteSpecial 3
    .Parent.ShowAllData
   End With
End Sub