Kopieren naar eerst volgende lege regel

[Schipperjte]

Hallo ,

Heb een bestandje waar wat tijden ingevuld moeten worden , deze tijden zou ik graag via een macro naar de week nummers weg willen schrijven.

BV

van invul naar week 21 . tijden laden of tijden lossen

Ik heb 2 macro's opgenomen die of laad of los tijden kopieren naar week 21.

Hoe kan ik deze macro aanpassen dat hij naar het week nummer kijkt en naar de eerst volgende lege rij gaat ?.
De laad en lostijden moeten op een aparte rij.


Bas

 

[Jack Nouws]

Hallo Schipperjte

Kijk eens of je met deze macro uit de voeten kunt.

Sub Laadtijd()
 
 With Sheets("Week " & [D25]).Cells(Rows.Count, 1).End(xlUp)
    .Offset(1) = [L5]
    .Offset(1, 1) = [D26]
    .Offset(1, 2) = [N5]
    .Offset(1, 3) = [N7]
    .Offset(1, 4) = [N9]
    .Offset(1, 5) = [N11]
    .Offset(1, 7) = [D27]
End With

End Sub

Met vr gr
Jack

 

[Schipperjte]

Nou dat is aardig in de buurt ,alleen kijkt hij niet naar heel de rij.

Als er wat aan de los zijde is ingevuld (rechts ) dan zet hij ze gewoon op de zelfde regel

Eigenlijk zou hij die regel dan moeten overslaan.

 

[Jack Nouws]

Nou dat is aardig in de buurt ,alleen kijkt hij niet naar heel de rij.

Als er wat aan de los zijde is ingevuld (rechts ) dan zet hij ze gewoon op de zelfde regel

Eigenlijk zou hij die regel dan moeten overslaan.

Wat vind je er zo van?

Sub Laadtijd()
 
  With Sheets("Week " & [D25]).Cells(Rows.Count, 1).End(xlUp)
    .Offset(1) = [L5]
    .Offset(1, 1) = [D26]
    .Offset(1, 2) = [N5]
    .Offset(1, 3) = [N7]
    .Offset(1, 4) = [N9]
    .Offset(1, 5) = [N11]
    .Offset(1, 7) = [D27]
  End With

End Sub
Sub Lostijd()
 
  With Sheets("Week " & [D25]).Cells(Rows.Count, 1).End(xlUp)
    .Offset(1) = [L5]
    .Offset(1, 8) = [D28]
    .Offset(1, 9) = [N15]
    .Offset(1, 10) = [N17]
    .Offset(1, 11) = [N19]
    .Offset(1, 12) = [N21]
  End With

End Sub

Met vr gr
Jack

 

[Warme bakkertje]

Zoiets misschien ?