VBA IF waardes optellen

[ChantalM]

Goede middag,

Ik heb een functie die kijkt naar de cellen waar 13 in staat en als dit zo is geeft deze waarde 1.
Nu wil ik deze waardes allemaal bij elkaar optellen. Kan iemand mij helpen hoe ik dit het beste kan doen?

Sub Punten()

If Sheets("Kwintet").Cells(2, 3).Value = 13 Then Sheets("Kwintet").Cells(2, 13).Value = 1
If Sheets("Kwintet").Cells(2, 5).Value = 13 Then Sheets("Kwintet").Cells(2, 13).Value = 1
If Sheets("Kwintet").Cells(2, 7).Value = 13 Then Sheets("Kwintet").Cells(2, 13).Value = 1
If Sheets("Kwintet").Cells(2, 9).Value = 13 Then Sheets("Kwintet").Cells(2, 13).Value = 1
If Sheets("Kwintet").Cells(2, 11).Value = 13 Then Sheets("Kwintet").Cells(2, 13).Value = 1

End Sub

 

[OctaFish]

En waar moet die uitkomst in staan? Je gooit nu elke keer de waarde 1 in cell(2,13) dus veel hoger als 1 kom je nu niet .

 

[ChantalM]

De totale waarde moet uiteindelijk komen in de cel die ik steeds aangeef in de code.
Maar heb liever niet dat de andere waardes in een andere cel komen waardoor ik die weer moet verbergen in mijn tabblad.
Mocht dat niet mogelijk zijn hoor ik het ook graag. Dan ga ik gewoon de cellen verbergen.

 

[OctaFish]

Of bedoel je zo iets?

Sub Punten()

    Sheets("Kwintet").Cells(2, 13).Value = Sheets("Kwintet").Cells(2, 13).Value + IIf(Sheets("Kwintet").Cells(2, 3).Value = 13, 1, 0)
    Sheets("Kwintet").Cells(2, 13).Value = Sheets("Kwintet").Cells(2, 13).Value + IIf(Sheets("Kwintet").Cells(2, 5).Value = 13, 1, 0)
    Sheets("Kwintet").Cells(2, 13).Value = Sheets("Kwintet").Cells(2, 13).Value + IIf(Sheets("Kwintet").Cells(2, 7).Value = 13, 1, 0)
    Sheets("Kwintet").Cells(2, 13).Value = Sheets("Kwintet").Cells(2, 13).Value + IIf(Sheets("Kwintet").Cells(2, 9).Value = 13, 1, 0)
    Sheets("Kwintet").Cells(2, 13).Value = Sheets("Kwintet").Cells(2, 13).Value + IIf(Sheets("Kwintet").Cells(2, 11).Value = 13, 1, 0)

End Sub

 

[ChantalM]

Ja super! dank u wel :thumb:

 

[snb]

For j=3 to 11 step 2
  y = y - (Sheets("Kwintet").Cells(2, j) = 13)
next
Sheets("Kwintet").Cells(2, j)=y