Crear archivo texto con búsquedas en Excel

Hoy quiero destacar un sencillo tutorial de Excel con Visual Basic con el que podréis crear vuestro propio archivo de texto que contenga un resumen de busqueda usando una pequeña rutina en VBA. Podrías preguntarte ¿Para que puede servir este tipo de tarea?, bueno se me ocurre que si tienes un Excel complejo y extenso lleno de fórmulas o valores y quieres realizar informes de búsqueda para analizar, puede serte de utilidad.

Como crear un log de búsquedas

Bien para realizar esta tarea necesitaremos un array para ir almacenando todas aquellas búsquedas que realizamos, por otro lado un fichero de texto donde ir almacenando el texto y las referencias de aquellas celdas cuyo texto contengan la palabra que hayamos buscado. Como os prometí aquí os dejo el código VBA:


Sub BuscarTextoEnLibros()
Dim celdasEncontradas() As String
ReDim celdasEncontradas(0 To 0)
Dim informeSalida As String 
informeSalida = "c:\temp\excellog.txt" 
Open informeSalida For Output As #1 
For Each sht In ActiveWorkbook.Worksheets
Set c = sht.UsedRange.Find(What:="Bienvenidos", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) 
If (Not c Is Nothing) Then 
Do
Write #1, "Valor encontrado: " & c.Value & " en la celda " & c.Address & " hoja " & sht.Name
celdasEncontradas(UBound(celdasEncontradas)) = sht.Name & c.Address
Set c = sht.UsedRange.FindNext(c)
ReDim Preserve celdasEncontradas(0 To UBound(celdasEncontradas) + 1)
Loop While Not c Is Nothing And Not EstaStringEnArray(sht.Name & c.Address, celdasEncontradas)
End If
Next
Close #1
End Sub

Function EstaStringEnArray(textoABuscar As String, arrayDeElementos As Variant) As Boolean
EstaStringEnArray = UBound(Filter(arrayDeElementos, textoABuscar)) > -1
End Function

Tras ejecutar el código expuesto arriba, el resultado quedaría de la siguiente forma (ver imagen inferior). Por otro lado, recuerda que si quieres una explicación detallada línea por línea puedes ver el vídeo de arriba que explica esto mismo con detalle.:

busquedas en Excel en archivo de texto
búsquedas en Excel en archivo de texto

El video tutorial de Excel

¿Donde puedo encontrar mas tutoriales?

Puedes suscribirte al canal haciendo click aquí.
Por otro lado he creado unas listas de reproducción con tutoriales de Excel ordenados por categorías y capítulos ordenados, puedes consultarlos en los siguientes enlaces:

1 comments On Crear archivo texto con búsquedas en Excel

  • Hola,
    Hice tu video de “Como exportar gráficos de Excel a una carpeta – Capítulo 255” con 900 imagenes, pero me dice que muy largo al correr la macro… Puedes ayudarme? por favor.

Leave a reply:

Tu dirección de correo electrónico no será publicada.

Site Footer

X

Suscribete al canal en YouTube

Con más de 90.000 suscriptores, encontrarás mas de 300 video tutoriales gratuitos sobre Excel, Informática, programación e Internet.

Suscribete