DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Calculate()
Dim s1 As Worksheet, i As Byte, s As Byte, x As Byte
Set s1 = ActiveSheet
s1.Range("F2:L11").Interior.Color = xlNone
For i = 2 To 11
x = s1.Cells(i, 5)
If x > 0 Then
If x > 7 Then x = 7
For s = 6 To 5 + x
s1.Cells(i, s).Interior.Color = vbYellow
Next s
End If
Next i
End Sub