Örneği inceleyebilirmisiniz.
Dim Sayi As Integer
Sayi = Sheets("Sayfa1").Range("B1")
If (Sayi >= 1 And Sayi <= 5) Then
ActiveSheet.Shapes("Digdortgen1").Fill.ForeColor.SchemeColor = 5
ElseIf (Sayi >= 11 And Sayi <= 15) Then
ActiveSheet.Shapes("Digdortgen1").Fill.ForeColor.SchemeColor = 51
ElseIf (Sayi >= 16 And Sayi <= 20) Then
ActiveSheet.Shapes("Digdortgen1").Fill.ForeColor.SchemeColor = 4
Else
ActiveSheet.Shapes("Digdortgen1").Fill.ForeColor.SchemeColor = 17
End If
Kolay gelsin..