Opgelost Hopeloos

[Cate]

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.

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

 

[edmoor]

Bedoel je dit?

Sub kwartaal()
    If Range("A2") > 0 And Range("B2") > 0 And Range("C2") > 0 And Range("D2") > 0 And Range("E2") > 0 Then
        Range("F2").FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
        Range("F2").AutoFill Destination:=Range("F2:F6")
    Else
        MsgBox "Niet alle cellen zijn gevuld", vbCritical, "Cellen vullen"
    End If
End Sub

 

[Cate]

Bedoel je dit?

Sub kwartaal()
    If Range("A2") > 0 And Range("B2") > 0 And Range("C2") > 0 And Range("D2") > 0 And Range("E2") > 0 Then
        Range("F2").FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
        Range("F2").AutoFill Destination:=Range("F2:F6")
    Else
        MsgBox "Niet alle cellen zijn gevuld", vbCritical, "Cellen vullen"
    End If
End Sub

Hey, helemaal. Hoe pas ik dat nog aan dat hij dat enkel doet voor de geselecteerde rij? Herhaal ik dan voor elke rij dat ik selecteer de code?

 

[emields]

Probeer zo eens.

 

[emields]

Wel vragen stellen, maar niet antwoorden.

 

[Cate]

Geen paniek emields, het werkt! Bedankt aan beiden.