Principal

Ejemplo de ventas con totales automaticos Plantilla

Este es un ejemplo de cómo controlar las ventas usando Excel-  Muy sencillo y práctico de usar y de implementar. Revisa el vídeo completamente.

AQUÍ ESTA LA MACRO PRINCIPAL

Sub creaDatosUnicos
On Error Resume Next
Dim listado As Range
Set listado = Range(“$B:$B”)
listado.AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=[F1], Unique:=True
End  Sub

Cómo Crear múltiples carpetas con un clic desde Excel con esta macro

Una de las mejores maneras de aceleran nuestras actividades es usando carpetas para almacenar nuestros archivos de forma organizada.

Aquí publicamos una macro para crear varias carpetas al tiempo. Contiene
en este caso el año en curso y todos los meses del año.
\2019
Enero
Febrero
Marzo
Abril
Mayo
Junio
Julio
Agosto
Septiembre
Octubre
Noviembre
Diciembre

La Macro lo que hace es crear la carpeta principal “\2019”
y luego dentro de ella crea todos los meses. Todo aun Clic

Este es el código que hace todo, incluya en un modulo
Sub btnCreaCarpetas_Haga_clic_en()
CreateFilePath [A1]
For j = 2 To 50
If Cells(j, “A”) = Empty Then
Exit Sub
End If
CreateFilePath [A1] & “\” & Cells(j, “A”)
Next j
End Sub
Function CreateFilePath(ByVal FPath As String) As Boolean
Dim fso As FileSystemObject
Dim ParsedPath As Variant
Dim TempPath As String
Dim i As Long
On Error Resume Next
Set fso = New FileSystemObject
ParsedPath = Split(FPath, “\”)
TempPath = ParsedPath(0)
For i = 1 To UBound(ParsedPath)
TempPath = TempPath & “\” & ParsedPath(i)
fso.CreateFolder (TempPath)
Next i
CreateFilePath = fso.FolderExists(FPath)
Set fso = Nothing

End Function

Botones de Macros Cómo mostrar y ocultar con VBA.

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.

Mostrar y Ocultar

 

Nuevo Curso de Base de Datos con Excel – sorprendente, sencillo y practico

Curso de Base de Datos en Excel

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.

Explica como se puede convertir una lista de datos en una tabla para trabajar en una base de datos.

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

Se muestra cómo a traves de un formulario se traen datos de una tabla usando un truco con VBA y la función buscarV/ConsultaV.

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

Se muestra como traer datos de una lista desplegable usando tablas de Excel; se puede ver como es de sencillo cargar a una lista desplegable y después hacer la búsqueda rápida.

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

La Eliminación fácil y segura es necesario en una base de datos, comprende buscar el registro y al momento de eliminar; confirmar si esta seguro.

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

La Modificación de un registro; precisa de la búsqueda del registro; una vez encontrado facilitar la edición o cambio, y luego confirmar si efectivamente deseamos guardar los cambios.

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

Agregar nuevos registros es una parte crucial en el manejo de grandes cantidades de información.   Es vídeo anterior lo hicimos aplicado a una base de datos de productos.   Se escribe el código único del producto y posteriormente se va al final de la tabla y escribe los datos.

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.

Fitrado rápido 2018

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

Insertar Gifs animados en Excel

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>