macro voor kopieren van cel naar eerste lege cel in kolom

[Geraldvk]

Beste forumleden,

Ik wil een nummer uit een cel (B17) middels een macro kopieren naar de eerste lege cel in kolom G. Wat is hiervoor de VBA code?

Hartelijk dank.

Mvg,

Gerald

 

[edmoor]

En hoe moet die macro worden geactiveerd?

 

[Geraldvk]

En hoe moet die macro worden geactiveerd?

Ik activeer de macro met een knop waaraan ook een macro gekoppeld zit om het werkblad in pdf op te slaan.

 

[edmoor]

Dan zou je iets als dit er bij in kunnen bakken:

    Dim i As Integer

    For i = 1 To ActiveCell.Row + 1
        If Range("G" & i).Value = "" Then
            Range("G" & i).Value = Range("B17").Value
            Exit For
        End If
    Next

 

[Geraldvk]

Thanks edmoor. Werkt perfect.

 

[edmoor]

Graag gedaan