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


Emne lukketIndsæt dato med makro i excel

 Besvar Besvar
Forfatter
filipen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 12.Nov.2012
Land: DK
Status: Offline
Point: 98
Direkte link til dette indlæg Emne: Indsæt dato med makro i excel
    Sendt: 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?
Til top



Til top
filipen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 12.Nov.2012
Land: DK
Status: Offline
Point: 98
Direkte link til dette indlæg Sendt: 08.Feb.2013 kl. 09:50
Prøvede også med now,ddmmåååå men det kunne jeg heller ikke........
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 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.
Til top
filipen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 12.Nov.2012
Land: DK
Status: Offline
Point: 98
Direkte link til dette indlæg Sendt: 08.Feb.2013 kl. 13:37
Citat: EXCELGAARD EXCELGAARD skrev:

Prøv med:

Range("B4").Value = Date



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?


Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 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.
Til top
Kanthor Se dropdown
Bronze bruger
Bronze bruger


Medlem: 30.Jan.2013
Land: dk
Status: Offline
Point: 65
Direkte link til dette indlæg Sendt: 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

Selection.Copy
Range("B14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
  Application.Goto Reference:="R15C2"
End Sub
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 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.
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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