tự động trích lọc cell có màu nền sang sheet mới

[huutinh85]

e có 1 workbook có 2 sheet, sheet 1 chứa dữ liệu tổng họp trong đó bao gồm ngày công nghĩa vụ và tăng ca. giờ e muốn trích lọc riêng ngày công tăng ca và theo dõi ở 1 sheet khác nhưng chưa biết làm thế nào. cụ thể e nên trong file mong các thầy và các bạn giúp đỡ. cảm thầy và các bạn đã quan tâm

 

[giangleloi]

e có 1 workbook có 2 sheet, sheet 1 chứa dữ liệu tổng họp trong đó bao gồm ngày công nghĩa vụ và tăng ca. giờ e muốn trích lọc riêng ngày công tăng ca và theo dõi ở 1 sheet khác nhưng chưa biết làm thế nào. cụ thể e nên trong file mong các thầy và các bạn giúp đỡ. cảm thầy và các bạn đã quan tâm

1/ Muốn lọc các Cell có "*" thì bạn áp dụng công thức này tại E4 sheet "tang":

=IF(RIGHT('du lieu'!E4,1)="*",'du lieu'!E4,"")

2/ Vấn đề màu sắc thì phải dùng VBA thôi bạn. Còn làm thủ công thì chỉ fill màu hết cell bên sheet "du lieu" rồi xài chắc năng Format Painter.

 

[huutinh85]

1/ Muốn lọc các Cell có "*" thì bạn áp dụng công thức này tại E4 sheet "tang":

=IF(RIGHT('du lieu'!E4,1)="*",'du lieu'!E4,"")

2/ Vấn đề màu sắc thì phải dùng VBA thôi bạn. Còn làm thủ công thì chỉ fill màu hết cell bên sheet "du lieu" rồi xài chắc năng Format Painter.

cảm ơn bạn nhưng mình muốn tự động hoặc dùng vba còn việc fiil màu thì ko phải fiil het mà chỉ một số ceel thôi

 

[giangleloi]

cảm ơn bạn nhưng mình muốn tự động hoặc dùng vba còn việc fiil màu thì ko phải fiil het mà chỉ một số ceel thôi

Thì ý tôi đang nói bạn fill cell nào thì fill sau đó xài chức năng Format Painter mà. Theo bạn công thức là không tự động? Bạn có phải ngồi gõ thủ công lại chút nào bên sheet cần lọc ra đâu? Còn VBA với bài của bạn rất đơn giản. Mong có được sự phản hồi rõ ràng từ bạn.

 

[huutinh85]

Thì ý tôi đang nói bạn fill cell nào thì fill sau đó xài chức năng Format Painter mà. Theo bạn công thức là không tự động? Bạn có phải ngồi gõ thủ công lại chút nào bên sheet cần lọc ra đâu? Còn VBA với bài của bạn rất đơn giản. Mong có được sự phản hồi rõ ràng từ bạn.

ý mình là dùng vba. Khi mình thay đổi dữ liệu bên sheet "du lieuj" (thêm, bớt dữ liệu hoặc fill nền cell). khi bấm chọn sheet " tang" thì sẽ tạo ra sheet theo yêu cầu.

 

[Ba Tê]

ý mình là dùng vba. Khi mình thay đổi dữ liệu bên sheet "du lieuj" (thêm, bớt dữ liệu hoặc fill nền cell). khi bấm chọn sheet " tang" thì sẽ tạo ra sheet theo yêu cầu.

1/ Copy y chang sheet "du lieu" sang sheet "tang" ?
2/ Xoá những ô không có dấu "*" bên phải ?
Làm thủ công như vậy đúng không ?

Public Sub S_Copy()
Dim Cll As Range, Rws As Long
Rws = Sheets("du lieu").Range("A1000").End(xlUp).Row
Sheets("tang").Range("A4:M100").Clear
Sheets("du lieu").Range("A4:M" & Rws).Copy Sheets("tang").Range("A4")
For Each Cll In Sheets("tang").Range("E4:M" & Rws)
    If Cll.Value <> Empty Then
        If Right(Cll.Value, 1) <> "*" Then Cll.Value = Empty
    End If
Next
End Sub

 

[huutinh85]

1/ Copy y chang sheet "du lieu" sang sheet "tang" ?
2/ Xoá những ô không có dấu "*" bên phải ?
Làm thủ công như vậy đúng không ?

Public Sub S_Copy()
Dim Cll As Range, Rws As Long
Rws = Sheets("du lieu").Range("A1000").End(xlUp).Row
Sheets("tang").Range("A4:M100").Clear
Sheets("du lieu").Range("A4:M" & Rws).Copy Sheets("tang").Range("A4")
For Each Cll In Sheets("tang").Range("E4:M" & Rws)
    If Cll.Value <> Empty Then
        If Right(Cll.Value, 1) <> "*" Then Cll.Value = Empty
    End If
Next
End Sub

cảm ơn anh bate rất nhiều, đúng như ý định của mình. Nhưng có một vấn đề nhỏ:khi mình có ý gộp cv của một người lại (merger phần tên ) sau đó chạy code thì không thể copy hơn 1 dòng của người cuối cùng trong danh sách (GIỐNG NHỪ FILE MÌNH GỬI BÊN DƯỚI). mong các bạn có thể khắc phục giúp mình!cảm ơn các bạn rất nhiều