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

aktieblad

Status
Niet open voor verdere reacties.
G

gerrit123456789

Gebruiker
Lid geworden
15 dec 2013
Berichten
252
Hallo,

Ik heb een bestand "Aktieblad".

Graag zou ik willen dat er een nummer komt in cel D67.
In het nummer moet de datum zitten AB dan een opvolgend nummer. Graag zou ik willen dat het oplopende nummer iedere maand opnieuw op 1 begint.

bijv. 201810 AB 001, 201810 AB 002 en dan in 201811 AB 001

Is dit mogelijk en wie kan mij daar bij helpen.

bij voorbaat dank,

Gerrit

Bekijk bijlage Kopie van Aktieblad Sjabloon.xlsm
 
Voor je eerste vraag.
PHP: 
=YEAR(TODAY())&MONTH(TODAY())& " " & "AB" & " " & "001"
 
Als ik dat in de cel zet krijg de melding #NAAM?

Blijft hij wel telkens doornummeren?

Groet,

Gerrit
 
Je heb zeker de Nederlandse versie van Excel?
JAAR(Vandaag()) MAAND(Vandaag())

Nee het doornummeren werk helaas nog niet.
 
Laatst bewerkt:
Dat werkt.
Als ik het bestand opsla en afsluit. en later het weer open dan moet hij dus verder gaan met nummer 2.

Volgens mij werkt dat nu niet

Gerrit
 
Ik heb daar gekeken, maar daar word ik ook niet veel wijzer van.
Ik wil het bestand telkens nadat hij opgeslagen is weer leegmaken, maar het nummer moet wel telkens als ik het lege sjabloon open weer met 1 ophogen.

Groet,

Gerrit
 
Kijk of het zo werkt.

Over de volgende maand hebben we het nog niet.
Misschien dat een ander dit weet op te lossen voor je.
 

Bijlagen

  • Aktieblad Sjabloon_1.xlsm
    58 KB · Weergaven: 42
Dat is wat ik bedoel.
Nog een vraagje: als er een nieuw jaar begint hoe zet ik dan het opgelopen nummer weer op 001

Groet,

Gerrit
 
In A67 heb ik het getal gezet.

Hoe je het wil versieren dat de volgende maand weer op 001 begint weet ik niet.
Ik heb daar niet over nagedacht.
 
Ik heb het bestand nu enkele malen geopend en hij telt netjes door.

Nu wil ik weer op 001 beginnen als ik nog enkele zaken heb aangepast.
Hoe doe ik dat?

Groet,

Gerrit
 
Dan heb ik nog een andere vraag:

Ik wil het ingevulde bestand opslaan met bestandsnaam die van cel C67, als dat gedaan is moet hij alle niet geblokkeerde cellen leeg maken en daarna opslaan met de naam Aktieblad Sjabloon.

Kan dit in een macro.

Ik heb al wat geprobeerd, maar het wil me niet lukken.

Kan iemand mij daar bij helpen.

Groet,

Gerrit

Bekijk bijlage Aktieblad Sjabloon 2.xlsm
 
Wat heb je geprobeerd dan? Ik zie er niets van terug. De zoekfunctie al eens gebruikt? Het opslaan van een bestand met de naam uit een bepaalde cel komt bijna dagelijks voor. Gebruik bij voorkeur geen samengevoegde cellen. De formule in C67 kan ook wat eenvoudiger.

Code: 
=TEXT(TODAY();"jjjjmm ")&"AB " &TEXT(A67;"00000")
 
Cellen legen met VBA, kan b.v.b. Zo
Code: 
Range("B13:H16,F18:F19,F22:F23,C24:H25,E27:E28,C34").ClearContents

De formule van VenA is simpeler, gebruikt die.
Inderdaad met zoeken kom je heel ver.
 
Ik heb nog 1 vraag over het bestand.
Ik heb veel gezocht over het opslaan en cellen leegmaken.
Er is me veel gelukt.
Nu wil ik nog als het mogelijk is om het bestand behalve als PDF ook als excel op te slaan, maar dan moet het zo zijn, dat ik het opgeslagen excel bestand open, dat hij niet verder gaat met tellen in cel D67.
Is dat mogelijk en wie kan me daar bij helpen.

Bekijk bijlage Aktieblad Sjabloon .xlsm

Gerrit
 
Je zou b.v.b. D67 kunnen kopiëren, deze dan plakken als waarden in D67.
De formule ben je dan kwijt maar daar is ook een oplossing voor.

Ik heb 2 macros opgenome,

Macro 1 Kopieert D67 en plakt deze als waarden in D67
Code: 
Sub Macro1()
    Range("D67:F67").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
Macro 2 Zet de formule weer in D67
Code: 
Sub Macro2()
    Range("D67:F67").FormulaR1C1 = _
        "=TEXT(TODAY(),""jjjjmm "")&""AB "" &TEXT(R67C1,""00000"")"
End Sub
Verwerkt dit in de code voor opslaan.
 
Laatst bewerkt:
Ik zal dit morgen even proberen in de bestaande macro te verwerken.
Dan laat ik het je weten of het gelukt is of dat ik nog meer hulp nodig heb.

Groet,

Gerrit
 
De regels van macro 1 moet bovenaan in de code en
De regel van macro 2 boven end sub staan.

Suc6
 
Ik heb het geprobeerd in te voegen in het bestaande bestand en krijg de volgende melding:

Excel1.PNG

En dit krijg ik bij VBA te zien.

excel 2.PNG

Wie helpt me verder

Gerrit
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan