Vedr. formel eller makro.

Skal det være via en Userform?

Er ikke superbruger på excel så ved ikke lige hvad en userform er, men alle dataerne findes i samme ark.

Altså hvis man taster 5 i f.eks. celle A2. så skal jeg kunne trykke på en knap, således at den trækker salget ned i evt. celle A10. Står der et tal i forvejen, skal den lægge tallene sammen, og give summen i A10.

Kan man dette?

Ja - d.v.s. knappen er en form for bekræftelse?

Vender tilbage lidt senere....

tja altså det er en registrering. Dvs. hvis man sælger 1 æble, så registrere man det i celle A2 ved at skrive 1. Så trykker man på knappen register og derefter bliver tallet lagt oveni summen der står i celle A10. Så kan man se hvor mange æbler man har solgt hele ugen.

Tak for at du vil hjælpe.

Man kan også anvende en hændelsesmakro som fx.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
[A10] = [A10] + Target
End Sub

Højreklik på arkets fane, vælg Vis programkode, indsæt kode der

Men det er vel ikke kun celle A2 og A10 du skal bruge,
så skal koden lige rettes til

Nej det har du ret i. Har en del felter som skal trækkes ned i et andet felt ved tryk på samme knap. Alle felterne skal dog trækkes ned i hvert sit felt, så der skal ikke flettes noget sammen. Så hvis du kan forklare lidt om hvordan man sætter flere felter ind, så ville det være super. Også hvis du kan forklare hvordan man kommer fra at man har indsat programkoden, til at knappen rent faktisk findes i arket. Takker meget for hjælpen so far:-)

/Ramp

Hvis du insisterer på at der skal anvendes en knap, så bør du anvende supertekst forventede løsning

Min pointe er at du jo blot skal indtaste et tal i fx. A2, hvorefter tal i A10 straks forøges/formindskes

Hvis du foretrækker min løsning, så skriv lige hvilke celler der anvendes som indtastningsceller, samt hvilke celler disse skal påvirke

ok. vi kan prøve. Tror det er supertekst løsning jeg skal bruge, men vil gerne prøve din. Lad os sige A2 er cellen hvor der skal tastes og A10 skal bliver større/mindre hver gang der tastes i A2

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
[A10] = [A10] + Target
End Sub

Højreklik på arkets fane, vælg Vis programkode, indsæt kode der

Det kan også løses helt uden programmering.

Lad os antage at du taster dine tal mellem 1 og 5 i A2. De skal lægges sammen i A10. Gå nu i Funktioner - Indstillinger. Vælg fanebladet Beregning. Sæt beregning til Manuel. Sæt flueben i Gentagelse og sæt Maks. antal gentagelser til 1. Klik Ok.

I regnearket, celle A10 indsætter du nu denne formel: =A2+A10. Gentag denne formel, i de øvrige celler, der skal "trrækkes ned". Nu kan du taste i alle disse, og når du er klar til at opdatere, trykker du F9.

Den virker faktisk også helt fint, er det muligt at efter man har trykket F9, så bliver celle A2 0 eller blank igen?

Og er det muligt at have en enkelt celle som ikke beregnes manuelt?

Det førte ikke uden kode, og det sidste slet ikke. Der beregnes enten manuelt eller automatisk i helearket.

ok. Kunne godt tænke at vide hvordan man anvender koden, er der nogen der kan forklare?

ahemm du kunne fx. prøve at indtaste et tal i A2

jeg mener med hensyn til at man har en knap man trykker på, for at registrere.

Lav en Commandbutton med værktøjslinien Kontrolelementer. Højreklik på knappen. Vælg Vis programkode. Indsæt denne kode

Private Sub CommandButton1_Click()
    [a10] = [a10] + [a2]
    [a2] = ""
End Sub

Gentag med linier, for de øvrige felter, du vil have adderet.

Altså fx

Private Sub CommandButton1_Click()
    [a10] = [a10] + [a2]
    [a2] = ""
    [b10] = [b10] + [b2]
    [b2] = ""

End Sub

Super. Det virker perfekt. Smid et svar

Et svar :-)