selectie van variable gebied

[fotofons]

In een macro heb ik staan: Range("A1:F15").Select
F15 is echter geen vast gegeven maar afhankelijk van de plaats waar mijn celcursor stond.
Wie helpt mij op de goede weg?

 

[Roncancio]

Range("A1:" & ActiveCell.Address).Select

Met vriendelijke groet,


Roncancio

 

[fotofons]

Range("A1:" & ActiveCell.Address).Select

Met vriendelijke groet,


Roncancio

 

[fotofons]

Bedankt voor je reactie.
Ben nog niet zo bedreven in MVB.
Was te optimisch
Dus nu maar het volledige macro:

Range("A112").Select
Range("D12").Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$12"
Range("A1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

 

[Roncancio]

Bedankt voor je reactie.
Ben nog niet zo bedreven in MVB.
Was te optimisch
Dus nu maar het volledige macro:

Range("A112").Select
Range("D12").Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$12"
Range("A1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Als je PrintOut toevoegt ipv select aan mijn code dan ben je zo te zien al klaar, tenzij je meerdere werkbladen tegelijk wilt printen.
Dus:

Range("A1:" & ActiveCell.Address).PrintOut

Met vriendelijke groet,


Roncancio

 

[fotofons]

Als je PrintOut toevoegt ipv select aan mijn code dan ben je zo te zien al klaar, tenzij je meerdere werkbladen tegelijk wilt printen.
Dus:

Range("A1:" & ActiveCell.Address).PrintOut

Met vriendelijke groet,


Roncancio

Het is nog makkelijker dan ik dacht. REUZE bedankt

 

[Roncancio]

Het is nog makkelijker dan ik dacht. REUZE bedankt

Excel is ook heel makkelijk.

Wil je de vraag op opgelost zetten, svp.

Bvd.

Met vriendelijke groet,


Roncancio