• 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.

Aanpassen macro voor opslaan nieuw tabblag met format MMMYY

Status
Niet open voor verdere reacties.
Zet met F9 een onderbrekingspunt op "Sub TimeStamp().
Sluit de VB-editor en druk op de knop en loop met F8 door de code.
Wat doet de code?


Edit.
Als het helemaal niet gaat:
Andere methode:
Code: 
Sub TimeStamp()
 Cells(2, 4).Offset(Day(Now), 3 + (Cells(2, 4).Offset(Day(Now), 1) = "") * 2) = Time
End Sub
 
Laatst bewerkt:
Hallo Harry

Na de opmerking van ExcelAmateur heb ik meteen je nieuwe code in het bestandje gezet.
En deze werkt idd als een tierelier.
Ik wil iedere helper wederom danken voor de genomen moeite.

Mvg
Peter
 
Graag gedaan,

Met betrekking het bestand wat ik plaatste werkte het goed op 12-08-2018, nu op 13-8-2018 weer niet.

Een aanpassing in die code zou het weer goed moeten werken.
Code: 
Sub TimeStamp()
Dim c As Range
  Set c = Columns(4).Find(Date, , [COLOR=#ff0000]xlValues[/COLOR], 1)  'of -4163
  If Not c Is Nothing Then c.Offset(, 3 + (c.Offset(, 1) = "") * 2) = Time
End Sub

Maar goed, de nieuwe (simpeler) code werkt altijd.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan