Jump to content

Seleccionar celda de valor encontrado


Go to solution Solved by tierra_pampa,

Recommended Posts

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

Link to post
Share on other sites

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

Link to post
Share on other sites

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

Link to post
Share on other sites
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.

Link to post
Share on other sites
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.

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×
×
  • Create New...

Important Information

Privacy Policy