Notifikationer

Markér alle som læst Log ud

Oscar560 Novice

13. januar 2011 - 10:40 Der er 11 kommentarer og
1 løsning

Overfør resultat i excel

Jeg har lavet en kontrol skema.
Nu har jeg en problem som jeg ikke kan løse.
Det føres kontrol kvartals vis.
Så skal data fra beholdning ultimo overføres til næste primo beholdning for næste kvartal.
Det er sådan at den sidste beholdning nå den er brugt så skal den ikke med på næste primo beholdning.
HMM; umuligt at forklare.
Sådan ser det ud primo 1.1
A1= 200 STK
A2= 215 STK
A3= 450 STK
A4= 100 STK
A5= 50 STK

så bliver det brugt de første 200

så skal den næste primo være på ark2

A1= 215 STK
A2= 450 STK
A3= 100 STK
A4= 50 STK
A5= DER SKAL MAN KUNNE SKRIVE IGEN

hvordan laver jeg en formel som ved nå jeg har brugt de første 200 stk så den så flytter de andre op og giver mig mulighed for at skrive igen i den nederste tomme felt.

Synes godt om

Ialocin Novice

13. januar 2011 - 12:08 #1

Hej Oscar560

Skal lige forstå det ret ...

Hvornår skal fremrykningen ske ??? ... Når celle A1 er tom ?
Eller er det pr. en dato ?? ... eller ??

Med venlig hilsen, Nicolai

Synes godt om

Oscar560 Novice

13. januar 2011 - 18:45 #2

Det skal være nå celle er tom.
Her er eksempel
LAGER
A1: 100 stk
A2: 100 stk
A3: 100 stk

SOLGT
B1: 100 STK

Så ser

C1: 0 STK

Så skal formel
overfør A2 100 STK til ark2 på plads A1 så A3 er fri og klar til skrive.
Tak på forhånd for hjælp

Synes godt om

Ialocin Novice

13. januar 2011 - 21:01 #3

Hej Oscar560

Jeg er lidt fatsvag :o)

Er det korrekt forstået at:

På Ark1 har du eksempelvis 5 celler (A1 til A5)
Når værdien af celle A1 bliver tom, så skal cellerne A2 til A5 kopieres til Ark2 i celle A1 til A5 ... og A6 er tom/klar til at skrive i ??

Hvis JA:
1. Hvor mange celler ønsker du at kopiere videre til næste ark?
2. Skal der kun kopieres fra Ark 1 til Ark2?

Med venlig hilsen, Nicolai

Synes godt om

Oscar560 Novice

17. januar 2011 - 00:23 #4

Det er korrekt.
det skal kopieres fra ark1 til ark2, fra ark2 til ark3 og fra ark3 til ark4.
Det er rigtig mange celler tror jeg er over 192 celler.
Men hvis du bare laver en fra a1 til a5 kan jeg godt selv udvide den.

Synes godt om

Ialocin Novice

17. januar 2011 - 08:11 #5

Hej Oscar560

Jeg kigger på det i aften :o)

Med venlig hilsen, Nicolai

Synes godt om

Oscar560 Novice

17. januar 2011 - 12:42 #6

Det lyder rigtig godt er så taknemlig!!

Synes godt om

Ialocin Novice

17. januar 2011 - 22:54 #7

Hej Oscar560

Her er lidt vba kode, som skal ligge i hændelsen "SheetChange" i det generelle modul "ThisWorkbook" ...

Jeg har lavet eksemplet, så der kopieres fra sheet1 til sheet2 og fra sheet2 til sheet3.

Omskriv selv sheet1, 2 og 3 til dine ark navne.

Prøv at se om det er, som du har tænkt dig ?????

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

'hvilket sheet er det aktive
Select Case Sh.Name

'sheet1
Case Is = "Sheet1"

'hvis adressen, som kalder hændelsen er celle A1
If Target.Address = "$A$1" Then

'hvis værdien i celle A1 er tom
If Target.Value = "" Then

'kopier cellerne A2:A5
Sheet1.Range("A2:A5").Copy

'Aktiver sheet2
Sheets("Sheet2").Activate

'indsæt det kopierede med start i celle A1
ActiveSheet.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)

