VBA IF waardes optellen

Status
Niet open voor verdere reacties.
C

ChantalM

Gebruiker
Lid geworden
4 jul 2018
Berichten
32
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?

Code: 
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
 
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 :).
 
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.
 
Of bedoel je zo iets?
Code: 
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
 
Code: 
For j=3 to 11 step 2
  y = y - (Sheets("Kwintet").Cells(2, j) = 13)
next
Sheets("Kwintet").Cells(2, j)=y
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan