Goeiemiddag,
Ik probeer steeds een opdracht tot een goed einde te brengen, maar het lukt me hoegenaamd niet.
De bedoeling is dat ik in onderstaand bestand controleer of alle kwartalen cijfergegevens bevatten, zo niet melding via MsgBox, zo ja dan moet ik de som bij het jaartotaal berekenen en het gemiddelde van de kwartalen bij gemiddelde.
Ik gebruik onderstaande code, maar die geeft steeds een foutmelding, waardoor ik dus al niet verder kom.
die
Ik probeer steeds een opdracht tot een goed einde te brengen, maar het lukt me hoegenaamd niet.
De bedoeling is dat ik in onderstaand bestand controleer of alle kwartalen cijfergegevens bevatten, zo niet melding via MsgBox, zo ja dan moet ik de som bij het jaartotaal berekenen en het gemiddelde van de kwartalen bij gemiddelde.
Ik gebruik onderstaande code, maar die geeft steeds een foutmelding, waardoor ik dus al niet verder kom.
Code:
Sub kwartaal()
Range("F2").Select
If Range("A2").Value <> "" And Range("B2").Value <> "" And Range("C2").Value <> "" And Range("D2").Value <> "" And Range("E2").Value <> "" Then
Range("F2").Select.FormulaR1C1 = "=SUM(R[-1]C:R[-4C))"
End If
End Sub
die
Bijlagen
Laatst bewerkt door een moderator: