getal op laten volgen in werbladen

[hondengek]

Hallo,

Ik wil in 300 werkbladen het factuurnummer automatisch op laten lopen.
Welke formule moet ik hier voor gebruiken?

Sorry, ik kan het nergens vinden....

Hondengek

 

[popipipo]

ÉÉN bestand met 300 werkbladen?
Ik denk dat je hier wat anders voor moet verzinnen.
Dit vraagt om problemen.

 

[hondengek]

Nee eigenlijk niet,
Werk al jaren zo, ieder kwartaal in een map en soms zijn dat wel 400 bladen....

Maar misschien dat die problemen wel gaan ontstaan nu ik het wil gaan totaliseren, zodat er overzicht ontstaat...

 

[Roncancio]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Range("A" & ActiveCell.Row).Value = "" Then
    ActiveSheet.Range("A" & Target.Row).Value = ActiveSheet.Range("A" & Target.Row).Offset(-1, 0).Value + 1
End If
End Sub

Dit is een macro voor ThisWorkbook.
Als er een wijziging plaatsvindt in een werkblad dan kijkt de macro of er in de A-kolom het factuurnummer is ingevuld.
Is dit niet het geval dan wordt de waarde van de cel erboven met 1 verhoogd en in de cel geplaatst.

Met vriendelijke groet,


Roncancio

 

[hondengek]

Dank je wel.
Sorry, ik ben niet thuis in de macro's. Waar moet ik dit plaatsen?

Bedankt voor de genomen moeite.

Hondengek

 

[Roncancio]

Dank je wel.
Sorry, ik ben niet thuis in de macro's. Waar moet ik dit plaatsen?

Bedankt voor de genomen moeite.

Hondengek

- Rechtermuisknop op de tabnaam van het werkblad (onderaan dus).
- Kies voor Programma code Weergeven.
- Ga naar Beeld - Projectverkenner (CTRL-R)
- Rechtmuisknop op ThisWorkbook.
- Kies voor Programma code Weergeven
- Plak daar onderstaande (verbeterde) de code in.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Range("A" & ActiveCell.Row).Value = "" Then
    ActiveSheet.Range("A" & Target.Row).Value = WorksheetFunction.Max(ActiveSheet.Range("A1:A" & Target.Row - 1).Value) + 1
End If
End Sub

De code is nu werkzaam voor alle werkbladen.

Met vriendelijke groet,


Roncancio