Indsæt dato med makro i excel
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=1087
Udskrevet den: 11.Maj.2024 kl. 06:28
Emne: Indsæt dato med makro i excel
Besked fra: filipen
Emne: Indsæt dato med makro i excel
Posteringsdato: 08.Feb.2013 kl. 09:49
|
Hejsa. Jeg vil gerne lave en macro der indsætter dag dato i et bestemt felt. Jeg er kommet frem til noget ala det her men det virker ikke: Sub indsaet_dato() cells(B, 4) = now End Sub Er der nogen der kan hjælpe mig?
|
Svar:
Besked fra: filipen
Posteringsdato: 08.Feb.2013 kl. 09:50
| Prøvede også med now,ddmmåååå men det kunne jeg heller ikke........ |
Besked fra: EXCELGAARD
Posteringsdato: 08.Feb.2013 kl. 11:11
|
Prøv med: Range("B4").Value = Date ------------- 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. |
Besked fra: filipen
Posteringsdato: 08.Feb.2013 kl. 13:37
Takker igen mange gange...... men Det går jo ikke at det sker, for hver gang jeg åbner dokumentet en anden dato så opdateres datoen jo? Kan man i macroen skrive at hvis der stå noget i cellen skal skal den ikke afspille den. eller noget i den stil? |
EXCELGAARD skrev:Besked fra: EXCELGAARD
Posteringsdato: 08.Feb.2013 kl. 13:45
|
If Range("B4").Value = "" Then Range("B4").Value = Date ------------- 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. |
Besked fra: Kanthor
Posteringsdato: 10.Feb.2013 kl. 19:26
|
Dato: Jeg har indsat en knap man trykker der aktiverer denne macro. Se under hjælp "aktiver makro" - der er en forklaring hvordan man tilknytter en makro til en knap. Forklaring på makro: I felt e14 er formel: =IDAG(), makro kopierer dato som værdi således at når man åbner regnearket næste gang er dato den samme som da man indsatte den. Private Sub CommandButton3_Click() Range("e14:e14").Select Range("B14").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Application.Goto Reference:="R15C2" End Sub |
Besked fra: EXCELGAARD
Posteringsdato: 11.Feb.2013 kl. 08:54
|
Det hele kan klares med 1 enkelt linje: Range("B14").Value = Range("E14").Value ------------- 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. |