Buscador de datos en libros

publicado el 25 de junio15 años

Buenas por petición de varios compañeros he creado el siguiente buscador de un dato en otro libro pudiendo seleccionar la carpeta donde se encuentra el libro, si se desea buscar en una pagina enconcreto o en todas.

lista las coincidencias sobre el dato buscado y se puede seleccionar dentro de la lista cualquier dato dato dirigiendonos al libro y hoja donde se encuentra

bueno espero que les sea de utilidad, logicamente es muy mejorable pero bueno hay esta

un saludo

PD para acceder al userform para realiar la busqueda he creado un menú que aparecera en la cinta de complementos como Logroastur

Logroastur buscador.zip

publicado el 26 de junio15 años

Saludos Logroastur, intente bajar tu archivo, pero cuando lo abro aparece todo en blanco, si nada de informacion. Sere yo?

Gracias

publicado el 26 de junio15 años

juliop. Tienes que ir a la pestaña Complementos, arriba del todo y te aparecerá una barra nueva. A la izquierda, arriba, en esa cinta, verás que dice Logroastur. Le das ahí un click y te aparecerá el UserForm.

publicado el 26 de junio15 años

Ah ya entendi perdon.

Muy bueno!!!! y sobre todo muy util!! Gracias Logroastur por el archivo y Julibaga por la aclaracion.

54022298

Miembro

Separador argumentos:
;
Versión Excel:
Excel 365 Windows
Excel 365 Mac
Excel 2021 Windows
Excel 2021 Mac
Excel 2019 Windows
Excel 2019 Mac
Excel 2016 Windows
Excel 2013 Windows
Excel 2010 Windows
Anterior a Excel 2010 Windows
Anterior a Excel 2019 Mac

publicado el 26 de junio15 años

Logroastur creo que me has solucionado muchos problemas, lo probare mas a fondo y te comento.

Gracias

publicado el 1 de julio15 años

Que buena que está esta macro....gracias!!!!

publicado el 1 de julio15 años

Hola:

Los combos me aparecen vacios. ¿ Alguna idea ?.

He intentado seguir el código pero, en este bucle no encuentra ningún eolemento.

For Each fca In fc

    ComboBox1.AddItem fca.Path

Next fca

[/CODE]

he quitado todos los On Error, pero no da ningun error.

Salu2. Antoni.

publicado el 1 de julio15 años

Autor

Buenas Antoni comentas que te aparecen vacios osea no existen datos para seleccionar en el combo 1 o despues de seleccionar una carpeta en el combo 2 no existen datos.

si no te aparecen datos en el combo1 prueba a colocar tu unidad de disco con dos puntos osea si es C seria

ya comentaras

un saludo

publicado el 1 de julio15 años

Hola logtoastur:

Ya me funciona, era un problema de concepto, gracias, muy bueno por cierto.

Salu2. Antoni.

publicado el 1 de julio15 años

Autor

Muchas gracias por los elogios pero bueno espero que alguien pueda llegar a perfecionar el codigo para no tener que andar manejando el tema de los combox y que colocando la palabra realice la busqueda en cualquier libro que exista

en ello estoy y encuanto lo consiga lo pondre por aca

un saludo

publicado el 5 de julio15 años

Que gran trabajo el que has desarrolado, pero lo mas importante es que lo compartes con nosotros, no me queda mas que darte las GRACIAS!!! y quitarme el sombrero ante ti estimado gran maestro LOGROASTUR

Saludos

publicado el 5 de julio15 años

Autor

Buenas Gerson se agradece el honor de color el titulo de maestro pero la verdad es que aún me siento como un parvulario ( perdon posiblemente no conozcas el termino, es decir como un chico de guarderia)

por otro lado el tema de la publicación no es otra que la que posee el espiritu de este foro enseñar lo que uno puede saber para aprender lo que los demas sepan

un coordial saludo

https://ayudaexcel.com/foro/topic/8946-buscador-de-datos-en-libros/

Seguidores

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

194 Archivos
100 Comentarios
30 Revisiones
Última descarga

Nuevo mapa de municipios españoles
- 3

Crear un loop para emitir recibos

Por Corvette, · publicado ayer a las 04:211 día
Crear un loop para emitir recibos

Hola! anoche estuve revisando, tuve que hacer unos pequeños ajustes en la direccion de la carpeta (en vez de poner la direccion en partes la coloque toda de corrido parecida a como estaba antes) y logramos (vos y yo) que funcione!. Tambien tuve que desactivar la linea de código que bloqueaba la hoja porque sino no estaba dejando que la macro escriba el codigo de la propiedad en la celda, pero eso es lo de menos, supongo que lo puedo solucionar poniendo el bloqueo al final de la macro que creaste o desprotegiendo la celda donde se pone el codigo de propiedad.
Así que doy por supuesto que eso lo voy a poder hacer funcionar por lo que entonces voy a marcar como que ya está solucionado lo que necesitaba.
Agradezco muchisimo tu ayuda porque era sumamente tedioso tener que estar haciendo los recibos de a uno ya que la macro de envio de recibos es medio lenta. Ahora no me importa si tarda mucho, apretaré el boton y le daré todo el tiempo que se quiera tomar mientras yo hago otra cosa.
Gracias nuevamente!!!!

Por Corvette, · publicado el martes a las 16:464 días
Crear un loop para emitir recibos

Prueba con tu código modificado

Por JSDJSD, · publicado el 5 de diciembre5 dic
Crear un loop para emitir recibos

