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

[5dim]

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.

View more random threads:

• Bài tập Excel nâng cao!
• (Đưa bài dùm 1 bạn): Làm sao khi mở file (hay trang tính nào đó của file) là hàm dưới đây chạy ngay
• Ai biet lam cai cai nay khong
• Nhờ sửa lỗi code VBA trong Sổ cái
• LỊCH VÀ ĐỒNG HỒ
• Hàm đọc số ra chữ
• Giúp mình bài VBA này với :D
• Các anh chị pro ơi!!!!!!!!!!!! help me!!!!!!!!
• Phần mềm Quản lý kho hàng HTL Warehouse v2.0 (free 1 year)
• Tạo nút lệnh vừa khít với ô trong Excel

[tienhuy111]

Ðề: 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.

[thuthunga]

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

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.

Bạn xem theo file đính kèm