Kopieren tot de laatste rij die in gebruik is.

[Gert Bouwmeeste]

Ik heb kolom A, B C. Kolom A is gevuld tot, zeg maar, regel 20. Kolom B is soms wel, soms niet gevuld

Nu wil ik de formule in cel C2 in een macro kopieren tot, in dit gevel, cel C20. Maar 't kan ook C58 moeten zijn, als A58 de laatste regel in kolom A is.

Wat is dan de macro om de formule in C2 te kopieren zover als nodig is in kolom C?

 

[Djoane]

Hoi Gert,

Moet het met een macro? Je zou ook eventueel om je formule een =ALS functie kunnen maken toch? Dat als er bij A21 niks staat, dat er dan in C21 ook niets staat?

Dus bijvoorbeeld in C21:

=ALS(A21>=0;(JOUW FORMULE);"")

 

[zapatr]

Nu wil ik de formule in cel C2 in een macro kopieren tot, in dit gevel, cel C20. Maar 't kan ook C58 moeten zijn, als A58 de laatste regel in kolom A is. Wat is dan de macro om de formule in C2 te kopieren zover als nodig is in kolom C?

Het nut om dit met een macro te doen, ontgaat mij enigszins.
Maar het kan zo (waarbij je uiteraard "jouw formule" ook aan moet passen aan de cel warin die komt te staan):

Sub Kopieer_formule()
Dim x As Integer
' Deze macro is geschreven door Zapatr
For x = 3 To Range("A65536").End(xlUp).Row
Range("C" & x).Formula = "=jouw formule"
Next x
End Sub

 

[Gert Bouwmeeste]

Moet het met een macro?

Ja, want het maakt deel uit van een grotere macro.

For x = 3

Zapatr, waarom begin je met X=3?

 

[Warme bakkertje]

Sub tst()
    With Sheets("Blad1")
        .Range("C2:C" & .Cells(Rows.Count, 1).End(xlUp).Row).FillDown
    End With
End Sub

 

[zapatr]

waarom begin je met X=3?

Omdat je schreef dat er in C2 al een formule staat.
Alleen had ik mijn macro wat misleidend "Kopieer_macro()" genoemd, terwijl die macro niet kopieert maar de formule (die je in de macro nog moet invullen) vanaf C3 in de gewenste cellen plaatst. De macro van bakkertje is wat dat betreft eenvoudiger. Eventueel kun je voor het kopieergedeelte ook gebruiken:

Range("C2").Copy
Range("C3:C" & Range("A65536").End(xlUp).Row).PasteSpecial Paste:=xlPasteFormulas

 

[Gert Bouwmeeste]

Range("C2").Copy
Range("C3:C" & Range("A65536").End(xlUp).Row).PasteSpecial Paste:=xlPasteFormulas.

Deze werkt prima. Dank jullie wel.

 

[zapatr]

Ook mogelijk:

Range("C3:C" & Range("A65536").End(xlUp).Row).Formula = Range("C2").Formula