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

code doornummeren niet te stoppen

Status
Niet open voor verdere reacties.
H

HBot

Gebruiker
Lid geworden
12 dec 2006
Berichten
325
Beste forum,

Onderstaande code werkt (te) ;-) goed (VenA bedankt)
maar.

Na het openen van het sjabloon, wordt netjes het nummer verhoogt in het nieuwe document.
Het nieuwe document wordt uiteindelijk opgeslagen onder de nieuwe code + naam
2 praktijk probleempjes

1. De code wordt nog steeds geactiveerd, in de nieuwe documenten, deze moet alleen maar werken als het sjabloon geopend wordt om een nieuw document te maken, dan blijft dit nieuwe document dit nummer behouden.

2. Elke keer bij het aanroepen van de code wordt gevraagd of het "volgnummer" wel of niet moet worden opgeslagen, is deze melding te voorkomen.
volgens mij maakt het niet uit wat je kies en gaat de teller gewoon door, en wordt opgeslagen.


Code: 
Private Sub Workbook_Open()
  With GetObject("E:\Temp\volgnummer.xlsx").Sheets(1)
    .Cells(1) = .Cells(1) + 1
     Sheets("Klachtenformulier").Cells(3, 5) = .cells(1)
    .Parent.Close
  End With
End Sub

hopelijk is dit op te lossen, ben heel blij met deze oplossing en zal door vele (ook in het forum) gebruikt gaan worden
gr
 
Probeer het eens zo:
Code: 
Private Sub Workbook_Open()
  If Sheets("Klachtenformulier").Cells(3, 5) = "" Then
    With GetObject("E:\Temp\volgnummer.xlsx").Sheets(1)
      .Cells(1) = .Cells(1) + 1
       Sheets("Klachtenformulier").Cells(3, 5) = .Cells(1)
      .Parent.Close True
    End With
  End If
End Sub
 
je kan het misschien nog mooier maken, door op datzelfde of op een ander tabblad van dat "Volgnummer.xlsx" bestand een tabelletje toe te voegen met daarin als kolommen
- toegekend nr
- tijdstip van toekennen
- Username van aanvrager
- afdeling ... ???

Dat maakt het retraceren van toegekende maar niet gebruikte nummers mogelijk.
Als dit bv. om een klachtenformulier zou gaan, ieder begonnen klacht wordt niet altijd ingediend, voor reden x of y.
Straks vraag je waar die gebleven zijn ?

Kan je misschien nog later een draaitabelletje op los laten welke afdeling het actiefst is etc.
 
Laatst bewerkt:
Cow18

zou interessant zijn, niet direct een must (wel leuk om te weten hoe het werkt) zeker als er veel nummers niet gebruikt worden,
Enig idee hoe dit op te zetten?
Bestand "volgnummer" is niet meer te openen zodat deze na in gebruik te zijn genomen, niet is aanpassen.
 
help, inderdaad, ik begrijp het ook niet.
Anyone ?
 
GetObject heeft in sommige versies de 'vervelende' eigenschap dat nadat het bestand opgeslagen is en je het vervolgens weer opent het de eigenschap verborgen meekrijgt. Via View --> Unhide zie je het bestand dan alsnog.
 
inderdaad, die getobject speelt continu verstoppertje.
Zelfs nadat hij zichtbaar was, de keer er na is hij weer weg ! Vervelend.
Dus is bijlage is het een gewone "open", maar door met de screenupdating te spelen, zie je toch niets gebeuren

In die "volgnummer.xlsx" kan je zo nog wat parameters toevoegen, zodat je kan kijken wie een bepaald nummertje getrokken heeft.
Misschien zijn netwerk-ID of zo, maar je kan alvast starten.
 

Bijlagen

  • volgnummmmm.xlsb
    20,7 KB · Weergaven: 38
  • volgnummer.xlsx
    15,3 KB · Weergaven: 45
Cow18 en VenA
bedankt voor de toelichting en aanvulling,
voordeel als het verborgen is dat mensen er niet aankomen
Ik ga dit verder uitwerken, zie wel mogelijkheden, maar gaat een hele lange lijst worden.

op naar de volgende stap.
 
zoals VenA hier hoger ook al aangaf, na Getobject is dat bestand, als je de truc kent, gemakkelijk te voorschijn te toveren met Beeld>Zichtbaar maken (of in het engels)
Zie screenshot
 

Bijlagen

  • Aantekening 2020-06-05 093848.png
    Aantekening 2020-06-05 093848.png
    14,7 KB · Weergaven: 70
Laatst bewerkt:
TNX,

deze had ik gevonden.:thumb:
nog wat kleine dingen doorvoeren en dan de laatste challenge zorgen dat alle relevantie velden gekopieerd worden naar een centraal overzicht.
wordt een mooi bestand
tot later.
 
Je kan het ook wel weer zichtbaar maken met een van de twee rode coderegels.

Code: 
[COLOR=#ff0000]       Windows("E:\Temp\volgnummer.xlsx").Visible = True[/COLOR]
[COLOR=#ff0000]      .Parent.Windows(1).Visible = True[/COLOR]
      .Parent.Close True
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan