LỌC VÀ DI CHUYỂN DỮ LIỆU QUA SHEET MỚI BẰNG MACRO (2 người xem)

[hutieumi105]

Xin Chào,

Em có dữ liệu như tập tin đính kèm
Cột H (Done) của sheet 1 (Main) được đánh dấu "x" là những dòng đã hoàn thành. Em muốn lọc những dòng đã được đánh dấu x, sau đó cắt những dòng này dán vào dòng tiếp theo (dòng 5) của sheet 2 (Done). Cứ thế tiếp tục cắt và dán tiếp theo sau những dòng đã có giá trị của sheet 2
Sau khi đã chuyển những dòng được đánh dấu "x" sang sheet 2 thì giá trị ở sheet 1 sẽ được trả về những dòng còn lại không có dấu "x" (nghĩa là trả về nguyên bản những dòng chưa hoàn thành).

Em xin nhờ mọi người giúp đỡ. Em cảm ơn

 

[phulien1902]

Xin Chào,

Em có dữ liệu như tập tin đính kèm
Cột H (Done) của sheet 1 (Main) được đánh dấu "x" là những dòng đã hoàn thành. Em muốn lọc những dòng đã được đánh dấu x, sau đó cắt những dòng này dán vào dòng tiếp theo (dòng 5) của sheet 2 (Done). Cứ thế tiếp tục cắt và dán tiếp theo sau những dòng đã có giá trị của sheet 2
Sau khi đã chuyển những dòng được đánh dấu "x" sang sheet 2 thì giá trị ở sheet 1 sẽ được trả về những dòng còn lại không có dấu "x" (nghĩa là trả về nguyên bản những dòng chưa hoàn thành).

Em xin nhờ mọi người giúp đỡ. Em cảm ơn

Thử:

Sub abc()
With Sheets("Main")
    .Range("A5:H" & .Range("A" & Rows.Count).End(3).Row).AutoFilter 8, "x"
    .Range("A6:H" & .Range("A" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Copy Sheets("Done").Range("A" & Rows.Count).End(3)(2)
    .Range("A6:H" & .Range("A" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Delete
    .AutoFilterMode = False
End With
End Sub

 

[hutieumi105]

Thử:

Sub abc()
With Sheets("Main")
    .Range("A5:H" & .Range("A" & Rows.Count).End(3).Row).AutoFilter 8, "x"
    .Range("A6:H" & .Range("A" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Copy Sheets("Done").Range("A" & Rows.Count).End(3)(2)
    .Range("A6:H" & .Range("A" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Delete
    .AutoFilterMode = False
End With
End Sub

Thử:

Sub abc()
With Sheets("Main")
    .Range("A5:H" & .Range("A" & Rows.Count).End(3).Row).AutoFilter 8, "x"
    .Range("A6:H" & .Range("A" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Copy Sheets("Done").Range("A" & Rows.Count).End(3)(2)
    .Range("A6:H" & .Range("A" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Delete
    .AutoFilterMode = False
End With
End Sub

Dạ em cảm ơn.