Rij toevoegen totdat waarde 0 is

[allard1]

Beste Excellerts,

Ik ben bezig met een rekentooltje. Nu wil ik graag automatisch rijen toevoegen totdat de waarde in cel b 0 is. Ik weet hoe ik automatisch rijen kan toevoegen en ik weet ook hoe loops werken, echter krijg ik het niet voor elkaar deze samen te voegen. Wie heeft er een idee c.q. voorbeeld om dit wel voor elkaar te krijgen. Ik wil overigens als basis voor de berekening een Autofill gebruiken met datum en berekening.

Alvast bedankt

Allard

 

[WimenBeer]

Allard,

Stuur even een klein voorbeeldje, dan kunnen we daar mee verder gaan

Wim

 

[allard1]

Allard,

Stuur even een klein voorbeeldje, dan kunnen we daar mee verder gaan

Wim

Hoi,
Ik was iets te snel met vragen. Ik heb de vraag namelijk omgedraaid. Eerst alles vullen en dan alles verwijderen welke de waarde kleiner dan 0 heeft. Onderstaand mijn code

Private Sub test_Click()

Application.ScreenUpdating = False

Range("A3:B3").Select
    Selection.autofill Destination:=Range("A3:B25"), Type:=xlFillDefault
    Range("A1").Select
LastRow = ActiveSheet.UsedRange.Rows.Count
For r = LastRow To 1 Step -1
If (Cells(r, 2).Value < 0) Then Cells(r, 2).EntireRow.Delete
Next r
Application.ScreenUpdating = True
End Sub

Excuses voor het ongemak, maar wellicht heeft iemand nog iets aan de code.