Er dette muligt

hehe, spørgsmålet er ikke helt forstået :)

Du vil have at G30 og P10 bliver lagt sammen ? I det tilfælde er det jo bare
=G30+P10

Ellers må du lige forklare lidt bedre hvad du vil

/SpEeDy

Ja så langt er jeg også :-) men så når de er lagt sammen slettes indholdet i P10. Men G30 skal kunne huske den udregnet sum.

Hvis du har en sum i feltet G30 som måske hedder =SUM(G1:G29), så for at ligge indholdet af feltet P10 til, skal formlen bare se sådan ud:

=SUM(G1:G29)+P10

Feltet P10 behøves ikke at have noget indhold. Men bliver der skrevet et tal i P10, så bliver det lagt til i din sum formel i G30.

Dit spørgsmål fremgik ikke helt klart!!

Hvis det er en løbende sum du skal bruge, kan du bruge denne makro.
kopier den, højreklik på arkfanen, klik på vis programkoder og indsæt den.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim SumCelle As Range
Set SumCelle = Range("g30")
If Not Intersect(Target, Range("P10")) Is Nothing Then SumCelle.Value = SumCelle.Value + Target.Value
End Sub

edelbo>>Nej jeg ved godt den var lidt svær at forstå, det kan jo nogle gange knibe med formuleringen. Håber du forstår forklaringen der er fulgt med til speedy.

Fantastiske "bak" det var lige det der skulle til. En sidste ting. Så er det 16 felter x 2 i alt. G20 plusses med P10 frem til G35 pulsses med P25 alle "sæt" hver for sig.
Og igen H20 plusses med Q10 frem til H35 plusses med Q25.

Håber du forstår mig :-)

bak>> Beklager min utålmodighed, men jeg er lidt i tidsnød. Kan du hjælpe mig.
Eller er der en anden ?

Sorry, jeg var også nødt til at passe mit arbejde...
Brug denne makro istedet.
Vær opmærksom på at du ikke kan bruge autoudfyld.


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("P10:q25")) Is Nothing Then _
    Target.Offset(10, -9).Value = Target.Offset(10, -9).Value + Target.Value
End Sub

Det er helt i orden, tingene skal jo passes.
Det fungere fint. Der dog en ting. Ved indtastning i P10 & Q10 kommer "resultatet i G20 og Q20. Jeg vd godt at jeg skrev det tidligere men er blevet ændret - beklager :-)

Hvad er autoudfyld ????

Har fundet ud af det :-)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("P10:q25")) Is Nothing Then _
    Target.Offset(11, -9).Value = Target.Offset(11, -9).Value + Target.Value
End Sub

Er det ikke rigtigt.

Lægger du lige etvelfortjent svar bak !

Ok, hvor vil du så ha' resultatet ?
Du kan selv ændre det.
Target.Offset(10, -9) henviser til en celle der ligger 10 rækker under og 9 kolonner til venstre for aktuel celle.
Husk at ændre begge.

autoudfyld er når man trækker i cellen og kopierer nedad eller henad.
Med denne makro skal man indtaste hver celle for sig.

Jo, det er helt rigtigt, t-hvid. havde ikke lige opdateret.
Du kan med fordel indsætte ekstra denne linie.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error resume Next
If Not Intersect(Target, Range("P10:q25")) Is Nothing Then _
    Target.Offset(11, -9).Value = Target.Offset(11, -9).Value + Target.Value
End Sub