CODIGO VBA

Private Sub txtCod_Change()
If txtCod = "" Then
 Hoja1.AutoFilterMode = False
Else
 If Hoja1.AutoFilterMode = True Then
 Hoja1.AutoFilterMode = False
 End If
 ActiveSheet.ListObjects("Tabla1").Range.AutoFilter Field:=1, Criteria1:=txtCod.Value, Operator:=xlFilterValues
End If
End Sub

Private Sub txtCod_GotFocus()
On Error Resume Next
Hoja1.AutoFilterMode = False
Hoja1.AutoFilter.ShowAllData
txtPre = Empty: txtProd = Empty
End Sub

Private Sub txtPre_Change()
If txtPre = "" Then
 Hoja1.AutoFilterMode = False
Else
 If Hoja1.AutoFilterMode = True Then
 Hoja1.AutoFilterMode = False
 End If
 ActiveSheet.ListObjects("Tabla1").Range.AutoFilter Field:=3, Criteria1:=txtPre.Value, Operator:=xlFilterValues
End If
End Sub

Private Sub txtPre_GotFocus()
On Error Resume Next
Hoja1.AutoFilterMode = False
Hoja1.AutoFilter.ShowAllData
txtProd = Empty: txtCod = Empty
End Sub

Private Sub txtProd_Change()
If txtProd = "" Then
 Hoja1.AutoFilterMode = False
Else
 If Hoja1.AutoFilterMode = True Then
 Hoja1.AutoFilterMode = False
 End If
 ActiveSheet.ListObjects("Tabla1").Range.AutoFilter Field:=2, Criteria1:="*" & txtProd.Value & "*", Operator:=xlFilterValues
 
End If
End Sub

Private Sub txtProd_GotFocus()
On Error Resume Next
Hoja1.AutoFilterMode = False
Hoja1.AutoFilter.ShowAllData
txtCod = Empty: txtPre = Empty
End Sub

Los Gifs animados son bastante llamativos aqui hacemos un ejemplo de como se puede colocar una URL de un Gifs animado en Excel.

Solo tienes que crear un formulario y colocar un control Webbrowser  y colocar la siguiente macro vba.

WebBrowser1.Navigate “http://i.picasion.com/pic87/e5c47e30b9654c321562ce52c6e5c538.gif”

<Descarga Ahora>

OBTENER AHORA

La idea es usar Formularios sin ver las hojas de Excel.  Esto da la apariencia
de que es un aplicativo autonomo y que no se esta empaquetando desde Excel.   Lo formularios tienen muchas ventajas, por la facilidad de ingreso
de datos y porque evita mas errores de entrada de datos.

Se puede hacer una validación minuciosa y campo a campo con los tipos
de datos usando validación de fecha y números.

Esta Plantilla usa una formula para buscar una imagen y colocarla en una
celda,  dentro de la misma hoja.

Usa las Funciones Indice y Coincidir y asignando a un nombre de rango

<Descarga la Plantilla>

La Plantilla Factura Excel; es la forma de facturar mas simple que se haya podido crear; la simplicidad y facilidad de uso ayuda que en pocos minutos elabore sus facturas.   Toma menos de 10 minutos implementar usando esta plantilla que requiere:  Windows + Excel + Habilitar las macros.

Su funcionamiento es muy sencillo, solo debe crear la lista de Clientes, lista de productos y ya puede comenzar a facturar.

La personalización se reduce a crear su membrete y nada mas

Esta Plantilla esta disponible para descargar ahora (Por Tiempo Limitado)

Esta Plantilla sirve para hacer un control de nuestros clientes, con datos de todas las facturas generadas y ademas los pagos elaborado por este cliente.

Pretende desde una sencilla plantilla tener toda la información que se crea
cuando tenemos un negocio de venta con facturas ya sea a credito o de contado.

EJEMPLO DE UNA LISTA DE PRODUCTOS Y BUSQUEDA

Esta plantilla muestra el potencial de los filtros combinados con tablas y formularios y sobre todo una sencilla macro que ayuda a que la búsqueda de datos sea rápida y eficiente.   Esta optimizada para grandes listas.

Revisa la Macro

Private Sub txtBuscar_Change()
 On Error Resume Next
 Application.ScreenUpdating = False
 ActiveSheet.ShowAllData
 If Len(txtBuscar) > 0 Then
 txtBuscar = CStr(txtBuscar)
 ActiveSheet.ShowAllData
 Range("A2").Select
 Selection.AutoFilter Field:=2, Criteria1:="=*" & Trim(txtBuscar) & "*", Operator:=xlAnd
 End If
 Application.ScreenUpdating = True
End Sub

Nota: Colocar PlantillaBuscador2018 en Comentario PayPal Me