Status van 0 naar 100%

[marcel31281]

Bekijk bijlage Inspectie Sonneburgh Rotterdam.xlsx

Mijn idee is om als er overal vinkjes staan het object 100% goed is, zodra er een kruis staat moet er steeds wat afgaan in percentage en de kleur veranderen

Ik wil dus aan het eind van elke regel een soort verloop hebben waar 100% groen is en deze naarmate er meer kruisjes gevinkt worden deze terugloopt naar rood.

Ik weet niet of het mogelijk is, maar ik hoop dat jullie mij kunnen helpen

alvast bedankt

 

[HSV]

Over het bestand wat je plaatste.
Voor vinkjes en kruisjes moet je de lettertype op 'webdings' zetten en je samengevoegde cellen verwijderen.
Overal vinkjes geldt alleen voor de blauwe kolommen?
Daarna wil ik nog wel eens een blik op je verbeterde bestand werpen.

 

[SjonR]

probeer deze eens in bladmodule van het tabblad.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 6 And Target.Column < 17 Then
    j = Application.CountA(Cells(Target.Row, 7).Resize(, 10))
    Cells(Target.Row, 24).Resize(, 10).Interior.Color = xlNone
        Select Case j
            Case Is < 4
                Cells(Target.Row, 24).Resize(, j).Interior.Color = vbRed
            Case Is < 10
                Cells(Target.Row, 24).Resize(, j).Interior.Color = RGB(255, 153, 0)
            Case 10
                Cells(Target.Row, 24).Resize(, 10).Interior.Color = vbGreen
        End Select
    Cells(Target.Row, 34).Value = j * 10 & "%"
End If
End Sub

 

[marcel31281]

Bekijk bijlage Inspectie Sonneburgh Rotterdam.xlsx

 

[HSV]

Formule in X2:

=1/10*AANTAL.ALS(G2:P2;"a")

 

[SjonR]

Ik zie niet gebeuren wat jij zegt. plaats het bestand eens waarin het bij jou niet goed gaat.

 

[marcel31281]

Bedankt HSV, dit was inderdaad wat ik zocht

 

[HSV]

Mag ook zo:

=0,1*AANTAL.ALS(G3:P3;"a")

Ps.
Ik wist niet dat het met samengevoegde cellen moest, ook voor mij weer leerzaam dus.