Lọc ô theo màu qua sheet khác

[hoclaptrinh]

e có 1 bảng dữ liệu sheet1, cột A là số thứ tự nhưng có ô có màu đỏ, màu xanh màu vàng, e muốn lọc ô có màu đỏ qua sheet khác (những thông tin của hàng có ô màu đỏ đi theo). Nhờ các ace giúp đở

 

[thnghiachau]

e có 1 bảng dữ liệu sheet1, cột A là số thứ tự nhưng có ô có màu đỏ, màu xanh màu vàng, e muốn lọc ô có màu đỏ qua sheet khác (những thông tin của hàng có ô màu đỏ đi theo). Nhờ các ace giúp đở

sao mình thấy toàn là màu trắng không vậy ta????
Có ai thấy giống mình không nhỉ???

 

[be_09]

e có 1 bảng dữ liệu sheet1, cột A là số thứ tự nhưng có ô có màu đỏ, màu xanh màu vàng, e muốn lọc ô có màu đỏ qua sheet khác (những thông tin của hàng có ô màu đỏ đi theo). Nhờ các ace giúp đở

Góp ý cho bạn:
Muốn làm cái gì đó thì nên đính kèm File, thì người giúp mới hướng dẫn cụ thể được.

 

[hoclaptrinh]

Góp ý cho bạn:
Muốn làm cái gì đó thì nên đính kèm File, thì người giúp mới hướng dẫn cụ thể được.

Gửi các ac giúp

 

[ndu96081631]

Gửi các ac giúp

Bạn biết dùng AutoFilter lọc theo màu không?

 

[hoclaptrinh]

Bạn biết dùng AutoFilter lọc theo màu không?

Dạ không, e chỉ biết lọc trên cùng 1 sheet và lọc theo cột thôi ạ!

 

[Quang_Hải]

e có 1 bảng dữ liệu sheet1, cột A là số thứ tự nhưng có ô có màu đỏ, màu xanh màu vàng, e muốn lọc ô có màu đỏ qua sheet khác (những thông tin của hàng có ô màu đỏ đi theo). Nhờ các ace giúp đở

Thử dùng chức năng Filter, sau đó chọn Filter By Color rồi chọn màu cần. Sau khi lọc copy phần nổi và dán vào chỗ khác

 

[hoclaptrinh]

Thử dùng chức năng Filter, sau đó chọn Filter By Color rồi chọn màu cần. Sau khi lọc copy phần nổi và dán vào chỗ khác

e muốn làm tự động một xíu, khi mình chèn hoặc thêm 1 dòng nếu có màu thì sẽ tự động chuyển qua sheet bên luôn ạ

 

[phulien1902]

e muốn làm tự động một xíu, khi mình chèn hoặc thêm 1 dòng nếu có màu thì sẽ tự động chuyển qua sheet bên luôn ạ

Bạn thử với màu đỏ xem:

Sub Test()
    Dim Sh As Worksheet, Rng As Range
    Set Sh = Sheet1
    Sheet1.Select
    Set Rng = Sh.Range("A2:D" & Cells(Rows.Count, 1).End(xlUp).Row)
    Rng.AutoFilter Field:=1, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor
    Rng.SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheet2.Range("A1")
    Rng.AutoFilter
End Sub

 

[Quang_Hải]

e muốn làm tự động một xíu, khi mình chèn hoặc thêm 1 dòng nếu có màu thì sẽ tự động chuyển qua sheet bên luôn ạ

Góp ý thế này nhé. Thay vì tô màu, bạn thêm một cột vào nhập "Màu Đỏ", "Màu Xanh"
Như vậy sẽ đơn giản hơn nhiều. Thật ra yêu cầu của bạn rất đơn giản, tuy nhiên nó không khoa học nên ít ai muốn làm.
Dân lập trình ít có người thích màu mè chói mắt nặng file.
Thân

 

[tijikama]

Bạn thử file này xem có đúng ý bạn không?
Cái này mình dùng record macro rồi chỉnh sửa chút xíu

 

[phulien1902]

e có 1 bảng dữ liệu sheet1, cột A là số thứ tự nhưng có ô có màu đỏ, màu xanh màu vàng, e muốn lọc ô có màu đỏ qua sheet khác (những thông tin của hàng có ô màu đỏ đi theo). Nhờ các ace giúp đở

Code đày đủ:

Sub Test()
    Dim Sh As Worksheet, Rng As Range
    Set Sh = Sheet1: Sheet1.Select
    Set Rng = Sh.Range("A2:D" & Cells(Rows.Count, 1).End(xlUp).Row)
    With Rng
        .AutoFilter Field:=1, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor
        .SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheet2.Range("A1")
        .AutoFilter Field:=1, Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor
        .SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheet3.Range("A1")
        .AutoFilter Field:=1, Criteria1:=RGB(0, 176, 80), Operator:=xlFilterCellColor
        .SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheet4.Range("A1")
        .AutoFilter
    End With
End Sub