Hallo,
Met onderstaande code loop ik door elke rij. In elke rij moet
- dim ra = gezocht worden naar de waarde "1",
- dim duur = vanaf de cel waarin de "1" staat moet dan een selectie gemaakt worden van een aantal cellen - dat aantal wordt bepaald door een waarde in een andere cel
- die cellen moeten dan groen gekleurd worden
Dit lukt ... bijna. Echter de startcel verandert niet per rij, maar lijkt de te blijven zoals ze gevonden was voor de eerste rij of zoekresultaat.
Met onderstaande code loop ik door elke rij. In elke rij moet
- dim ra = gezocht worden naar de waarde "1",
- dim duur = vanaf de cel waarin de "1" staat moet dan een selectie gemaakt worden van een aantal cellen - dat aantal wordt bepaald door een waarde in een andere cel
- die cellen moeten dan groen gekleurd worden
Dit lukt ... bijna. Echter de startcel verandert niet per rij, maar lijkt de te blijven zoals ze gevonden was voor de eerste rij of zoekresultaat.
Code:
Sub metForLoop()
nRows = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To nRows
'duur halen uit kolom D als var
'ra als start cel
Dim duur As Integer
Dim ra As Variant
'START CEL: zoek in F2 tot Z2 naar eerst 1
Set ra = Range(Cells(i, 6), Cells(i, 100)).Find(What:=1)
'DUUR: ophalen uit D2
duur = Cells(i, 4).Value
'EIND CEL en BEREIK - dynamisch obv duur bv Fi + duur kolommen
ra.Select
Selection.Resize(Selection.Rows.Count, _
Selection.Columns.Count + duur).Interior.Color = RGB(102, 204, 0)
Next
End Sub