formule na een copie

[bigfoot47]

hoi,

Ik heb een factuur gemaakt met een macro er in (copie.)
nu als ik op copie klik gaat alles goed zo als het hoord. Nu zou ik enkel 1 ding moeten veranderen, maar weet niet hoe ik dat moet voor mekaar moet krijgen.

ik heb bij datum de formulle geplaatst (=vandaag) deze werkt perfect, maar nu als ik een copie maak zou de datum on de copie op die dag zelf moeten blijven. en niet mee veranderen alke dag.

 

[Wigi]

In welke cel en welk tabblad staat die datum op de kopie?

 

[Paul-RT]

Ik heb daarvoor de volgende macro gebruikt: (Thanx to Wigi)
In "This workbook".

Bewaar je document als een lege factuur.
Eigenschappen van A1 is de datum opmaak die je wilt.
Als cel A1 nu leeg is, wordt deze gevuld met de datum van vandaag.
Eenmaal opgeslagen factuur (onder andere naam) en weer heropend, staat in cel A1 reeds de datum en is deze dus niet leeg.
De datum wordt dan niet nogmaals ingevuld.

Private Sub Workbook_Open()
If Sheets("Blad1").Range("A1") = "" Then
    Sheets("Blad1").Range("A1") = Date
End If
End Sub

 

[bigfoot47]

hier heb ik het VB. http://users.telenet.be/destoffreters/factuuur.xls

deze is te groot voor in bijlage.

mvg danny

 

[Paul-RT]

Ok, ik heb het voor je ingepast.
Werkend en al.

Paar dingetjes gewijzigd voor makkelijker werken, (maar niet de opmaak).
Ik heb geen upload systeem, dus kan het niet zomaar doorsturen.
Sturr me een mailtje (via mijn profiel), dan krijg je het terug, incl kleine aanpassing en uitleg.
Zie maar of je de aanpassing wilt gebruiken of niet.