Print side | Luk vindue

kassekladde

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4016
Udskrevet den: 26.Apr.2024 kl. 13:22


Emne: kassekladde
Besked fra: dann
Emne: kassekladde
Posteringsdato: 27.Sep.2019 kl. 11:21
Hej. Jeg har lavet en simpel opsætning som skal simulere en gammel kassebog. Jeg har 50 faner, en for hver uge, og vil gerne videreføre data fra saldo ultimo til saldo primo i næste ark( altså ultimo ark 1 til primo ark 2, ultimo ark 2 til primo ark 3 osv). Findes der en måde at indskrive det, så det sker automatisk?
Mvh Dann



Svar:
Besked fra: InfoTAL
Posteringsdato: 27.Sep.2019 kl. 11:52
Til dann

Se vedh. fil med forsag/eksempel
Der skal jo flere ens til alle dine ark[URL= ][/URL][URL= ][/URL][EMAIL= ][/EM uploads/2063/SaldoDRF.xlsx" rel="nofollow - SaldoDRF.xlsx

Se formlen om det virker...

-------------
InfoTAL
v/H.C.
Bruger Excel 2021 DK, 64 bit.
Svar gives/modtages..
Accepteret løsning: MARKER tråden med TAK/Accepteret svar
s.e.&o.


Besked fra: dann
Posteringsdato: 27.Sep.2019 kl. 14:46
Tak for svar infotal
Jeg kan godt få overført data fra et ark til næste, men det jeg forespørger er en måde at lave en kæde, altså en formel til indsættelse i ark 1, som så automatisk virker for alle 50 ark, så jeg ikke skal gentage processen for alle 50 ark.


Besked fra: Bjarnehansen
Posteringsdato: 27.Sep.2019 kl. 14:58
uploads/397/SaldoDRF_bj.xlsx" rel="nofollow - uploads/397/SaldoDRF_bj.xlsx
prøv at taste en dato i ark 2

hvad er det du helt præsis vil have den til ?
for infotal's forslag sker jo automatisk




-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Bjarnehansen
Posteringsdato: 27.Sep.2019 kl. 15:06
ellers prøv at /topic662.html - upload dit ark....

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: dann
Posteringsdato: 27.Sep.2019 kl. 16:30
uploads/2535/KASSEBOG_skabelon.xlsx" rel="nofollow - uploads/2535/KASSEBOG_skabelon.xlsx
Det er muligvis rigtigt at infotal allerede har løst mit problem men jeg er ikke klar over hvor jeg skal indsætte formlen!Embarrassed Beklager, er helt ny til excel. Jeg vil gerne videreføre ultimotal fra ark 1 til primotal i ark 2, ultimotal ark 2 til primotal ark 3 osv, helst ved en formel jeg kan indsætte i ark 1 eller 2, således jeg ikke behøver manuelt at indsætte kommandoen i efterfølgende ark.


Besked fra: Bjarnehansen
Posteringsdato: 27.Sep.2019 kl. 17:54
uploads/397/KASSEBOG_skabelon_bj.xlsx" rel="nofollow - uploads/397/KASSEBOG_skabelon_bj.xlsx
håber det rigtigt ellers må infotal rette mig...



-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: dann
Posteringsdato: 27.Sep.2019 kl. 19:16
tak bjarnehansen og infotal.
Tror jeg fik det svar jeg ønskedeSmile


Besked fra: Hans K.
Posteringsdato: 27.Sep.2019 kl. 19:54
I filen KASSEBOG_skabelon indsæt følgende kode i et modul:

Function PreviousSheet(TargetCell As Range)
Dim SheetIndex As Integer

    'Application.Volatile

    SheetIndex = Application.Caller.Parent.Index

    If SheetIndex = 1 Then
        PreviousSheet = "Ingen tidligere ark"
        Exit Function
    End If

    PreviousSheet = Sheets(SheetIndex - 1).Range(TargetCell.Address).Value

End Function 

Gå tilbage til regnearket, grupper alle ark fra 2 til 50. I celle F44 indsættes formlen: =PreviousSheet(E45) og i celle G44 indsættes formlen: PreviousSheet(G45).
Ophæv grupperingen af ark 2:50. Nu er formlerne indsat i alle ark.


Besked fra: Bjarnehansen
Posteringsdato: 28.Sep.2019 kl. 11:01
har prøvet at sætte den ind men får #navn som fejl i cellerne

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Hans K.
Posteringsdato: 28.Sep.2019 kl. 11:39
Jeg oplever ingen problemer.

uploads/2435/KASSEBOG_skabelon_2.xlsm" rel="nofollow - uploads/2435/KASSEBOG_skabelon_2.xlsm




Besked fra: JackJazz
Posteringsdato: 26.Nov.2019 kl. 13:24
Uden kode i et modul kan det gøres ved at indsætte denne formel:
=INDIREKTE("'"&TEKST(ARK()-1;"#")&"'!"&A1)
 
A1 erstattes med cellen fra det foregående ark, som du gerne vil kopiere videre.
 
OBS! Det virker dog kun, hvis alle arkene er navngivet 1, 2, 3, 4 osv. og, hvis de står i den korrekte numeriske rækkefølge.
 



Print side | Luk vindue