Datum in cel

[verluc]

Hoe kan ik bij openen workbook, waarbij slechts één weekblad is, onmiddellijk de huidige datum krijgen in kolom A e, dit op de eerste blanco cel an kolom A
Met gewaardeerde dank

 

[VenA]

Excel kent geen kolom A e. Wat is an kolom A? Neem de tijd om een vraag te formuleren en plaats een voorbeeldbestand. Qua code zal het niet zoveel voorstellen.

 

[edmoor]

Met dit in de ThisWorkbook sectie:

Private Sub Workbook_Open()
    With ActiveSheet
        Cells(.Cells(.Rows.Count, "A").End(xlUp).Row + 1, 1) = Date
    End With
End Sub

 

[VenA]

@edmoor, Bijzondere code in mijn optiek. Bij een Workbook_Open() kom je toch altijd in de ActiveSheet? En het moet in kolom A e komen:d

 

[edmoor]

Als het maar werkt.
EN kolom A e mag 'ie zelf opzoeken

 

[verluc]

Sorry de bedoeling van A e, was een typefouten
Moest zijn A en
In ieder geval mijn dank voor de aangegeven oplossing
Werkt zoals gevraagd !!

 

[verluc]

@edmoor, deze macro werkt wel maar niet automatisch bij openen van dit workbook. Ik moet deze macro telkens oproepen en uitvoeren om het vereiste resultaat te bekomen.
Ontbreek ik iets ?

 

[loek010]

Code van Edmoor

Werkt gewoon bij het het openen van de werkmap

Zie bijlage

Bekijk bijlage Map1.xlsm

Grt. Loek010

 

[HSV]

Kan wel iets minder uitgebreid.

Private Sub Workbook_Open()
   Cells(Rows.Count, 1).End(xlUp).offset(1) = Date
End Sub

 

[loek010]

@HSV

Inderdaad nog iets korter:thumb:

Grt Loek010

 

[verluc]

HSV, heb jou macro ook geprobeerd,doch hetzelfde resultaat : werkt slechts bij het drukken van de knop “Uitvoeren” en doet het niet automatisch bij openen workbook

 

[edmoor]

Die van HSV werkt prima, maar moet je wel in de ThisWorkbook sectie zetten uiteraard.
Net als die van mij overigens, wat loek010 ook al liet zien.

 

[verluc]

Sorry, maar ik kan deze niet werkende krijge . Deze macro staat onder Thisworkbook, Module1
Is dit correct?

 

[edmoor]

Nee. En dat kan ook niet.
Hij staat OF in ThisWorkbook OF in module1.
En hij hoort dus in ThisWorkbook.
Kijk in het document dat loek010 plaatste.

 

[verluc]

Eindelijker ik het kunnen fixen. ZEer bed kt allen die hieraan hebben meegewerkt.
Bedankt voorjullie geduld.