range variabili vba

[calculon]

Ciao a tutti,
vorrei provare a selezionare un range compreso fra due parole chiave (ciao) per poi spostarmi nella colonna accanto conservando lo stesso intervallo di righe.

Es.
A | B
----------- |--------
Ciao |
mamma |
babbo |
fratello |
Ciao |


Cells.Find(what:="ciao", After:=ActiveCell, LookAt:=xlPart).Activate
Range(ActiveCell.Offset(1), Cells.Find(what:="ciao", After:=ActiveCell, LookAt:=xlPart).Offset(-1)).Select 'in questo modo seleziona solo il range compreso fra mamma e fratello. e poi vorrei mantenere lo stesso range (in questo caso 3 righe) però nella colonna accanto.
Se quindi il range rilevato dal codice sopra riportato risulta essere a2:a5, vorrei con un codice traslarlo in b2:b5.

Come posso impostare il codice?

grazie mille

[Anthony47]

Codice: Seleziona tutto

Cells.Find(what:="ciao", After:=ActiveCell, LookAt:=xlPart).Activate
Range(ActiveCell, Cells.Find(what:="ciao", After:=ActiveCell, LookAt:=xlPart)).Select
Selection.Offset(0, 1).Select


Ti ho eliminato due offset nella tua seconda linea (perche' forse sia il primo Ciao che il secondo devono essere comprese nella selezione) e ho inserito l' offset finale per andare sulla colonna adiacente.
Tuttavia la descrizione verbale e l' esempio fatto dei dati non mi danno la certezza se vuoi selezionare A2:A4 ->B2:B4, o A1:A5 -> B1:B5 o A2:A5 ->B2:B5. A seconda del caso ripristina uno o l' altro o ambedue degli Offset originali.

Ciao

[calculon]

alla grande. Ho risolto come da tuo suggerimento.

Grazie