Volgnummer genereren

[robdgr]

Met onderstaande macro genereer ik een factuurnummer. In AA3 staat het nummer, in AA4 het nummer +1. De macro kopieert AA4 naar D16 en naar AA3. Zo heb ik steeds een opvolgende nummer.

Application.Goto Reference:="R4C27"
Selection.Copy
Application.Goto Reference:="R15C4"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R3C27"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("AA4").Select
Application.Goto Reference:="R15C1"
ActiveWorkbook.Save
Range("D16").Select

Is er een andere methode?

 

[richard1970]

Hoi rdg1314,

Onderstaande regels doen exact hetzelfde:
Range("AA4").Select
Selection.Copy
Range("AA3,D15").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

en dan weer jouw regels:

ActiveWorkbook.Save
Range("D16").Select

Maar wat ook zou kunnen zonder gebruik te maken van de formule in cel AA4:

Dim MijnWaarde
MijnWaarde = Range("AA3").Value
Range("AA3,D15").Select
Selection.Value = MijnWaarde + 1
Application.CutCopyMode = False

Groeten,

Richard

 

[robdgr]

Richard,

Ik heb mijn tekst vervangen door deze twee regels:

Range("D16").Value = Range("AA4").Value
Range("AA4").Value = Range("AA4").Value +1

en dit werkt perfect.

Ik heb in ieder geval ook ontdekt dat ik mij meer moet gaan verdiepen in deze materie.

Dank voor het meedenken,

Rob