Principal

En el siguiente vídeo al final se muestra un sencillo código que nos permite optar de forma intuitiva a un botón.    Se trata de guiar al usuario al siguiente paso.  Por ejemplo al grabar se muestra el siguiente botón que es imprimir y solo al imprimir se muestra el botón nuevo.

Pronto tendremos el área de descarga gratuita para estas dos plantillas
deja un comentario para enviar tan pronto este disponible en el área de
Descarga.

Esta es una muestra de como se pueden crear listas desplegables sin
usar ninguna macro.  Solo se usa la validación de datos y unas sencillas
formulas.

*Solo tienes que dejar un comentario para recibir la plantilla.

En esta entrada colocaremos un curso de Bases de Datos con Excel usando macros; usa técnicas sencillas pero eficaces para manejar gran cantidad de datos usando Excel.

Parte 1: Nuevo Curso de Base de Datos con Excel Guía Paso a Paso  Creación.

Parte 2: Nuevo Curso de Base de Datos con Excel Guía Paso a Paso Búsqueda.

Parte 3: Nuevo Curso de Base de Datos con Excel Guía Paso a Paso Búsqueda por Nombre de Producto.

Parte 4: Nuevo Curso de Base de Datos con Excel Guía Paso a Paso Eliminación de un Registro.

Parte 5: Nuevo Curso de Base de Datos con Excel Guía Paso a Paso Modificación de un Registro.

Parte 6: Nuevo Curso de Base de Datos con Excel Guía Paso a Paso Agregando Nuevos Registros.

Parte 7: Nuevo Curso de Base de Datos con Excel Guía Paso a Paso Consultando Registros.

Se muestra cómo desde un formulario que contiene un cuadro de texto y un cuadro de lista se puede consultar datos en una base de datos.

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