nummering

[Relleboer]

Ik dacht dat het wel goed zou komen met de volgende code van wigi.
code:

Range("A" & Rows.Count).End(xlUp).Offset(1) = Range("A" & Rows.Count).End(xlUp) + 1

Maar omdat er steeds een rij word tussengevoegt bij a2 met de nieuwe gegevens maakt hij dus geen doornummering aan zoals het moet. De bedoeling is dat elke test die in de database word geschreven een eigen nummer krijg. De gegevens worden vanuit een formulier toegevoegt. Dus als ik het formulier open wil ik dat hij automatisch in een textvak het volgende Test nummer genereerd. en het nummer mee schrijft in de database als ik de gegevens toevoeg. Hij mag geen nummer gebruiken als hij niet word toegevoegt zodat ier geen hoop nummers verloren gaan.

Hopelijk kan iemand me uit de brand helpen.

P.S kan de file niet zippen wegens veel gevoelige data wat er in staat.

 

[Wigi]

P.S kan de file niet zippen wegens veel gevoelige data wat er in staat.

Hetzelfde bestand dan, maar met fictieve gegevens...

En ook enkel maar de essentie, de rest is niet nodig.

 

[Relleboer]

hier een bestandje met wat ik al heb

 

[Relleboer]

Please is er iemand die me kan helpen met dit probleem

Loop echt vast nu op bovenstaande vraag. Als ik dat gevonden heb kan ik het eindelijk gaan gebruiken op me werk en scheelt een boel ellende.



succes

 

[Wigi]

Janwillem

laat ik jou eens even uit de puree halen...

Druk F7 op het formulier frmparticlesize. Voeg dit toe als code:

Sub userform_initialize()
txttest.Text = WorksheetFunction.Max(Sheets("Database").Columns(1)) + 1
End Sub

Voilà

Wigi

 

[Wigi]

Ook nog:

dit

Sheets("gegevens").Select
Range("F2:F9").Select
Selection.Copy
Sheets("Database").Select
Range("AD2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True

kan je gerust vervangen door:

Sheets("gegevens").Range("F2:F9").Copy
Sheets("Database").Range("AD2").PasteSpecial xlPasteValues, Transpose:=True

 

[Relleboer]

het werkt

duizend maal thanks wigi