Thầy ơi cho em hỏi tí ạ. Ví dụ ở đây chỗ Tên hàng, mỗi loại trái cây em tạo 1 sheet riêng luôn, và khi chọn loại trái cây nào thì data sẽ được thêm vào sheet tương tứng thì nên làm thế nào được ạ:
Bạn có thể làm thêm 1 bảng tham chiếu để biết tên nào ứng với Sheet nào.
Khi chọn tên tại ô A3, bạn có thể dùng hàm vlookup để biết tên Sheet tại 1 ô khác (ví dụ ô H3)
Sau đó trong code Lưu dữ liệu bạn làm như sau:
Sub Luu_Ket_Qua()
Dim TenSheet as String
TenSheet = Sheets("ThemMoi").Range("H3").Value
Dim DongCuoi as Long
DongCuoi = Sheets(TenSheet).Range("A" & Rows.Count).End(xlUp),Row
Sheets(TenSheet).Range("A" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("A3").Value
Sheets(TenSheet).Range("B" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("E3").Value
Sheets(TenSheet).Range("C" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("A6").Value
Sheets(TenSheet).Range("D" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("C6").Value
Sheets(TenSheet).Range("E" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("E6").Value
End Sub
Em đã thử và thành công, cảm ơn thầy ạ.