Sub Imagen13_Haga_clic_en() Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single Dim rutaArchivo As String Dim Email As CDO.Message Dim t As Single Application.DisplayAlerts = False Application.ScreenUpdating = False ActiveSheet.Unprotect "4324" '--- GENERAR IMAGEN DEL RECIBO --- With Range("H7:R34") Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height .CopyPicture End With With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto) .Activate .Chart.Paste '---- RUTA DEL ARCHIVO (CORREGIDO) ---- rutaArchivo = "C:\Users\Usuario\Google Drive\LOCACIONES\REC. PROPIETARIOS\" & _ Format(Range("Q20"), "mmmYY") & " - " & _ Range("Q9") & " - " & _ Range("P17") & " - " & _ Range("K19") & ".JPG" .Chart.Export rutaArchivo .Delete End With 'Guardar ruta en AK30 por compatibilidad Range("AK30").Value = rutaArchivo '--- PEGAR BLOQUE DE DATOS --- Range("AH6").Copy Range("AH9").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Range("Y7:AI33").Copy Range("H7").PasteSpecial xlPasteAll ActiveSheet.Protect "4324" ActiveWorkbook.Save '--- PREPARAR ENVÍO DEL MAIL --- Set Email = New CDO.Message correo_origen = "nqn.negocios@gmail.com" Clave_correo_origen = "wkfhaapcnjljbwju" correo_destino = Range("AK27").Value Asunto = Range("AK28") Mensaje = Range("AK29") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 With Email.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End With '--- VALIDAR ARCHIVO ANTES DE ENVIAR --- t = Timer Do While Dir(rutaArchivo) = "" And Timer - t < 5 DoEvents Loop If Dir(rutaArchivo) = "" Then MsgBox "ERROR: El archivo no se generó: " & rutaArchivo, vbCritical Exit Sub End If '--- ENVIAR MAIL --- With Email .To = correo_destino .From = correo_origen .Subject = Asunto .TextBody = Mensaje .Configuration.Fields.Update .AddAttachment rutaArchivo On Error Resume Next .Send End With End Sub Sub powerbuttonINQ() Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single Dim rutaArchivo As String Dim Email As CDO.Message Dim t As Single Application.DisplayAlerts = False Application.ScreenUpdating = False ActiveSheet.Unprotect "4324" '--- GENERAR IMAGEN DEL RECIBO --- With Range("H7:R33") Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height .CopyPicture End With With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto) .Activate .Chart.Paste rutaArchivo = "C:\Users\Usuario\Google Drive\LOCACIONES\REC. INQUILINOS\" & _ Format(Range("Q20"), "mmmYY") & " - " & _ Range("Q9") & " - " & _ Range("P17") & " - " & _ Range("J17") & ".JPG" .Chart.Export rutaArchivo .Delete End With Range("AK30").Value = rutaArchivo Range("AH6").Copy Range("AH9").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Range("Y7:AI33").Copy Range("H7").PasteSpecial xlPasteAll ActiveSheet.Protect "4324" ActiveWorkbook.Save '--- EMAIL CONFIG --- Set Email = New CDO.Message correo_origen = "nqn.negocios@gmail.com" Clave_correo_origen = "wkfhaapcnjljbwju" correo_destino = Range("AK27").Value Asunto = Range("AK28") Mensaje = Range("AK29") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 With Email.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End With '--- VERIFICAR ARCHIVO --- t = Timer Do While Dir(rutaArchivo) = "" And Timer - t < 5 DoEvents Loop If Dir(rutaArchivo) = "" Then MsgBox "ERROR: El archivo no se generó: " & rutaArchivo, vbCritical Exit Sub End If '--- ENVIAR --- With Email .To = correo_destino .From = correo_origen .Subject = Asunto .TextBody = Mensaje .Configuration.Fields.Update .AddAttachment rutaArchivo On Error Resume Next .Send End With End Sub

Por JSDJSD, · publicado el 5 de diciembre5 dic
Crear un loop para emitir recibos

Hola! como estás?
Ahora parece ser que quisiera funcionar la macro, pero no he logrado que llegue hasta el final porque me arroja error cuando tiene que adjuntar el archivo (lo cual normalmente funciona bien)... no lo entiendo, porque estuve revisando si el archivo seguía guardandose con el mismo formato y en la misma carpeta y, por lo que vi, está todo correcto.

Buenas tardes!
Estuve haciendo la prueba. La macro no llega a finalizar porque arroja el error que muestro en los archivos adjuntos. No entiendo por qué no logra encontrar los archivos al ejecutar el loop, porque si utilizo la macro original (es decir, sin el loop), funciona correctamente.
Se me ocurría que quizá al copiar y pegar el codigo en la celda P17 quizá estuviera poniendo algo extra en el nombre del archivo a crear que hiciera que el recibo creado no se guardara exactamente con el mismo nombre por el que luego la macro lo intentaría localizar el para enviarlo por mail, pero revisé y aparentemente los archivos se guardan con el mismo formato que se guardaron siempre.
Sabrán qué puede ser?

Por Corvette, · publicado el 4 de diciembre4 dic

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Buscador de datos en libros

Featured Replies

Archivos

Nuevo mapa de municipios españoles

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Estadísticas de descargas

Mensajes

Crear un loop para emitir recibos

Crear un loop para emitir recibos

Crear un loop para emitir recibos

Crear un loop para emitir recibos

Crear un loop para emitir recibos

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)