Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 6 Then
If Cells(Target.Row, 6) = "" Then
Else
If UCase(Target) = "BUS" Then
With Sheets("BUS").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "COKHI" Then
With Sheets("COKHI").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "TAI" Then
With Sheets("TAI").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "SXPT" Then
With Sheets("SXPT").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "THEP" Then
With Sheets("THEP").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "KIA" Then
With Sheets("KIA").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "MAZDA" Then
With Sheets("MAZDA").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "PC" Then
With Sheets("PC").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "KVBB" Then
With Sheets("KVBB").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "CDBB" Then
With Sheets("CDBB").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "CPTH" Then
With Sheets("CPTH").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "CODIEN" Then
With Sheets("CODIEN").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "HOACHAT" Then
With Sheets("HOACHAT").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "VTB" Then
With Sheets("VTB").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "CANG" Then
With Sheets("CANG").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "CV" Then
With Sheets("CV").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "LKN" Then
With Sheets("LKN").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
ElseIf UCase(Target) = "CDNB" Then
With Sheets("CDNB").[a65536].End(3)
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy .Offset(1)
End With
End If
End If
End If
End Sub
Private Sub Worksheet_Deactivate()
Worksheets("TONGHOP").AutoFilterMode = False
End Sub