Waarde van 2 cellen in 2 kolommen zoeken en dan hele rij een kleur geven.

[MEradus]

Hallo,

Ik ben met een rapporttage bezig en heb daar al hulp bij gehad.
Maar nu zoek ik nog een manier *bijvoorbeeld* om in kolom S te zoeken naar bijvoorbeeld de waarde "na rittijd" en vervolgens te zoeken naar een waarde
in kolom R die groter is dan 16. En als dat het geval is, dat dan de hele rij geel gemaakt wordt.

Ik heb al een aantal dingen geprobeerd alleen ik kom niet verder dan een gedefineerde range. En dan komt het niet helemaal goed. Ik heb een bestandje bijgevoegt zodat er gezien kan worden wat ik ongeveer bedoel.

Ik hoop dat ik duidelijk genoeg ben in mijn uitleg.

Groeten Michel

Bekijk bijlage Map1.xlsx

 

[koster1984]

Ik zie nergens "na rittijd" maar heb maar iets gemaakt wat zoekt naar "te laat" (in sheets 1 t/m 3), kijk eens of dit is wat je zoekt:

Sub kstr()
Dim sht As Long, it As Range
For sht = 1 To 3
    For Each it In Sheets(sht).Range("S6:S58")
        If it = "te laat" And it.Offset(, -1) > 16 Then
            it.EntireRow.Interior.ColorIndex = 6
        Else
            it.EntireRow.Interior.ColorIndex = -4142
        End If
    Next
Next sht
End Sub

 

[MEradus]

Hoi Daniel

Bedankt voor je reactie!
Ik zal het even gaan testen.

Michel

 

[MEradus]

Hoi Daniel,


Ik heb getest en het komt heel erg in de buurt met wat ik zoek.
Ik heb hem iets aangepast zodat in alles gezocht wordt i.p.v. een gedefineerde range.
Maar nu is mijn vraag of hij nog iets verfijnd kan worden. Ik heb al zitten zoeken, maar ik kan het niet helemaal vinden. Hier onder mijn aanpassing

Sub kstr()
Dim sht As Long, it As Range
For sht = 1 To 1
For Each it In ActiveSheet.Range("S:S")
If it = "na rittijd" And it.Offset(, -1) > 16 Then
it.EntireRow.Interior.ColorIndex = 6
Else
it.EntireRow.Interior.ColorIndex = -4142
End If
Next
Next
End Sub

Is het ook mogelijk dat hij ipv de enitirerow alleen de 'gevulde' cellen geel maak? Ik heb zelf als row.range geprobeerd, maar dat zal wel te gemakkelijk gedacht zijn.
De rij is eigenlijk altijd van kolom A naar kolom S... Ik hoop dat je me nog een keer kunt helpen.

Gr Michel

 

[koster1984]

Dan zou je hem zo kunnen doen:

Sub kstr()
Dim it As Range
For Each it In ActiveSheet.Range("S:S")
    If it = "te laat" And it.Offset(, -1) > 16 Then
        Range("A" & it.Row & ":" & "S" & it.Row).Interior.ColorIndex = 6
    Else
        Range("A" & it.Row & ":" & "S" & it.Row).Interior.ColorIndex = -4142
    End If
Next
End Sub

Let wel dat de macro er een stuk langer over doet als je het voor heel de S-kolom laat doen

 

[MEradus]

Dit is precies wat ik bedoelde,

Bedankt voor je hulp!

Gr Michel

 

[koster1984]

Graag gedaan!