Automatisch Rij invoegem

[maarten drenth]

Beste Forum gebruikers,

Ik wil een knop maken met daaraan een macro die het volgende doet:

Ik heb in kolom A1 tm F100 allerlei data staan. In kolom A staat alleen het klantnummer vermeld. Dus 1, 2, 3, etc.. Nu ben ik op zoek naar een macro die kijkt welke cel in
kolom A leeg is en daar dan een rij tussenvoegt.

Nu heb ik al wel een macro opgenomen en die werkt, alleen staat dan de cel waar een rij tussengevoegd wordt vast. Bij altijd cel A100.

Hopelijk kunnen jullie mij verder helpen.

 

[Wigi]

Uit de losse pols, gewoon hier neergetypt, dus ongetest:

    On Error Resume Next
    Range("A1:A100").SpecialCells(xlCellTypeBlanks).EntireRow.Insert
    On Error GoTo 0

Wigi

 

[maarten drenth]

Hoi

Ik heb nu de volgende macro:

Range("A6").Select
Selection.EntireRow.Insert
Range("A5:H5").Select
Selection.AutoFill Destination:=Range("A5:H6"), Type:=xlFillDefault
Range("A5:H6").Select
Range("B6").Select
End Sub

Hoe zou die dan moeten worden met jou voorbeeld?

Gegroet

 

[Wigi]

Post je code eens tussen code tags aub, dat is het # icoon.

Waarom verander je de vraag nu? In de code hierboven ga je cellen doorvoeren? Ik begrijp niet wat je wil doen.

 

[maarten drenth]

Hoi

Waarom moet de code tussen code tags vermeld worden? Sorry maar ik heb nog niet zo veel gewerkt op dit forum…

Ik zal proberen exact uit te leggen wat ik wil maken.

In kolom A tm H staan diverse gegevens. In de kolommen A, B, C en D staat gewoon data maar in de kolommen E, F, G en H staan formules.

Nu wil ik een macro schrijven waarin:

Er een rij ingevoerd wordt na het laatste volgcijfer (vermeld in kolom A).
Vervolgens de kolommen B tm H worden doorgetrokken voor de ingevoegde rij. Dit ivm de formules die ik gemaakt heb.

Ik hoop dat je begrijpt wat ik bedoel.