copy pastvalue các ô có mã màu nền là RGB(204, 255, 255) trong vùng chọn (2 người xem)

[newhope2005]

Các bác cho E hỏi. E muốn copy pastvalue tất cả các ô có mã màu nền là RGB(204, 255, 255) trong 1 vùng chọn nào đó (Hoặc cả sheet) Còn các ô khác vẫn giữ nguyên không làm gì cả thì dùng code nào hả các bác ơi.

Rất mong được giúp đỡ

 

[ndu96081631]

Các bác cho E hỏi. E muốn copy pastvalue tất cả các ô có mã màu nền là RGB(204, 255, 255) trong 1 vùng chọn nào đó (Hoặc cả sheet) Còn các ô khác vẫn giữ nguyên không làm gì cả thì dùng code nào hả các bác ơi.

Rất mong được giúp đỡ

Bạn đưa file của bạn lên đây! Nhớ ghi rõ vùng dữ liệu sau khi paste nó có "hình dáng" thế nào nhé

 

[newhope2005]

Bạn đưa file của bạn lên đây! Nhớ ghi rõ vùng dữ liệu sau khi paste nó có "hình dáng" thế nào nhé

File Em gửi đây ah. Nội dung Em hỏi ghi trong file

 

[nghiaphuc]

File Em gửi đây ah. Nội dung Em hỏi ghi trong file

Bạn thử dùng code này xem nhé (chọn vùng và chạy code):

Sub Test()
    Dim Cll As Range
    For Each Cll In Selection.Cells
        If Cll.Interior.ColorIndex = 34 Then Cll.Value = Cll.Value
    Next
End Sub

 

[newhope2005]

Bạn thử dùng code này xem nhé (chọn vùng và chạy code):

Sub Test()
    Dim Cll As Range
    For Each Cll In Selection.Cells
        If Cll.Interior.ColorIndex = 34 Then Cll.Value = Cll.Value
    Next
End Sub

Code trên e để ở sheet thì nó chạy. cho vào module "run" là "treo" luôn.
Có thể thay số 34 bằng RGB(204, 255, 255) không ah.

 

[ndu96081631]

Code trên e để ở sheet thì nó chạy. cho vào module "run" là "treo" luôn.
.

Tôi cho code vào module, chạy có thấy "treo" gì đâu, trừ file là bản thân file gốc của bạn quá nặng

Có thể thay số 34 bằng RGB(204, 255, 255) không ah.

Thay thành vầy:

Sub Test()
  Dim Clls As Range
  For Each Clls In ActiveSheet.UsedRange
    If Clls.Interior.Color = RGB(204, 255, 255) Then Clls.Value = Clls.Value
  Next
End Sub

 

[toandiennuoc123]

Bạn thử dùng code này xem nhé (chọn vùng và chạy code):

Sub Test()
    Dim Cll As Range
    For Each Cll In Selection.Cells
        If Cll.Interior.ColorIndex = 34 Then Cll.Value = Cll.Value
    Next
End Sub

Code sửa code này như thế nào nếu vùng chọn là B5:AF1140 và ô paste là AH1. Xin cám ơn