-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
datum in excel
- Onderwerp starter damteur
- Startdatum
- Status
CorVerm
Redacteur
- Lid geworden
- 11 mrt 2005
- Berichten
- 5.272
damteur,
Waarschijnlijk wil je meer in het sjabloon hebben dan alleen de datum. Als het geen probleem is om eenmalig in ieder document de datum in te typen dan kun je deze code gebruiken. De code zorgt er voor dat de ingevoerde datum wordt vastgehouden. In dit geval betreft het cel F5, wil je een andere cel gebruiken dan de celverwijzing in de code aanpassen. Overigens kun je code in een module zetten.
Sub Bewaren()
Dim CelMetNaam As String
Application.DisplayAlerts = False
CelMetNaam = ActiveSheet.Range("F5").Value
ThisWorkbook.SaveAs Filename:="C:\" & CelMetNaam
Application.DisplayAlerts = True
End Sub
Stom,stom, stom. Dat komt er van als je met meerdere dingen tegelijk bezig bent.
Waarschijnlijk wil je meer in het sjabloon hebben dan alleen de datum. Als het geen probleem is om eenmalig in ieder document de datum in te typen dan kun je deze code gebruiken. De code zorgt er voor dat de ingevoerde datum wordt vastgehouden. In dit geval betreft het cel F5, wil je een andere cel gebruiken dan de celverwijzing in de code aanpassen. Overigens kun je code in een module zetten.
Sub Bewaren()
Dim CelMetNaam As String
Application.DisplayAlerts = False
CelMetNaam = ActiveSheet.Range("F5").Value
ThisWorkbook.SaveAs Filename:="C:\" & CelMetNaam
Application.DisplayAlerts = True
End Sub
Stom,stom, stom. Dat komt er van als je met meerdere dingen tegelijk bezig bent.
Laatst bewerkt:
CorVerm
Redacteur
- Lid geworden
- 11 mrt 2005
- Berichten
- 5.272
Allereerst moet ik me verontschuldigen voor de code die ik je heb geplaatst, die doet nl. niet wat ik op het oog had. De volgende code werkt wel mits er in een bepaalde cel iets wordt ingevuld. Deze code heb ik overigens van dit forum geplukt. Met dank aan de makers.:thumb:
Option Explicit
Private Sub worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("c1")) Is Nothing Then
If Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Date
End If
End If
End Sub
Met rechts op de tab klikken van het blad waarin de code moet komen te staan.Kiezen voor programmacode weergeven en de code plakken in de vba editor die dan geopend is. Als er in cel C1 iets wordt neergezet komt in D1 de datum te staan. De datum wordt opgeslagen en wijzigt niet.
Option Explicit
Private Sub worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("c1")) Is Nothing Then
If Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Date
End If
End If
End Sub
Met rechts op de tab klikken van het blad waarin de code moet komen te staan.Kiezen voor programmacode weergeven en de code plakken in de vba editor die dan geopend is. Als er in cel C1 iets wordt neergezet komt in D1 de datum te staan. De datum wordt opgeslagen en wijzigt niet.
Laatst bewerkt:
- Status
