Cellen kopiëren naar eerste lege regel in specifiek bereik

[gvanwijk]

Zie bijlage voor voorbeeld

Met welke macro kan ik de cellen waarin een waarde is ingevuld kopiëren naar de eerste lege regel van een ander tabblad?

 

[JEC.]

Bijvoorbeeld (zorg wel dat je formules uit het tweede tabblad verwijderd zijn)

Sub j()
For i = 11 To 40
 If Sheets(1).Cells(i, 2) <> "" Then Sheets(2).Cells(55, 2).End(xlUp).Offset(1).Resize(, 2) = Sheets(1).Cells(i, 2).Resize(, 2).Value
Next
End Sub

 

[gvanwijk]

Fijn, dank je. Het werkt precies zoals de bedoeling was :thumb:

 

[gvanwijk]

vraag aanpassen code

@ JVeer Toch nog even een vraag over de code:

als op sheet1 de gegevens niet in cellen B11-C40 staan maar in C3011-D3040 (dus 1 kolom naar rechts en een heleboel rijen naar beneden) hoe verandert je code dan?

Sub j()
For i = 11 To 40
 If Sheets(1).Cells(i, 2) <> "" Then Sheets(2).Cells(55, 2).End(xlUp).Offset(1).Resize(, 2) = Sheets(1).Cells(i, 2).Resize(, 2).Value
Next
End Sub

 

[JEC.]

Zo. Je verandert hiermee het te doorzoeken gebied

Sub j()
For i = [COLOR="#FF0000"]3011 To 3040[/COLOR]
 If Sheets(1).Cells(i, [COLOR="#FF0000"]3[/COLOR]) <> "" Then Sheets(2).Cells(55, 2).End(xlUp).Offset(1).Resize(, 2) = Sheets(1).Cells(i, [COLOR="#FF0000"]3[/COLOR]).Resize(, 2).Value
Next
End Sub

 

[VenA]

Meestal is een filter wat sneller.

Sub VenA()
  With Sheets("Bestelllingen").Range("B10:C40")
    .AutoFilter 1, "<>"
    .Offset(1).Copy Sheets("Ophaallijst").Cells(55, 2).End(xlUp).Offset(1)
    .AutoFilter
  End With
End Sub

 

[gvanwijk]

@Jveer: gesnapt, het werkt! Dank je!
@VenA: ga ik 's proberen, dank je!