Makro og VBA - Kan man det?

Kan man det?

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4678
Udskrevet den: 02.Maj.2024 kl. 03:57

Emne: Kan man det?

Besked fra: Arlet
Emne: Kan man det?
Posteringsdato: 15.Feb.2022 kl. 10:07

Har brug for noget hjælp.

Er blevet anbefalet dette forum 

Jeg har brug for stuktur, så har oprettet dagssedler(huskelister) til mig selv.

Kan man lave det sådan at når jeg trykker på nyt ark, så tager den sidste ark og kopierer over i et ny og indsætter efterfølgende dato og omdøber arket med datoen.
Grunden. Jeg vil gerne kunne se, hvad jeg har lavet de sidste dage og når den kopirer indholdet fra dagen før, så glemmer ijeg ikke noget, da det så kommer frem dagen efter igen, hvis det ikke bliver slettet.

Jeg har set det et sted noget lignende, men kan ikke huske hvor

Svar:

Besked fra: Arlet
Posteringsdato: 15.Feb.2022 kl. 10:08

Arlet skrev:

Har brug for noget hjælp.

Er blevet anbefalet dette forum 

Jeg har brug for stuktur, så har oprettet dagssedler(huskelister) til mig selv.

Kan man lave det sådan at når jeg trykker på nyt ark, så tager den sidste ark og kopierer over i et ny og indsætter efterfølgende dato og omdøber arket med datoen.
Grunden. Jeg vil gerne kunne se, hvad jeg har lavet de sidste dage og når den kopirer indholdet fra dagen før, så glemmer ijeg ikke noget, da det så kommer frem dagen efter igen, hvis det ikke bliver slettet.

Jeg har set det et sted noget lignende, men kan ikke huske hvor

Jeg forsøgte at lægge filen op, men det lykkes ikke for mig.

Besked fra: Arlet
Posteringsdato: 15.Feb.2022 kl. 10:59

uploads/2910/Min_dagsseddel.xlsx" rel="nofollow - uploads/2910/Min_dagsseddel.xlsx

Så lykkes det vist

Besked fra: Johnsen
Posteringsdato: 09.Jun.2022 kl. 22:10

Hmm ingen løsninger på dit spørgsmål ?

Har selv kikket efter sådan en løsning, dog uden held.

Besked fra: Allan
Posteringsdato: 13.Jun.2022 kl. 21:26

Ikke verdens smukkeste kodestump, men den virker Smile

Indsæt den i projektmappens 'denne projektmappe' eller 'ThisWorkbook' alt efter version

Når et nyt ark oprettes, vil koden kopiere det sidste ark (mod højre) og ændre arknavn til dags dato + cellen D1 til dags dato.

Private Sub Workbook_NewSheet(ByVal Sh As Object)

Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True

Dim ws As Worksheet
Dim i As Integer

For Each ws In ThisWorkbook.Worksheets
    If ws.Name = Format(Date, "dd") & Format(Date, "MM") & Format(Date, "yy") Then End
Next ws

For i = Sheets.Count To 1 Step -1
    If Sheets(i).Visible And TypeName(Sheets(i)) <> "Module" Then
        Sheets(i).Copy After:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = Format(Date, "dd") & Format(Date, "MM") & Format(Date, "yy")
        Sheets(Sheets.Count).Range("D1") = Date
        Exit Sub
    End If
Next i

End Sub

-------------
MVH

Allan
https://www.excel-regneark.dk" rel="nofollow - Excel-regneark.dk - Gratis skabeloner til Excel
Få over 120 ekstra funktioner med Danmarks bedste add-in