extra regel selecteren met ActiveCell.Offset

[vrouw]

Onderstaande regel heb ik om de rij te selecteren war op dat moment de cel actief is.

Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, -15)).Select

Ik wil graag dat OOK A1 tot en met P1 in die regel mee word geselecteerd. Is dat mogelijk?

Dus A1 t/m A6 is altijd een "vaste" selectie de rest afhankelijk waar de cel staat.

 

[SjonR]

zo?

Union(Range("A1:P1"), Cells(ActiveCell.Row, ActiveCell.Column - 15).Resize(, 15)).Select

 

[Haije]

vrouw,

probeer deze eens:

Sub Macro1()
selekteer = ActiveCell.Offset(, -15).Resize(1, 15).Address(False, False)
totsel = "A1:A6," & selekteer
Range(totsel).Select
End Sub

 

[vrouw]

Jaa, dat ziet er wel al goed uit, echter...
het word nu geselecteerd en dat is wel goed maar moet ook gekopieerd worden en dan geeft ie aan dat dat niet mogelijk is op multiple selections.

Union(Range("A2:P2"), Cells(ActiveCell.Row, ActiveCell.Column - 15).Resize(, 15)).[COLOR="#FF0000"]Copy[/COLOR]

 

[emields]

Waarom wil je dat copieeren? verplaats het gewoon zo.
ps Hoe dikwijls is er u al gevraagd een voorbeeldbestand te plaatsen?

[blad2!b2].Resize(, 15) = ActiveCell.Offset(, -14).Resize(1, 15).Value
[blad2!a2].Resize(5, 1) = [A2:A6].Value

 

[vrouw]

Nee verplaatsen wil ik het niet, Ik wil de reeksen gekopieerd hebben omdat het daarna in een mail geplakt moet worden.

Dus het gaat erom dat er een .copy commando achteraan moet:shocked:

 

[HSV]

Met Union moeten de bereiken dezelfde breedte hebben.

union(range("a1:p2"),range("a10:p20")).copy sheets(2).cells(1)

En niet:

union(range("a1:p2"),range("a10:c20")).copy sheets(2).cells(1)

Bij @emields wordt niets verplaatst, de waarden worden weggeschreven.

 

[vrouw]

ook hierbij krijg ik de melding: deze actie werkt niet voor meerdere selecties.

 

[HSV]

Ik schreef ook!

En niet:

union(range("a1:p2"),range("a10:c20")).copy sheets(2).cells(1)

 

[vrouw]

Maar dan word niet de regel waar ik op dat moment sta in de sheet gekopieerd samen met range("a1 t/m p2")

 

[HSV]

Nee, dat lijkt me logisch.

Het is maar een voorbeeld met Union dat de bereiken in de breedte hetzelfde moeten zijn.

 

[vrouw]

dat begreep ik al maar ik krijg nu die ActiveCell.Offset er niet in

 

[HSV]

union(range("a1:p1"),cells(activecell.row,1).resize(10,16)).copy

 

[emields]

Bij @emields wordt niets verplaatst, de waarden worden weggeschreven.

ik dacht dat het ook de bedoeling is het weg te schrijven.
Als je in plaats van [blad2!b2] de plaats zet waar het moet komen zal het daar toch geschreven worden?

Met uw code kan je wel de gevraagde bereiken selecteren maar niet kopiëren.

nl. A1:A6 en van de actieve cel tot 15 cellen naar links. (en wat als de actieve in de eerste veertien kolommen is?)

 

[HSV]

Zo is het precies @emields.