Principal

Generador VBA: Tablas con Excel y VBA Parte 2

El vídeo anterior muestra cómo se puede crear código VBA usando Visual Basic para Aplicaciones, a través de una plantilla JFKSOFT.

Dedicado a quienes dar un salto en Excel para trabajar con base de datos desde Excel.  Muy potente y versatil, tiene la gran ventaja que no requiere tener instalado Access pues trabaja solo con Windows y Excel, y usa Access solo como contenedor.

 

Base de datos con Excel Parte1

Creando una Base de Datos con Excel en Blanco

POTENCIA SU EXCEL
*** Usando Excel con Base de Datos *** Crea la base de datos con Excel con un clic Base de Datos Protegida y Segura
Esta Plantilla crea una base de datos access protegida con contraseña
usa una macro vba para hacer el proceso.Toda la información requerida esta incluida, solo tiene que seguir las instrucciones.

Quienes tienen la MEMBRESIA JFKSOFT PREMIUM pueden solicitarla
sin costo dejando un comentario.

Pegue en un nuevo Boton Macro
Todo lo azul

On Error GoTo aviso
Dim dbsNueva As Database
DBFilename = “C:\Basededatos” & “\jfksoftdb”
If Dir(DBFilename) <> “” Then
MsgBox “Base de datos, Existente!”
Exit Sub
End If
Set dbsNueva = CreateDatabase(DBFilename, _
dbLangGeneral & “;pwd=12345”, dbEncrypt)
MsgBox “La base de datos fue creada…”, vbInformation, “Aviso!”
Exit Sub
aviso:
MsgBox “Error: ” & Err.Description & ” ” & Err.Number

Una vez creada la base de datos puede comenzar a crear las tablas
que es donde se almacena la información. En nuestro Blog encuentra
el código Validado.

Llenado de Factura Preimpresas Gratis

Sistema que usa Excel para Llenar sus Facturas de forma sencilla

Desde solo $27USD   Gratis el primer Formato

INSTRUCCIONES:
Envía tu formato escaneado en pdf o jpg a soporte@jfksoft.com
Factura Excel Preimpresas
Es una utilidad creada para ahorrar tiempo dinero y esfuerzo se basa en una plantilla creada en Microsoft Excel.  Y para empezar solo debe escanear el documento preimpreso y enviarlo a anterior correo.

Seleccion Multiple en Excel – Ejemplo

Requiere un Formulario y dentro un listbox y boton

Private Sub cmdSalir_Click()
fila = 2
For i = 0 To listmeses.ListCount – 1
If listmeses.Selected(i) Then
Cells(fila, “A”) = listmeses.List(i)
fila = fila + 1
End If
Next i
Unload Me
End Sub

Private Sub UserForm_Initialize()
listmeses.RowSource = “tblmeses”
End Sub

Patrocinado por:

Libertad Financiera en 90 dias!

Controle el acceso a sus proyectos de Excel

Esta plantilla ayuda a proteger sus archivos de personas no autorizado para verlo o modificarlo.

basado en los usuarios de Windows y el evento Username

Copie el siguiente codigo en: ThisWorkbook

Private Sub Workbook_Open()
If Application.UserName = “Usuario PC1” Then
MsgBox “BIENVENIDO…!”, vbInformation, “Aviso!”
Sheets(“principal”).Select
Else
MsgBox “No Autorizado”, vbCritical, “Aviso!”
Application.DisplayAlerts = False
Application.Workbooks.Close
End If
End Sub