Auteur Topic: Datum en tijd toevoegen (gelezen 1152 keer)

Jempje · « **Gepost op:** 02 mei 2022, 12:21:43 »

Ik wil de datum en tijd automatisch invoegen in kolom 5 als ik in kolom 1 iets typ. Deze code zet zich zo in voor alle tabbladen, ik wil deze code slechts gebruiken voor een specifiek tabblad. Kan mij iemand helpen, krijg het niet klaar.

Code: [Selecteer]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    
 If Target.Column = 1 And Target.Count = 1 Then Target.Offset(, 5) = Now
    
End Sub

Bedankt alvast,
Jacky

SoftAid · « **Reactie #1 Gepost op:** 02 mei 2022, 12:41:02 »

Hey,

Probeer eens:

Code: [Selecteer]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    
 If ActiveSheet.Name = "Blad1" And Target.Column = 1 And Target.Count = 1 Then Target.Offset(, 5) = Now

End Sub

(Als je de naam van het blad veranderd, dan moet je ook de naam in de macro aanpassen)

SoftAid

JEC · « **Reactie #2 Gepost op:** 02 mei 2022, 13:38:56 »

Zet het dan achter een worksheet_change event (achter de betreffende sheet) ipv in een Workbook_SheetChange event.

Jempje · « **Reactie #3 Gepost op:** 03 mei 2022, 15:00:17 »

Top, werkt perfect. Ik had nog een kleine vraag. Nu reageert de code over de volledige kolom, is het ook mogelijk om deze code alleen te laten reageren op 1 cel? Bedankt alvast.

SoftAid · « **Reactie #4 Gepost op:** 03 mei 2022, 15:30:55 »

Jempje,

Welke methode heb je gebruikt, die van mij of die van JEC

Jij vraagt, wij draaien, maar dan moet je de vraag wel beter formuleren.

SoftAid

Jempje · « **Reactie #5 Gepost op:** 03 mei 2022, 15:59:57 »

Die aanpassing van JEC doet het niet. Blijkbaar nog ergens een foutje.

Code: [Selecteer]

Private Sub Worksheet_Change(ByVal Sh As Object, ByVal Target As Range)

   If ActiveSheet.Name = "RTM 06u" And Target.Column = 3 And Target.Count = 1 Then Target.Offset(, 10) = Now

End Sub

Mijn vraag is gewoon dat ik wil als ik in cel C2 iets typ in Cel M2 de huidige tijd komt te staan. Dit dan ook alleen in een bepaald tabblad, in dit geval "RTM 06u" Ditzelfde zou ik dan ook willen toepassen in een ander tabblad, maar dan niet met dezelfde tijd. Dus als ik dan daar in cel C2 iets typ er een nieuwe tijd wordt toegevoegd in cel M2.

SoftAid · « **Reactie #6 Gepost op:** 03 mei 2022, 16:13:06 »

Hallo Jempje,

als dat enkel geldt voor cel C2 en cel M2, zet dan gewoon deze formule in M2:

Code: [Selecteer]

=ALS(C2="";"";NU())

SoftAid

Jempje · « **Reactie #7 Gepost op:** 03 mei 2022, 16:22:34 »

Hey SoftAid,

Begrijp jou reactie uiteraard. Maar voor mijn gebruik zit het toch iets anders in elkaar. Ik wil deze file namelijk verzenden naar een groep mensen. Die moeten dan de tijd op de file zien wanneer hij is ingevuld. Als ik dan de file stuur en ze openen hem, wijzigt de tijd weer naar hun openingstijd van de file. Vandaar dat ik op deze manier een tijd wil aanmaken als de file wordt ingevuld, en die tijd wijzigt niet meer. Zo kunnen zij zien wanneer ik de file heb ingevuld.

SoftAid · « **Reactie #8 Gepost op:** 03 mei 2022, 16:41:43 »

Vul dan de datum in met Ctrl + CapsLock + ; (puntkomma), dan wordt de datum statisch.

SoftAid

Jempje · « **Reactie #9 Gepost op:** 03 mei 2022, 17:18:03 »

Yep, kende ik ook al, maar het formulier is voor minder excel ervaren gebruikers. Vandaar dat ik dit graag automatisch wil laten invullen.

SoftAid · « **Reactie #10 Gepost op:** 03 mei 2022, 17:36:20 »

Zo dan, nog even als Change Event maken:

Code: [Selecteer]

Sub Test()

        If ActiveSheet.Range("C2") < 1 Or Range("C2") > 10 Then
           MsgBox "Vul een getal in van 1 tot 9"
           Exit Sub
        Else
             ActiveSheet.Range("M2").Value = Now
             ActiveSheet.Range("M2").NumberFormat = "dd-mm-yyyy, hh:mm:ss"
        End If
End Sub

SoftAid

Jempje · « **Reactie #11 Gepost op:** 03 mei 2022, 18:42:54 »

Moet ik die code onder "ThisWorkbook" plaatsen, of onder het tabblad?

SoftAid · « **Reactie #12 Gepost op:** 03 mei 2022, 18:49:11 »

Hallo Jemje,

Als je onderstaande code gebruikt, plaats ze dan in de VBA Blad1 of WorkSheet (1) ... wat bij jou van toepassing is.

Code: [Selecteer]

Private Sub Worksheet_Change()
 
        If Not ActiveSheet.Range("E2") Is Empty Then
            Range("M10").Value = Now
            Range("M10").NumberFormat = "dd-mm-yyyy, hh:mm:ss"
        Else
            Range("M10").ClearContents
        End If
    
    Application.EnableEvents = True
End If
End Sub

Er zal wel plaats zijn voor verbetering, maar dat moet ik dan aan de echte "cracks" overlaten...

SoftAid

Jempje · « **Reactie #13 Gepost op:** 03 mei 2022, 19:02:51 »

Sorry, maar doet het helaas niet. Heb nog eens alles in een test file gezet.
Als ik dus in cel C2 een getal typ moet in M2 het huidige uur komen te staan.
Blad 2 en 3 mag niets gebeuren.

JEC · « **Reactie #14 Gepost op:** 03 mei 2022, 19:46:23 »

Achter blad1: (celeigenschappen even op je juiste tijdformat zetten)

Code: [Selecteer]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C2" And IsNumeric(Target.Value) Then Target.Offset(, 10) = Time
End Sub

Help!

Menu

Hulp bij posten

Zoeken

Recente topics