Hallo,
Ik ben een echt leek in VBA, dus ik kan wel wat hulp gebruiken.
In mijn excel file bestaat kolom F uit percentages. Deze moet ik een bepaalde kleur geven:
onder 85: Rood en bold
boven 95: groen
De eerste rij probeer ik niet mee te rekenen, omdat dit de titel is.
Ik gebruik dit:
Maar er komt steeds een error voor deze regel:
foutmelding: Application-defined or object-defined error
Kan iemand me helpen?
Kim
Ik ben een echt leek in VBA, dus ik kan wel wat hulp gebruiken.
In mijn excel file bestaat kolom F uit percentages. Deze moet ik een bepaalde kleur geven:
onder 85: Rood en bold
boven 95: groen
De eerste rij probeer ik niet mee te rekenen, omdat dit de titel is.
Ik gebruik dit:
Code:
Sub t_Final_Row_2()
'
' colors Macro
' cijfers rood en groen
'
'
Sheets(1).Select
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row - 1
'to account for the first row of data being at row 2
FinalCol = Cells(6, 6).End(xlToLeft).Column
Dim MyRange As Range
Set MyRange = Range("F2", Cells(FinalRow, FinalCol))
For Each Cell In MyRange
If Cell.Value < 85 Then Cell.Font.ColorIndex = 3
If Cell.Value < 85 Then Cell.Font.Bold = True
If Cell.Value > 95 Then Cell.Font.ColorIndex = 10
If Cell.Value > 95 Then Cell.Font.Bold = False
Next Cell
Range("A1").Select
End Sub
Code:
Set MyRange = Range("F2", Cells(FinalRow, FinalCol))
Kan iemand me helpen?
Kim
Laatst bewerkt door een moderator: