summere 4 celler

Sub Makro1()
' Makro1 Makro
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=R[99]C[0]+R[99]C[0]+R[144]C[0]+R[144]C[0]"
    End Sub

dette forudsat at dit resultat skal i A1

sub ialt()
ialt=[a100] + [b100] + [a145] + [b145]
msgbox("sum=") & ialt
end sub

jeg kan ikke få nolge af dem til at virke.


excelent: expected function og variable...... ud for linien med ialt

panebb: den ligger ikke de rigtige celler sammen.

JEg skal bruge sammentællingen i en if sætning

if (sum a100+b100+a145+b145)<>0 then
range("a1").select
else
range("a200").select
end if
end sub

men jeg kan ikke lige få formlen skrevet ind i makroen

ok prøv:

Sub ialt()
x = [a100] + [b100] + [a145] + [b145]
If x <> 0 Then
Range("a1").Select
Else
Range("a200").Select
End If
End Sub

så er den der også.
igen tak for din løsning.

skriver du lige et svar så du kan få points

ok velbekom

husk lige at lukke

sorry, glemte det lige