datum zoeken in een bereik

[SandyH]

Hallo,

Is het mogelijk om de datum te vinden in een bereik en ergens in het geheugen op te slaan, zodat ik deze datum in alle cellen in een bepaalde kolom kan laten invullen ?

Ik krijg wekelijks een nieuwe file die ik moet verwerken, ik heb reeds een macro geschreven om een aantal bewerkingen te automatiseren, maar ik wil de datum ook voor iedere rij zetten.

Dit moet dus de datum zijn die onderaan in de file staat, steeds zelfde kolom, maar rij kan verschillend zijn. (er staat maar één datum in gans het bereik)

Hoe pak ik dit het best aan ? kan dit met een find functie ?


Alvast bedankt,
Sandy

 

[VenA]

Als de datum onderaan de file staat kan je zoiets proberen waarbij je waarschijnlijk de kolom even moet aanpassen.

Sub VenA()
Dim datum As Date
datum = Cells(Columns.Count, "A").End(xlUp)
End Sub

Anders graag even een voorbeeldbestandje.

 

[SandyH]

Ik kan hiermee zeker aan de slag, ik kan nu de datum ophalen, nu verder zoeken hoe ik die in de juiste cellen kan krijgen.
Bedankt voor de hulp

 

[VenA]

Graag gedaan en zoek ze:d