Anh chị viết giúp em đoạn code cho file đính kèm

[tanphat_tk]

Chào anh chị,
Em đang có 1 file exell mà em ko có pass muốn học hỏi để thay đổi file này lại theo ý của mình. Nhưng em ko biết về VBA. Em mô tả lại file đính kèm anh chị viết giúp em với.

Em có dữ liệu ở sheet tổng hợp. Em muốn gõ vào tên hàng là bus hay thep thì dòng dữ liệu tương ứng sẽ đươc copy sang sheet bus hoặc sheet thep tương ứng.

Anh chị vui lòng tham khảo file sau: close
Em cảm ơn.

 

[be09]

Ðề: Anh chị viết giúp em đoạn code cho file đính kèm

Không biết bạn lấy File này của ai, ở đâu, bạn muốn sử dụng vào công việc nên tôi chỉ giúp bạn xem code của sheet TONG HOP như sau.

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

Bạn muốn sử dụng vào việc gì thì tùy ý, còn sheet BUS Và THEP thì không có code.