Principal

Insertar Calendario en Excel – DatePicker Complemento

Una de las herramientas mas útiles es usar un date picker
para insertar en Excel; sirve por ejemplo colocar comentarios
en cada fecha.

Aquí; uno desarrollado por un tercero

[Descargar Complemento]

ESTA ES LA MACRO PARA LLAMAR EL CONTROL

Sub CallDatePickerFromOtherWorkbooks()
Dim TestWkbk As Workbook
Dim obj As Object

If Val(Application.Version) >= 12 Then
Set TestWkbk = Nothing
On Error Resume Next
Set TestWkbk = Workbooks(«WinDatePicker.xlam»)
On Error GoTo 0
If TestWkbk Is Nothing Then
MsgBox «Sorry the Date Picker add-in is not open.»
Else
Application.Run «‘» & TestWkbk.Name & «‘!OpenDatePicker», obj
End If
End If
End Sub

Nota: Debe estar abierto el complemento

Elabore sus cotizaciones con Imágenes de Forma Sencilla y Rápida

Hemos simplificado la tarea de agregar fotos pequeñas de productos en sus propias hojas de calculo.   Use el siguiente paso a paso:

  • Cree su galería de fotos de sus productos en una única carpeta, cada foto debe  tener un código cómo nombre y la extensión debe ser jpg.  ejemplo 1012.jpg 1015.jpg  estos son dos archivos que pueden ser llamados fácilmente desde Excel  y colocados en una celda.
  • Es necesario tener el complemento de imágenes abierto, al dar clic en complemento debe aparecer pegarimagenes.
    • En la foto inicial se puede ver que en la columna A se tienen los nombres de los archivos  jpg y en la columna D aparecen las fotos correspondientes.
    • Vea cómo se hace:
    • Con esta misma estructura se puede generar imágenes ilimitadas en los proyectos donde se quiera colocar imágenes de forma dinámica y rápida.

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