Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketSum
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Siam Export Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 01.Dec.2012
Land: Thailand
Status: Offline
Point: 200 		Direkte link til dette indlæg Emne: Sum
    Sendt: 16.Dec.2012 kl. 12:47
Hej Igen
 
Hvis jeg har a1=100 og jeg i b1=10
a1+ b1= 110
Men næste gang skal b1=20 og A1 skal beholde de 110 og næste gange er a1=130
Alså A1 skal beholde det gammel tal
 
Kan det gøres???????
 
MVH
Dennis
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 17.Dec.2012 kl. 10:29
Hej Dennis,
 
Kan den ikke koges ned til at alt hvad man taster i B1 skal lægges oveni A1?
 
//Allan
Til top
Siam Export Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 01.Dec.2012
Land: Thailand
Status: Offline
Point: 200 		Direkte link til dette indlæg Sendt: 17.Dec.2012 kl. 11:05
Hej Allan

Jo Da, Det kan det,
Et tillæg kan c1 vise hvad a1 var sidste gang?????


MVH
Dennis
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 17.Dec.2012 kl. 15:11
OK, så skal du bruge en stump VBAkode.
 
Højreklik på arkfanen på det ark du skal bygge funktionen ind i.
Vælg 'Vis programkode'
Sæt denne kode ind i de hvide område på skærmen.
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
If IsNumeric(Target.Value) Then
    Range("C1").Value = Range("A1").Value
    Range("A1").Value = Range("A1").Value + Target.Value
End If
End Sub
 
//Allan
Til top
Siam Export Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 01.Dec.2012
Land: Thailand
Status: Offline
Point: 200 		Direkte link til dette indlæg Sendt: 18.Dec.2012 kl. 01:13
Hej Allan
 
Det virker!!!!!
Mange tak for det, nu skal jeg se om jeg kan, få det kørt in hvor det skal være
det er over 900 steder, så det er noget, af et opgave.
 
Er der ikke en mulighed, så man kan copy det, til flere felter????
 
MVH
Dennis
Til top
Siam Export Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 01.Dec.2012
Land: Thailand
Status: Offline
Point: 200 		Direkte link til dette indlæg Sendt: 18.Dec.2012 kl. 01:58
/uploads/714/Test_Elver.xlsx" rel="nofollow">
Hej Allan
 
Sender lige filen så du kan se, hvad problemet er
 
Fra b13 og ned skal det nye tal tastes og fra c13 og ned tilskrives det nye tal + det gammel
 
ps der er 20 ark
 
 
MVH
Dennis
 
 
uploads/714/Test_Elver.xlsx
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 18.Dec.2012 kl. 09:57
Hej Dennis,
 
Du kan faktisk sætte én kode ind som virker på hele dit regneark.
For at dette skal virke optimalt, er vi nødt til at have et par kriterier som fortæller Excel på hvilke områder og på hvilke ark den skal virke.
 
I stedet for at placere koden under det enkelte ark, skal koden placeres i 'Denne_projektmappe' (THISWORKBOOK)
Gør på samme måde som før, blot husk at vælge 'Denne projektmappe' i venstre siden af din skærm inden du sætte koden ind.
 
Koden kører ved indtastning i kolonne B, i række 13 og nedad, og kun på ark hvor cellen A1 = x (for at du kan styre hvilke ark koden skal virke på)
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("A1") <> "x" Then Exit Sub
If Target.Row < 13 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If IsNumeric(Target.Value) Then
    Range("C" & Target.Row).Value = Range("C" & Target.Row).Value + Target.Value
End If
End Sub
 
//Allan
Til top
Siam Export Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 01.Dec.2012
Land: Thailand
Status: Offline
Point: 200 		Direkte link til dette indlæg Sendt: 18.Dec.2012 kl. 11:39
Hej Allan

Jeg tage hat af for dig
Hvis du kommer forbi en dag, giver jeg en stor midag på mit sted,
eller grill kyllinger eller hvad du nu vil ha
Mange tak
der kommer nok mere
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 18.Dec.2012 kl. 13:05

Velbekomme Dennis og tak fordi du meldte så positivt tilbage. Wink

Du vil altid være hjertelig velkommen med flere spørgsmål her i forummet.
 
//Allan
 
MVH

Allan
Excel-regneark.dk - Gratis skabeloner til Excel
Få over 120 ekstra funktioner med Danmarks bedste add-in
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk