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

versie nummer

Status
Niet open voor verdere reacties.
H

hanspaparazzi

Gebruiker
Lid geworden
4 dec 2009
Berichten
26
Is het mogelijk dmv VBA code dat als je iets aanpast hij automatisch een vernieuwde versie nummer aangeeft

dusvan 1.01 -->> 1.02
 
Beste hanspaparazzi ;)

Wat bedoel je met nieuwe versie ?
Een nieuw werkblad aanmaken of een cel aanpassen ?

1.01 -->> 1.02 waar moet deze dan komen ?

Groetjes Danny. :thumb:
 
Beste hanspaparazzi ;)

Wanneer moet de aanpassing gebeuren ?
Bij het afsluiten ?

Hoe zie jij het voor ogen ?

Groetjes Danny. :thumb:
 
Dan,

hoe ik het vor me zie is, goede vraag maar bij afsluiten is goed of zijn er nog andere mogelijkheden?
 
ik zou zeggen vóór het opslaan... Want iemand slaat een bestand pas op als er iets is veranderd. Bij gewoon 'sluiten' is er alleen gekeken en dus heeft er geen mutatie plaatsgevonden en dus moet er géén versienummer worden opgehoogd!

Groet, Leo
 
Zet deze macro dan in ThisWorkBook
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Blad1")
 Range("D5").Value = Range("D5").Value + 0.01
 End With
End Sub
Pas eventueel de bladnaam aan, nu heb ik daar Blad1 staan , hernoem dit met de naam van jouw blad , ben je voorstander van de korte macro gebruik dan deze
Code: 
With Sheets(1)
 [D5] =  [D5] +  0.01
 End With
ook hier het sheet nummer wijzigen .
[ edit ] Harry heeft gelezen wat er staat bij het opslaan :thumb:
 
Laatst bewerkt:
Of:
Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Sheets("Blad1").Range("A1").Value = Range("A1").Value + 1
End Sub
Bij het opslaan.
 
ik heb alle 3 geprobeerd maar ik weet niet wat ik verkeerd doe.

hierbij ff een testblad met in D5 de code

blad 1
 

Bijlagen

Je moet hem wel in ThisWorkbook plaatsen :eek:
 
bakkkeeeeerr,

thnxs

maar wat is nu verschil tussen thisworkbook en het blad waar de cel zich bevind?
 
Beste hanspaparazzi ;)

Hopelijk heb je voor de optie van HSV gekozen.

Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Sheets("Blad1").Range("A1").Value = Range("A1").Value + 1
End Sub

BeforeSave voegt een waarde toe als het wordt afgesloten, anders niet.
BeforeClose voegt een waarde al toe van zodra je op de sluitknop drukt, je kan dan nog op annuleren klikken maar de waarde is dan al verhoogt.

Groetjes Danny. :thumb:
 

Bijlagen

Hoe doe je dat dan als je wil dat in de plaats van de versie nummer de dag van vandaag komt te staan?
 
Beste davylenders123 ;)

Zo

Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Sheets("Blad1").Range("A1") = Date
End Sub

Groetjes Danny. :thumb:
 
Is het ook mogelijk om zelf aan te geven wanneer hij moet aanpassen naar andere versie of dag?
 
Ja , via een gewone macro die je met knop in werking zet , of je kan in de event macro een msgbox inbouwen die je eerst de vraag stelt of het nummer ( dag ) mag wijzigen .
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan