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

Nummering doorvoeren

Status
Niet open voor verdere reacties.
corania17

corania17

Gebruiker
Lid geworden
1 okt 2012
Berichten
260
Geachte deelnemers,

Wie zou mij kunnen helpen met het doorvoeren van nummers?
Ik heb een formulier waar persoonlijke gegevens in worden gevuld.
Daarna worden de gegevens geplaatst in een bald.
Dit werkt allemaal.
Maar nu wil ik een nummer in kolom A zetten wat begint met 20310000.
Als de eerste persoon zich heeft gemeld en de gegevens zijn ingevuld moet op regel 2 op A2 het nummer 20310001 komen te staan en zo voorts.
De eerste regel is een kopregel.
Ik heb gezocht en vind de meest rare combinaties, maar deze denk ik simpele manier heb ik niet gevonden, dus is het niet zo simpel.
Zou iemand mij kunnen vertellen hoe dit probleem is op te lossen?

Met vriendelijke groet, Rubik.
 
in A2 ="2031" & TEKST(RIJ()-1;"0000") en die doortrekken naar beneden
 
Beste cow18,
Hartelijk dank voor uw reactie.
Ik denk dat ik het verkeerd heb omschreven.
Er is natuurlijk een macro die er voor zorgt dat er gegevens worden ingegeven.
In deze macro wil ik dan als de gegevens naar het blad worden weggeschreven als eerste een nummer ophoging hebben in cel A2 en de volgende keer in A3 enzovoorts.
Nu staat er het volgende: ws.Cells(iRow, 1).Range("A1").Value = Range("A1") + 1
Daarna gebeurd er dus niets meer en krijgen alle rijen hetzelfde nummer.
Heeft u nog een andere oplossing?

Met vriendelijke groet, Rubik.
 
Code: 
     With ws.Cells(iRow, 1)                  'je huidige cel
          .Value = Format(.Offset(-1).Value + 1, "00000000")     '=de rij erboven +1
     End With
en misschien nog wat meer foutafhandeling (je zou anders ook de hoogste waarde van alle cellen erboven kunnen nemen en dan +1
 
Nummer doorvoeren

Hartelijk dank Cow18, het werkt prima.
Ik zet de vraag op opgelost.

Met vriendelijkegroet, Rubik.
 
Kan ook.
Code: 
range("a1") = 20310000
 with cells(rows.count, 1).end(xlup)
   .offset(1) = .value + 1
 end with
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan