Lijst uitbreiden mbv. een macro

[Evelthoven]

Goedemiddag,

Graag wil ik een lijst zoals in de bijlage aan kunnen vullen mbv. een macro.
Verdere gegevens zie het bestandje. (dit is een deel uit een heel lange lijst).

Kan iemand mij aub. helpen?

Groeten en alvast bedankt,
Eric

 

[Evelthoven]

Ik ben zelf ook nog steeds bezig. Inmiddels heb ik al iets gemaakt in een macro om een nummer aan kolom A toe te voegen. Alleen moet ik nu nog de totale opmaak hebben van de bovenliggende rij.

Ik heb via zoeken knippen en plakken het volgende gedaan:

Sub LegeCell()
ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
End Sub

Het werkt, maar of het goed is weet ik niet.

 

[Cobbe]

Een eenvoudig macro'tje lost dat op:

Sub cobbe()
 rij = Range("A65500").End(xlUp).Row + 1
  Rows(rij - 1).Copy Rows(rij)
   Rows(rij).ClearContents
   Cells(rij, 1) = Cells(rij - 1, 1) + 1
    Application.Goto Cells(rij, 1)
End Sub

 

[Evelthoven]

Hallo Cobbe,

Precies wat ik bedoel, het werkt perfect.
Zou je me aub. per stap kunnen uitleggen wat er precies gebeurt, want eigenlijk schaam ik me ervoor dit te moeten vragen.

Nogmaals bedankt.

Groeten,
Eric

 

[Cobbe]

Waarom zou je je hiervoor moeten schamen? Het niet vragen en met probleem blijven zitten is erger.

Sub cobbe()
'eerst wordt de eerste vrije rij bepaald in kolom A
 rij = Range("A65500").End(xlUp).Row + 1
' dan copiëer je de laatst ingevulde regel naar beneden, zo heb je ook de verschillende opmaken
  Rows(rij - 1).Copy Rows(rij)
'dan maak je die gecopiëerde regel leeg
   Rows(rij).ClearContents
'dan verhoog je het laatst gebruikte nummer met 1
   Cells(rij, 1) = Cells(rij - 1, 1) + 1
' dit is de opdracht om de eerste cel van de nieuwe regel te selecteren
    Application.Goto Cells(rij, 1)
End Sub

Leuker kunnen we het niet maken.

 

[Evelthoven]

Hallo Cobbe,

Helemaal begrepen. Nogmaals dank.

Gr.
Eric