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.:

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:

• Excel Básico
• Excel Intermedio
• Excel Avanzado
• Curso de programación en Excel desde cero.