Excel - VBA De volgende lege cel gaan invullen

[myx2]

Beste,

alvorens bedankt om naar deze vraag te kijken.

Het zit zo:

 Sub GroterDanNul()
Dim n As Integer
Dim c As Range

n = 1

    With Sheets("Info")
        For Each c In .Range("G2:G1000")
             If c.Value <> 0 Then
c.EntireRow.Copy _
           Destination:=Sheets("Blad5").Range("A" & Rows.Count).End(xlUp).Offset(n, 0)
                   n = n + 1
                              
            End If
        Next c
    End With
End Sub

De code heb ik..
De bedoeling is dus om in tabblad 'Info" heel wat namen te gaan bekijken in de Kolom G, wanneer deze verschillend is van nul zal hij deze rij kopiëren naar een nieuwe tab.

Nu zou ik dit graag tweemaal na elkaar willen uitvoeren zodanig hij automatisch de volgende lege cel neemt in blad 5.

Ik dacht dit eerst in combinatie te doen met:

Range("B65535").End(xlUp).Offset(1, 0).Select

Maar weet niet goed hoe eraan te beginnen
Bedankt bij voorbaat !

 

[HSV]

Probeer deze versie eens, en voer de code twee keer uit.

Sub GroterDanNul()
    Dim c As Range
  With Sheets("Info")
        For Each c In .Range("G2:G1000")
             If c.Value > 0 Then
      Sheets("Blad5").Cells(Rows.Count, 1).End(xlUp).Offset(1).EntireRow.Value = c.EntireRow.Value
     End If
   Next c
  End With
End Sub

 

[myx2]

Bijlage

Hey,

alvast hartelijk bedankt voor de reactie..
Ik had deze ook reeds geprobeerd maar dan neemt ie de eerste lijn om in te vullen.

Hierbij een bijlage met mijn en jouw code erin.

Heb ze natuurlijk iets wat aangepast (inhoud excel) naar mijn originele versie toe.

Nogmaals bedankt!

 

[HSV]

Het komt doordat je weggschrijft op basis van kolom A.
En aangezien daar niets wordt ingevuld, zul je nooit de code twee keer kunnen uitvoeren om de waarden onder elkaar te krijgen.
Je overschrijft ze nu keer op keer.

Let op de rode 7.

Sheets("Blad5").Cells(Rows.Count, [COLOR="red"]7[/COLOR]).End(xlUp).Offset(1).EntireRow.Value = c.EntireRow.Value

 

[myx2]

Zoo zo

Hartelijk bedankt!

Inderdaad deze werkt perfect.
Nogmaals bedankt en een prettige dag verder.