[Excel] dynamische/variabele range aangeven (voor een macro)

[tbenschop2]

Momenteel probeer ik een macro te maken, die al mijn sheets toepasbaar moet zijn. Er kunnen 1 tot enkele honderden regels/rijen in een sheet staan.

Stel, ik heb er één met 50 regels die ik gebruik om de macro mee te maken. Kolom A en B zijn al gevuld, kolom C is leeg. Ik wil kolom A en B samenvoegen in kolom C. Dus in cel C1 voer ik in
=A1&B1
Mijn vraag: hoe zorg ik er nu voor dat alle regels hieronder nu ook de juiste waarde krijgen (A+B)?
Als ik dubbel op de rechter onderhoek van cel C1 klik, dan worden alle waarden netjes naar beneden gekopieerd. Echter in de macro wordt dit geregistreerd als 'tot en met rij 50'. Dat is niet goed, want in een andere sheet, met (bijvoorbeeld) 200 regels, moet hij C1 doorkopieren t/m rij 200.

Dus: hoe zorg ik voor een variabele range in mijn macro, die C1 altijd doorkopieert tot de laatste regel uit mijn sheet?

[g0tanks]

Er zijn meerdere manieren om de laatste regel nummer te bepalen. Zie bijvoorbeeld: https://www.excelcampus.com/vba/find-last-row-column-cell/

Je zult in je macro moeten inbouwen dat het voor elke sheet opnieuw wordt bepaald.

[Ruben0s]

variabel = Range("A" & Rows.Count).End(xlUp).Row
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C" & variabel)

[ Voor 7% gewijzigd door Ruben0s op 27-01-2020 15:51 ]

[tbenschop2]

Ik ga het proberen. Thanks!

[tbenschop2]

Het werkt! Bedankt!

Dit is mijn test macro, die in kolom B in elke rij een 1 plaatst waar er iets in kolom A staat.
--------------------------------
Sub Macro2()
'
' Macro2 Macro
'

'
ActiveCell.FormulaR1C1 = "1"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B" & (Range("A" & Rows.Count).End(xlUp).Row))
Range("B1:B" & (Range("A" & Rows.Count).End(xlUp).Row)).Select
End Sub