Cần giúp viết Code tìm (Find) đến ô đầu tiên nằm trên cùng có màu vàng ở cột C (2 người xem)

[hung2412]

Chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
1. Có Code nào tìm (Find) đến ô đầu tiên nằm trên cùng có màu vàng (Có dữ liệu bất kỳ) ở cột C?
Ví dụ: Tìm (Find) đến ô C14 có dữ liệu và có màu vàng nằm trên cùng cột C.
2. Đề bài như trên nhưng ô không có dữ liệu.
Ví dụ: Tìm (Find) đến ô C28 không có dữ liệu và có màu vàng nằm trên cùng cột C.
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

 

[Hau151978]

Sub Vang()
    Dim i&, s$
    s = "Khong co o mau vang"
        For i = 1 To Columns(3).Rows.Count
          With Cells(i, 3)
            If .Interior.ColorIndex = 6 And .Value = "" Then
                 s = .Address
                 .Select
                 Exit For
            End If
          End With
         Next
    MsgBox s
End Sub

Nếu tìm ô chứa dữ liệu thì sửa thành .Value <>""

 

[hung2412]

Sub Vang()
    Dim i&, s$
    s = "Khong co o mau vang"
        For i = 1 To Columns(3).Rows.Count
          With Cells(i, 3)
            If .Interior.ColorIndex = 6 And .Value = "" Then
                 s = .Address
                 .Select
                 Exit For
            End If
          End With
         Next
    MsgBox s
End Sub

Nếu tìm ô chứa dữ liệu thì sửa thành .Value <>""

Cảm ơn bạn, chắc là không có kiểu Find như vầy:

[C:C].Find("NguyÔn V¨n Kiªn", , , , , , False, False).Activate

 

[nghiaphuc]

Cảm ơn bạn, chắc là không có kiểu Find như vầy:

[C:C].Find("NguyÔn V¨n Kiªn", , , , , , False, False).Activate

Có đấy chứ. Tuy nhiên, câu lệnh sẽ gặp lỗi nếu không tìm thấy giá trị cần tìm trên cột C. Hơn nữa, nếu tìm kiểu này thì không tìm theo màu được.

 

[dhn46]

Câu hỏi 1 bạn dùng

    Application.FindFormat.Interior.Color = 65535
    Columns("C:C").Find(What:="", SearchFormat:=True).Activate

Câu hỏi 2 bạn dùng

    Columns("C:C").SpecialCells(xlCellTypeBlanks).Select
    Selection.Find(What:="", SearchFormat:=True).Activate

 

[hung2412]

Có đấy chứ. Tuy nhiên, câu lệnh sẽ gặp lỗi nếu không tìm thấy giá trị cần tìm trên cột C. Hơn nữa, nếu tìm kiểu này thì không tìm theo màu được.

Quan trọng là tìm theo màu, nếu mà không được thì chán nhỉ. Chắc phải dùng vòng lặp rồi.

 

[hung2412]

Câu hỏi 1 bạn dùng

    Application.FindFormat.Interior.Color = 65535
    Columns("C:C").Find(What:="", SearchFormat:=True).Activate

Câu hỏi 2 bạn dùng

    Columns("C:C").SpecialCells(xlCellTypeBlanks).Select
    Selection.Find(What:="", SearchFormat:=True).Activate

Code này của bạn rất hay.

 

[hung2412]

Câu hỏi 1 bạn dùng

    Application.FindFormat.Interior.Color = 65535
    Columns("C:C").Find(What:="", SearchFormat:=True).Activate

Câu hỏi 2 bạn dùng

    Columns("C:C").SpecialCells(xlCellTypeBlanks).Select
    Selection.Find(What:="", SearchFormat:=True).Activate

Bạn ơi, nếu tìm màu tím (màu 7) thì thay đổi Code như thế nào nhỉ? (Tôi loay hoay mãi mà không biết phải làm sao)

 

[hung2412]

1. Có Code nào tìm (Find) đến ô đầu tiên nằm trên cùng có màu vàng (Có dữ liệu bất kỳ) ở cột C?
2. Đề bài như trên nhưng ô không có dữ liệu.

1. Code tìm (Find) đến ô đầu tiên nằm trên cùng có màu vàng (Có dữ liệu bất kỳ) ở cột C

Application.FindFormat.Interior.Color = 65535
[C:C].Find(What:="*", SearchFormat:=True).Activate

2. Code tìm (Find) đến ô đầu tiên nằm trên cùng có màu vàng (Không có dữ liệu) ở cột C

Application.FindFormat.Interior.Color = 65535
[C:C].Find(What:="", SearchFormat:=True).Activate