Copy regel met doornummering

[HWV]

Beste,

Ik heb een code om de laatse regel te kopieren en deze weer te plaatsen op de eerste lege plek.
Dit gaat goed .

Nu heb ik in kolom A het volgende staan.

AV_10
AV_11
AB_12
CB_13

Nu zo ik willen dat hij doornummerd terwijl ik een copy van de regel maakt.

Ik maak een copy en ndan wordt de regel begonnen met in dit geval
CB_14

Sub CopyRow()
Sheets("DataBase").Rows(Sheets("DataBase").UsedRange.Rows.Count).EntireRow.Copy
Sheets("DataBase").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues

End Sub

Wie zou daar mij willen helpen.

In de bijlage ene voorbeeld bvan mijn bestand.

Groet HWV

 

[richard1970]

Hoi,

Probeer het eens met de formule:

="AV_"&RIJ()+8

Kun je hier wat mee?

Richard

 

[HWV]

Beste,

Bedankt voor de reactie.
Het is niet altijd AV_ het verschilt elke keer welke medewerker er zijn code aangeeft.
Is dit ook in VBA te doen, ik snap niet echt hoe ik de optelling moet doen zodat ik door kan tellen.

Groet HWV

 

[snb]

Sub zozo()
  With Sheets("DataBase").Cells(Rows.Count, 1).End(xlUp).EntireRow
    .AutoFill .Resize(2)
  End With
End Sub

 

[HWV]

Beste,

In eerste instantie dacht ik geweldig, maar helaas telt hij ook de kolommen na Kolom A door.
Als het kan wil ik alleen kolom A door geteld hebben .

Sub zozo()
  With Sheets("DataBase").Cells(Rows.Count, 1).End(xlUp).EntireRow
    .AutoFill .Resize(2)
  End With
End Sub

Groet HWV

 

[snb]

Use our imagination.
Omdat jouw voorbeeldbestand geen echte gegevens bevat kan ik er verder niets mee.

 

[HWV]

Beste,

Ik heb geprobeerd het te doen, gekeken met F8 maar kom niet verder

Use our imagination.

Het lijk veel op de CTRL + D functie ,

In de bijlage misschien een beter bestand.

Groet HWV

 

[Ginger]

maar helaas telt hij ook de kolommen na Kolom A door.
Als het kan wil ik alleen kolom A door geteld hebben .

Niet helemaal zeker of dit nou je bedoeling is, maar ik heb een kleine aanpassing aan de code van snb gemaakt...

Sub zozo2()
  With Sheets("DataBase").Cells(Rows.Count, 1).End(xlUp)
    .EntireRow.Copy .Offset(1)
    .Cells(1, 1).AutoFill .Resize(2)
  End With
End Sub

Groet, Leo

 

[Warme bakkertje]

Ik zou zelfs de Cells weglaten

Sub zozo2()
  With Sheets("DataBase").Cells(Rows.Count, 1).End(xlUp)
    .EntireRow.Copy .Offset(1)
    .AutoFill .Resize(2)
  End With
End Sub

 

[HWV]

Beste,

Bedankt voor je inbreng wat tevens gelijk de oplossing is.

Groet HWV

Ps

Zag net je oplossing ook staan Rudi, werk ook perfect.
Zal het morgen bestuderen wat nu wel degelijk het verschil is tussen de code
van SNB, Ginger en die van warme bakkertje