Seleccionar celda de valor encontrado

[Potter08 8]

si tengo esta macro

Sub ejemplo()
    valor = 5
    NameO = "BaseX"
    
    Set Rng = Sheets(NameO).Range("A:A").Find(valor, LookAt:=xlWhole)
    
    Sheets(NameO).Rng.Select '<= asi no funciona y coloco separado Sheet(nameO).select y en otra fila Rng.select si lo hace.

End Sub

pero necesito tomar los vlaores de las filas sin necesidad de selecionar la hoja, como hago eso.

Como me posiciono en la celda del valor encontrado  y copio toda la fila a otra hoja

[Potter08 8]

lo que estoy tratando de hacer es esto de copiar ciertas filas de onde encentre el valor hasta donde termina al informacion no toda la fila por que para llenar otra base con mas infromacion

Range(ActiveCell.Offset(0, 0), ActiveCell.End(xlToRight)).Copy

Salu2

[JSDJSD 620]

Sube tu archivo

 

[Potter08 8]

adjunto ejemplo espero me de a entender, gracias

Ejemplo Find and copy.xls

[JSDJSD 620]

Tendrías que poner un antes y un después o explicar lo que necesitas con más detalle, porque no lo entiendo.

[bigpetroman 1,074]

Saludos @Potter08, cuando haces esto

Set Rng = Sheets(NameO).Range("A:A").Find(valor, LookAt:=xlWhole)

y se consigue el valor buscado, ya Rng hace referencia a esa celda, incluyendo hoja y todo, es decir, tu pudieras hacer por ejemplo

Rng.Resize(1, 10).Copy

y con eso estas copiando desde la celda Rgn, hasta 10 columnas a la derecha

Suerte

[tierra_pampa 253]

Hola @Potter08!

Perdón, pero no bajé el archivo cuando armé la prueba.

De todas maneras, lo comparto!

Fijate si cumple con lo que necesitas.

Suerte!
 

ae20200924_post44039_find.xlsm

[Potter08 8]

Hace 1 hora, bigpetroman dijo:

Saludos @Potter08, cuando haces esto

Set Rng = Sheets(NameO).Range("A:A").Find(valor, LookAt:=xlWhole)

y se consigue el valor buscado, ya Rng hace referencia a esa celda, incluyendo hoja y todo, es decir, tu pudieras hacer por ejemplo

Rng.Resize(1, 10).Copy

y con eso estas copiando desde la celda Rgn, hasta 10 columnas a la derecha

Suerte

Excelente solucion es exacto lo que necesitaba, gracias.

[Potter08 8]

Hace 1 hora, tierra_pampa dijo:

Hola @Potter08!

Perdón, pero no bajé el archivo cuando armé la prueba.

De todas maneras, lo comparto!

Fijate si cumple con lo que necesitas.

Suerte!
 

ae20200924_post44039_find.xlsm 18.57 kB · 1 descarga

Gracias muy buen aporte me servira para otro reporte que estoy en proceso, gracias

 

Salu2 a todos, pueden dar por cerrado el caso

JSDJSD gracias por tu interes en otra ocacion sera.