UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Macro buscar el 27/09/15, 07:09 pm

Jhony


Buenas tardes compañeros. Una ayuda por favor: estoy tratando de hacer una macro que me busque un dato y se quede en la celda que busco, dentro de un rango. En el archivo adjunto, viene más detalles. Agradezco de antemano la ayuda proporcionada. Gracias y buena tarde.
Archivos
Macro buscar1.xls
No tienes los permisos para descargar los archivos.
(36 KB)

2RESUELTO Re: Macro buscar el 28/09/15, 03:25 am

adolfo castro


On Error Resume Next
' Macro2 Macro
Dim filx
Dim fila As Integer
Dim dato
Dim busco
dato = Sheets("hoja1").Range("f1").Value
   Set busco = [A:A].Find(what:=dato, LookIn:=xlValues, lookat:=xlWhole).Activate
   If Not busco Is Nothing Then  'si encontró el dato
   filx = busco.Rows.    'Opcional: guardar la fila encontrada
Else
MsgBox "No encontrado"
End If

3RESUELTO Re: Macro buscar el 28/09/15, 11:44 am

Jhony


Buenos días Adolfo. Agradezco mucho la ayuda y tu valioso tiempo.
Me está saliendo un error al ejecutar la macro.
filx = busco.Rows.     'Opcional: guardar la fila encontrada
Se ponen las letras en color rojo y el cuadro dice: Error de compilación "Se esperaba: identificador o expresión entre paréntesis".
¿Me podrías indicar por favor, si hice algo mal o cambie algo?
Muchas gracias y buen día.

4RESUELTO Re: Macro buscar el 28/09/15, 12:05 pm

adolfo castro


On Error Resume Next
' Macro2 Macro
Dim filx
Dim fila As Integer
Dim dato
Dim busco
dato = Sheets("hoja1").Range("f1").Value
   Set busco = [A:A].Find(what:=dato, LookIn:=xlValues, lookat:=xlWhole).Activate
   If Not busco Is Nothing Then  'si encontró el dato
   filx = busco.Rows.    'Opcional: guardar la fila encontrada
Else
MsgBox "No encontrado"
End If

5RESUELTO Re: Macro buscar el 28/09/15, 12:10 pm

Igtelo


Hola Jhony / Adolfo.

Adjunto mi opción.

Saludos
Ignacio Téllez
Archivos
Jhony-Macro buscar1.xls
No tienes los permisos para descargar los archivos.
(59 KB)

6RESUELTO Re: Macro buscar el 28/09/15, 01:06 pm

Igtelo


Subo otro, se me pasó un detalle en el anterior

Saludos
Ignacio Téllez
Archivos
Jhony-Macro buscar2.xls
No tienes los permisos para descargar los archivos.
(58 KB)

7RESUELTO Re: Macro buscar el 28/09/15, 03:22 pm

Jhony


Buenas tardes compañeros. Les agradezco mucho su tiempo y ayuda.
Las 2 me funcionan bien.
Muchas gracias y que tenga un excelente día; aunque haga un poco de frio. Hasta pronto.
PD: ¿puedo dejar abierta unos días esta pregunta? lo que pasa es que a dicha macro, falta que le ingrese otras 2 órdenes y lo primero que trate de hacer, pues no me salio. Ahora con la respuesta que me dieron ustedes, voy a tratar de insertar los otros 2 eventos, esperando me salga, pero si no es así, quisiera pedirles su asesoría. Esperando me se aceptada dicha petición.
Gracias compañeros y hasta luego.

8RESUELTO Re: Macro buscar el 29/09/15, 01:42 am

Igtelo


Hola Jhony.

Oki doki, nada más que no sean muchos días y cosas totalmente ajenas a la pregunta inicial.

Saludos
Ignacio Téllez

9RESUELTO Re: Macro buscar el 30/09/15, 03:06 pm

Jhony


Buenas tardes compañeros. Voy a cerrar la pregunta, ya que por causas de exceso de trabajo, no me ha sido posible terminar con los eventos que les comenté. Mejor cierro la pregunta y ahora que termine el trabajo, continuo con este asunto. Esperando su comprensión. Agradezco de antemano su apoyo. Gracias y buena tarde.

10RESUELTO Re: Macro buscar el 30/09/15, 04:22 pm

adolfo castro


Si es por exceso no te preocupes, un contrato y me pongo a currar ya

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.