formule door kopieren tot aan laatste regel

[boogje]

HOi,

is er een manier om de formule uit kolom b en c door te kopieren tot aan de laaste gevulde regeL? met een macro dan want de aantallen per file varieren.

al vast bedankt

boogje

 

[danny147]

Beste boogje

probeer de volgende macro eens !

A1 wordt doorgesleept tot A1000 in dit geval.

Sub test()
    Range("A1").AutoFill Destination:=Range("A1:A1000")
    Range("A1").Select
End Sub

Groetjes Danny. :thumb:

 

[HSV]

Of:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim counter As Long
counter = Range("B65536").End(xlUp).Row
Range("A1").AutoFill Destination:=Range("A1:A" & counter)
    Range("A1").Select
End Sub

 

[sylvester-ponte]

misschien bedoel je dit?

    k = ActiveSheet.UsedRange.Rows.Count
    Range("B1:C1").Select
    Selection.AutoFill Destination:=Range("B1:C" & k), Type:=xlFillDefaultlt

groet sylvester

 

[trucker10]

sylvester-ponte , zonder select en selection gaat het ook

 

[Jack Nouws]

@ trucker10

Als ik het goed heb doet deze code hetzelfde.

Sub zet()
    k = ActiveSheet.UsedRange.Rows.Count
    Range("B1:C" & k).FillDown
End Sub

Met vr gr
Jack

 

[trucker10]

Jack :thumb: je hebt dat goed gezien , een beetje de wis macro geanalyseerd ik vermoed dat er nog een oneliner komt ( snb )
en dit werkt ook

Sub zet()
  
 k = Cells(Rows.Count, "A").End(xlUp).Row
 Range("B1:C" & k).FillDown

End Sub

 

[trucker10]

boogje , als je een kolom hebt die langer is dan je kolom ( of daar waar de data voor de formule staat ) is het volgens mij beter om een macro te gebruiken die deze kolom afloopt

k = Cells(Rows.Count, "A").End(xlUp).Row

bekijk bestandje en test de twee

 

[Jack Nouws]

ik vermoed dat er nog een oneliner komt ( snb )

Hallo,

Je bedoeld misschien zoiets als dit.

Sub zet()
  Columns(1).SpecialCells(2).Offset(, 1).Resize(, 2).FillDown
End Sub

Met vr gr
Jack

 

[sylvester-ponte]

Hallo,

Je bedoeld misschien zoiets als dit.

Sub zet()
  Columns(1).SpecialCells(2).Offset(, 1).Resize(, 2).FillDown
End Sub

Met vr gr
Jack

hoi Jack

hele mooie code, maar als er een lege cel tussen zit gaat het fout
Resize werkt dan niet.

groet sylvester

 

[Roncancio]

Sub zet()
Range("B1:C" & Range("A" & Rows.Count).End(xlUp).Row).FillDown
End Sub

Met vriendelijke groet,


Roncancio

 

[keesbl]

Als kolom A tot de laatste regel gevuld is, volstaat het volgende:
Dubbelklik op de vulgreep van de cel in kolom B waarin de formule staat. De formule in kolom B wordt nu tot de laatste gevulde rij in kolom A doorgevoerd.
Dit kun je herhalen voor kolom C

Kees

 

[Jack Nouws]

Of als er lege cellen tussen zitten ...

Sub zet()
  Sheets(1).UsedRange.Rows.Offset(, 1).Resize(, 2).FillDown
End Sub

 

[trucker10]

@ Jack , ik kon via email volgen :thumb: , maar ik kan de site " helpmij " niet volledig inladen op de smartphone , de startpagina is geen probleem , wel de pagina's waar de thread staat krijg ik niet compleet binnen . Dit sinds de vernieuwing van de site .

 

[Jack Nouws]

@ Jack , ik kon via email volgen :thumb: , maar ik kan de site " helpmij " niet volledig inladen op de smartphone , de startpagina is geen probleem , wel de pagina's waar de thread staat krijg ik niet compleet binnen . Dit sinds de vernieuwing van de site .

@Trucker10, en ik maar denken dat je altijd een laptop naast je had en dat je tijdens het laden en lossen even alle probleempjes op de helpmij site oploste :thumb:

Met vr gr
Jack

 

[trucker10]

@Trucker10, en ik maar denken dat je altijd een laptop naast je had en dat je tijdens het laden en lossen even alle probleempjes op de helpmij site oploste :thumb:

Met vr gr
Jack

Dit was vorig jaar zo . Maar en paar maand geleden ben ik op de parking in " Wanlin E411 > Luxemburg " mijn laptop kwijtgespeeld aan ?? :evil: langs de rechterkant de rubber van het onderste raampje weggesneden , zo de deur opengemaakt en laptop weg .Ik mis het wel een beetje en ben zinnes om er terug eentje mee te pakken .