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

Sólo por unos días suban sus archivos a Dropbox y dejan link en sus consultas. Gracias.

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 Buscar Dato el 10/05/18, 10:08 pm

edwinjo


Buenas noches estimados,
Solicitando de vuestra ayuda con el siguiente, código, para que pueda realizar lo siguiente
1. si no dígito nada y le doy aceptar me diga no ha digitado nada ingrese dato a buscar 
2.si no encuentra el dato me diga dato no encontrado, desea hacer otra búsqueda
3. al encontrar el dato me pregunte si deseo hacer otra búsqueda
Por su fina ayuda muchas gracias
Sub Buscar()
Dim Buscar
Dim texto As String, titulo As String
texto = "Digite el codigo de producto que desea buscar"
titulo = "Busqueda en todas las hojas del libro"
Buscar = InputBox(texto, titulo)
If Buscar = "" Then Exit Sub
For Each hoja In Sheets
If hoja.Name <> "Hoja1" Then
With hoja.Range("A2:AA65500")
Set esta = .Find(Buscar)
If Not esta Is Nothing Then
primeracelda = esta.Address
'opcional: mostrar el nbre de la hoja según consulta original.
MsgBox hoja.Name
hoja.Activate
esta.Select
Exit Sub
End If
End With
End If
Next hoja
End Sub
Archivos
BUSCAR.xlsm
No tienes los permisos para descargar los archivos.
(24 KB)

2RESUELTO Algo adicional el 11/05/18, 06:53 pm

edwinjo


Estimados,
Algo mas que deseo agregarle a este macro es poder buscar, una fecha, por ejemplo 12/12/2017, en todo el libro
Gracias

3RESUELTO Re: Buscar Dato el 13/05/18, 12:38 am

Igtelo

avatar
Hola Edwin.

1.- Te dejo otra variante para aplicar Find next.
2.- Está explicada línea por línea la macro.
3.- La ejecutas con teclas CTRL+k puedes estar en cualquier hoja.
4.- En todas y cada una de las hojas te colorea en verde las celdas.
5.- En hoja1 celda H3, te da el informe de datos encontrados.
6.- Ajusta rangos según tus necesidades.

Ejecútala por pasos "estudia y analiza" cada sentencia. Los avisos que quieres en verdad para nada te sirven, sólo quitan tiempo...

Para lo que quieres de buscar la fecha, "intenta hacerlo", aquí ya tienes el procedimiento (una forma hay varias), sino logras obtenerlo abres otra consulta con el archivo correspondiente y que venga explicado línea por línea el código.


Te doy tip: Como vas a buscar fechas, Excel trabaja primero el mes y luego el día, tendrás que trabajar con formatos, busca en la ayuda y también el la red, debes intentar.


Saludos
Ignacio Téllez
Archivos
Edwinjo-Find todo el ibro y color en celda.xlsm
No tienes los permisos para descargar los archivos.
(25 KB)

4RESUELTO Esceente el 14/05/18, 10:03 am

edwinjo


Muchas Gracias,
Revisare, como me aconsejas, muy fino con la ayuda, esta pero excelente

edwinjo

Contenido patrocinado


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.