'Aktiver sheet1
Sheets("Sheet1").Activate

'indsæt det kopierede med start i celle A1
ActiveSheet.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)

'slet indholdet i cell A5
ActiveSheet.Range("A5").Value = ""

'fjern kopimarkeringen fra Sheet1
Application.CutCopyMode = False

End If

End If

'sheet2
Case Is = "Sheet2"

'hvis adressen, som kalder hændelsen er celle A1
If Target.Address = "$A$1" Then

'hvis værdien i celle A1 er tom
If Target.Value = "" Then

'kopier cellerne A2:A5
Sheet2.Range("A2:A5").Copy

'Aktiver sheet3
Sheets("Sheet3").Activate

'indsæt det kopierede med start i celle A1
ActiveSheet.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)

'Aktiver sheet2
Sheets("Sheet2").Activate

'indsæt det kopierede med start i celle A1
ActiveSheet.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)

'slet indholdet i cell A5
ActiveSheet.Range("A5").Value = ""

'fjern kopimarkeringen fra Sheet1
Application.CutCopyMode = False

End If

End If

End Select

End Sub

Medvenlig hilsen, Nicolai

Synes godt om

Oscar560 Novice

18. januar 2011 - 19:42 #8

jeg har prøvet at ændre det men har ikke fået det til at virke.
sheet 1 er Kvartal 1, sheet 2 er Kvartal 2, sheet 3 er Kvartal 3.
Kunne du prøve at kikke på det :-)?

Synes godt om

Ialocin Novice

18. januar 2011 - 20:32 #9

Hej Oscar560

Jeg har ændret arknavnene til:
"Kvartal 1", "Kvartal 2", "Kvartal 3" ... med stort begyndelsesbogstav og mellemrum mellem l og tallet.

Kopier koden ind i hændelsen "SheetChange" i det generelle modul "ThisWorkbook" ...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

'hvilket sheet er det aktive
Select Case Sh.Name

'Kvartal 1
Case Is = "Kvartal 1"

'hvis adressen, som kalder hændelsen er celle A1
If Target.Address = "$A$1" Then

'hvis værdien i celle A1 er tom
If Target.Value = "" Then

'kopier cellerne A2:A5
Sheets("Kvartal 1").Range("A2:A5").Copy

'Aktiver sheet2
Sheets("Kvartal 2").Activate

'indsæt det kopierede med start i celle A1
ActiveSheet.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)

'Aktiver sheet1
Sheets("Kvartal 1").Activate

'indsæt det kopierede med start i celle A1
ActiveSheet.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)

'slet indholdet i cell A5
ActiveSheet.Range("A5").Value = ""

'fjern kopimarkeringen fra Sheet1
Application.CutCopyMode = False

End If

End If

'Kvartal 2
Case Is = "Kvartal 2"

'hvis adressen, som kalder hændelsen er celle A1
If Target.Address = "$A$1" Then

'hvis værdien i celle A1 er tom
If Target.Value = "" Then

'kopier cellerne A2:A5
Sheets("Kvartal 2").Range("A2:A5").Copy

'Aktiver sheet3
Sheets("Kvartal 3").Activate

'indsæt det kopierede med start i celle A1
ActiveSheet.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)

'Aktiver sheet2
Sheets("Kvartal 2").Activate

'indsæt det kopierede med start i celle A1
ActiveSheet.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)

'slet indholdet i cell A5
ActiveSheet.Range("A5").Value = ""

'fjern kopimarkeringen fra Sheet1
Application.CutCopyMode = False

End If

End If

End Select

End Sub

-------

Jeg kan også poste min test Excelfil til dig, hvis ??

Medvenlig hilsen, Nicolai

Synes godt om

Oscar560 Novice

18. januar 2011 - 20:37 #10

jeg har sendt også mail til dig :-)

Synes godt om

Oscar560 Novice

30. januar 2011 - 15:36 #11

tak

Synes godt om

Oscar560 Novice

14. april 2011 - 23:14 #12

hvordan lukker man?

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel	5	17/04/202616:11	27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel	6	13/04/202614:32	15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	31/03/202610:22	31/03/202611:47
Stempel ur start og stop Af lurup i Excel	2	23/03/202613:24	31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS