Binnen een range eerste lege cel selecteren die geel gekleurd is

[jagea]

Binnen de range C9:C37,G9:G37,K9:K37 wil ik graag de eerste lege cel selecteren die geel gekleurd is (Color = 65535).

Krijg het maar niet voor elkaar. Heb het volgende geprobeerd, maar het werkt niet:


Sub lege()

Dim iTel As Integer
For iTel = 9 To 37
If Range("C" & iTel).Value = 0 & Range("C" & iTel).Interior.Color = 65535 Then Range("C" & iTel).Select
If Range("G" & iTel).Value = 0 & Range("G" & iTel).Interior.Color = 65535 Then Range("G" & iTel).Select
If Range("K" & iTel).Value = 0 & Range("C" & iTel).Interior.Color = 65535 Then Range("K" & iTel).Select
Next

End Sub


Wie helpt?

Al vast bedankt,

Age

 

[Niels28]

van boven naar onder gelezen.

Sub test1()
For Each cl In Range("C9:C37,G9:G37,K9:K37").SpecialCells(xlCellTypeBlanks)
If cl.Interior.Color = 65535 Then
cl.Select
Exit For
End If
Next
End Sub

van links naar rechts

Sub test()
    For i = 9 To 37
        For j = 3 To 11 Step 4
                    If Cells(i, j).Value = "" And Cells(i, j).Interior.Color = 65535 Then
                Cells(i, j).Select
                i = 38
                Exit For
            End If
        Next
    Next
End Sub

Niels

 

[jagea]

opgelost!

Niels bedankt!

Werkt prima zo.

Age