Crea tu Propio Facturador Desde Cero

Hola estimados seguidores de la página Excel Cuántico, en esta oportunidad vamos a desarrollar un FACTURADOR desde cero, para ello utilizaremos funciones y lenguaje de programación VBA.

Las funciones que vamos a utilizar las explicamos detalladamente en el tutorial que colocaremos líneas abajo, sin embargo, en el presente articulo vamos a detallar la codificación que hemos utilizado en nuestro facturador.

La codificación que utilizamos para generar el archivo PDF es la siguiente:

--------------------------------------------------------------------------------------------------------------------------

Sub Pdf()

Dim Dir As FileSystemObject

Dim RutaArchivo, RutaArchivo2, Linea, Archivo As String, Titulo As String

Dim Origen As Long

Dim Nombre As String, Hoja As String

Dim tx As Scripting.TextStream

Dim Ht As Worksheet

On Error Resume Next

If MsgBox("¿Seguro que quiere generar la generar el PDF?", vbYesNo + vbQuestion, "Generar PDF") = vbYes Then

Else

    Exit Sub

End If

Set Dir = New FileSystemObject

RutaArchivo = ActiveWorkbook.Path & "\Comprobante"

Nombre = Application.InputBox("Nombre del Archivo", "Crear PDF")

Archivo = RutaArchivo & "\" & Nombre & ".pdf"

    

    Origen = FreeFile

    If Dir.FileExists(Archivo) = True Then

        Kill Archivo

    End If

        

    RutaArchivo = Archivo

Hoja = ActiveSheet.Name

Set Ht = Worksheets(Hoja)

Ht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Archivo, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox ("Se ha generado el PDF con éxito ruta: " & Archivo), vbInformation, Titulo

End Sub

-------------------------------------------------------------------------------------------------------------------------

VER VÍDEO TUTORIAL

Aquí puedes ver el vídeo tutorial de "Crea tu propio facturador desde cero". Si deseas encontrar más vídeos tutoriales presiona aquí.

DESCARGAR MATERIAL DE TRABAJO

Para descargar el material de trabajo PRESIONA AQUÍ o puedes encontrar en nuestra pestaña DESCARGAS

Si te gusto el presente articulo no te olvide de compartir en tus redes sociales, suscribirte al blog para que te llegue las novedades y suscribirte a nuestro canal de YouTube es completamente "GRATIS" SUSCRIBETE.

Read More

 Gestor de Inventarios + Punto de Venta "SAlen 1.0"

Nuestro Gestor de Inventarios "SAlen 1.0", está elaborado con lenguaje Vba en Excel, te permite llevar el control de entradas y salidas del almacén, generando reportes físico y valorizado.

LAS OPCIONES QUE TIENE EL GESTOR DE INVENTARIOS SON:

CONFIGURACIÓN:

✅ Usuarios (Permite agregar, eliminar y modificar los permisos de usuarios ya creados)

✅ Datos Generales (Permite registrar los datos de la empresa, datos periodo, datos de impuesto, etc.)

✅ Productos (Permite agregar, modificar y eliminar productos)

✅ Clientes (Permite agregar, modificar y eliminar clientes)

✅ Proveedores (Permite agregar, modificar y eliminar proveedores)

✅ Comprobantes (Permite agregar, modificar y eliminar comprobantes)

✅ Monedas (Permite agregar, modificar y eliminar monedas)

OPERACIONES:

✅ Módulo Compras (Permite registrar las Compras)

✅ Módulo Cotizaciones (Permite registrar las cotizaciones, asimismo, se puede generar PDF, Exportar en una hoja de EXCEL, Imprimir, etc.)

✅ Módulo Ventas (Permite registrar las Ventas de forma rápida y sencilla, asimismo, se puede generar PDF, Imprimir Ticket, Exportar en una hoja de EXCEL, Imprimir, etc.)

OTROS:

✅ Sesión con otro usuario (Permite iniciar sesión con otros usuarios)

✅ Guardar Cambios

✅ Imprimir 

✅ Exportar

✅ Cierre (Permite generar el cierre)

DATA:

✅ Data Compras

✅ Data Cotizaciones

✅ Data Ventas

REPORTES:

🛑Reporte Físico

🛑Reporte Valorizado

🛑Alertas

🛑Dashboard

✅Reiniciar Sistema (Permite eliminar toda la información)

UTILITARIOS:

🛑Importación Masiva

✅ Productos

✅ Clientes

✅ Proveedores

🛑Copia de Seguridad

✅ Copia de Respaldo

✅ Generar Backup (Permite generar una copia de seguridad de toda la data del sistema)

✅ Restaurar Backup (Permite restaurar la copia de seguridad de toda la data del sistema)

🛑Cierre Anual

✅ Cierre Anual (Permite realizar el cierre anual)

✅ Exportar (Permite exportar el cierre anual)

✅ Apertura del Año (Permite realizar la apertura del año)

REQUERIMIENTOS:

✅ Windows 2010 o Superior

✅Tener conocimiento de Excel a nivel básico

✅Ver detenidamente los vídeos de uso del sistema

NOTA IMPORTANTE:

El uso del sistema es para una sola PC.

FORMA DE ADQUIRIR

El costo del Aplicativo es S/ 199.00 soles o USD 53.00 (Dolares Americanos). Para poder adquirir el producto debe seguir los siguientes pasos.

Paso 01:

Depositar el monto correspondiente en una de nuestras cuentas o en nuestra cuentas de Paypal: mike_15962@hotmail.com

Paso 02:

Enviar la foto del voucher del deposito al siguiente correo: ideas.cuanticas.myz@gmail.com / house.contable@gmail.com o al siguiente enlace: WhatsApp

VÍDEOS TUTORIALES

Vídeo 01: Presentación

Read More

😱¡¡GRATIS!!😱 Gestor de Inventarios en Excel

Hola estimados seguidores de nuestro blog y canal de YouTube en esta oportunidad quisimos celebrar que ya somos 6,000 suscriptores en nuestro canal Excel Cuántico, gracias a todas las personas que se suscribieron y que acuden a nuestro canal para aprender un poco de este gran universo que es Microsoft Excel, esperamos que cada tutorial que subimos al canal sea de utilidad y que este aportando con un granito en su aprendizaje, solo me queda agradecer y con la esperanza de que nuestra comunidad siga creciendo.

Nuestro Gestor de Inventarios fue el primer aplicativo que creamos, al igual que ustedes comenzamos sin saber nada de VBA en Excel, pero no hubo obstáculo que fuera mas grande que nuestras ganas de aprender, así que no se rindan solo es cuestión de practica, practiquen y practiquen y llegara el día en que ya sepan y puedan crear su primer aplicativo, ese es el consejo que les puedo dar.

Detalles del Aplicativo

El Gestor de Inventarios te permite llevar un control de sus almacenes, generando reportes por cada producto, asimismo, solo podrán acceder aquellas personas que cuentan con un usuario y contraseña.

Con nuestro Aplicativo de Inventarios usted podrá:

Tener un Control de Usuarios, podrá crear nuevos usuarios restringiéndole acceso a       botones y hojas de nuestro sistema.

Crear, Modificar y Eliminar Productos

Crear, Modificar y Eliminar Proveedores

Crear, Modificar y Eliminar Clientes

Crear, Modificar y Eliminar la Empresa

Crear, Modificar y Eliminar el Establecimiento

Ver nuestras tablas

Modificar el Porcentaje del Impuesto

Ingresar nuevas entradas al almacén

Generar las devoluciones de las Entradas

Anular, Modificar y Eliminar las Entradas

Registrar nuevas salidas del Almacén

Generar las devoluciones de las Salidas

Anular, Modificar y Eliminar las Salidas

Ver las alertas de los productos que ya no se cuenta con stock

Iniciar Sesión con otro Usuario 

Guardar los cambios

Imprimir los reportes

Saldos Iniciales

Generar una copia de respaldo

Generar un backup de toda la data

Restaurar el backup generado

Borrar toda la data con solo presionar un botón

Ver la data de productos

Ver la data de Entradas

Ver la data de Salidas

Generar Reportes en Unidades por producto (Anual, Mensual, Rango de mes)

Generar Reportes Valorizados por producto (Anual, Mensual, Rango de mes)

Ver el reporte del costo de ventas de todos los productos

Ver el saldo de los productos

Generar el reporte de Movimientos por Producto

Ver un registro de accesos de los usuarios que ingresan al sistema

Importación masiva de Productos

Importación masiva de Proveedores 

Importación masiva de Clientes 

Cierre Anual 

Exportar el cierre anual 

Apertura del año

Solo les pido que respeten los derechos de autor y disfrútenlo.

VER VÍDEO TUTORIAL

Aquí puedes ver el vídeo tutorial de "Gestor de Inventarios en Excel - Gratis (Free)". Si deseas encontrar más vídeos tutoriales presiona aquí.

DESCARGAR

Para descargar el "Gestor de Inventarios" PRESIONA AQUÍ o puedes encontrar en nuestra pestaña DESCARGAS

¿COMO OBTENER LA SERIE PARA GENERAR LA CLAVE DE ACCESO?

Aquí puedes ver el vídeo donde te explicamos como obtener la clave de acceso del Gestor de Inventarios PRESIONA AQUÍ.

Si te gusto el presente articulo no te olvide de compartir en tus redes sociales, suscribirte al blog para que te llegue las novedades y suscribirte a nuestro canal de YouTube es completamente "GRATIS" SUSCRIBETE.

Read More

Cómo hacer una Base de Datos en Excel con Macros VBA - Parte 03 Botón Imprimir - Preguntas y Respuestas

Hola estimados seguidores de la página Excel Cuántico, continuamos desarrollando nuestro proyecto "BASE DE DATOS EN EXCEL", en la primera parte vimos como codificar los botones: "Buscar, Guardar, Modificar y Eliminar", si todavía no lo revisaste presiona aquí. En la segunda parte vimos la programación de los Botones " Siguiente, Anterior, Inicio y Final", si todavía no lo revisaste presiona aquí.

En esta oportunidad vamos a responder las consultas que nos hicieron nuestros suscriptores de canal.

Iniciamos respondiendo a una de las consultas más realizadas, que es acerca del botón buscar, muchos de nuestros suscriptores tuvieron problemas con la búsqueda de información de la base de datos, esto es porque a un inicio realizamos la búsqueda utilizando la función "BUSCARV" en VBA, pero en esta ocasión lo vamos a reemplazar por un recorrido "FOR NEXT" como mostramos a continuación.

--------------------------------------------------------------------------------------------------------------------------

Private Sub CmdBuscar_Click()

'On Error Resume Next

'

'Me.TxtDni.Text = Application.WorksheetFunction.VLookup(Me.TxtCodigo.Text, Hoja1.Range("A:F"), 2, 0)

'Me.TxtApellidos.Text = Application.WorksheetFunction.VLookup(Me.TxtCodigo.Text, Hoja1.Range("A:F"), 3, 0)

'Me.TxtNombres.Text = Application.WorksheetFunction.VLookup(Me.TxtCodigo.Text, Hoja1.Range("A:F"), 4, 0)

'Me.CmbGrado.Text = Application.WorksheetFunction.VLookup(Me.TxtCodigo.Text, Hoja1.Range("A:F"), 5, 0)

'Me.CmbSeccion.Text = Application.WorksheetFunction.VLookup(Me.TxtCodigo.Text, Hoja1.Range("A:F"), 6, 0)

'

'Me.TxtCodigo.Enabled = False

Dim X As Long, uFila As Long

uFila = nReg(Hoja1, 4, 1) - 1

For X = 4 To uFila

    If Hoja1.Cells(X, 1) = Me.TxtCodigo.Text Then

        Me.TxtDni.Text = Hoja1.Cells(X, 2)

        Me.TxtApellidos.Text = Hoja1.Cells(X, 3)

        Me.TxtNombres.Text = Hoja1.Cells(X, 4)

        Me.CmbGrado.Text = Hoja1.Cells(X, 5)

        Me.CmbSeccion.Text = Hoja1.Cells(X, 6)

    End If

Next X

End Sub

------------------------------------------------------------------------------------------------------------------------

Como vemos pusimos la anterior codificación en modo de comentario para poder realizar la nueva búsqueda con el recorrido "FOR NEXT". Ahora responderemos a la siguiente consulta: "Como hacer para que no borre los ceros delante del DNI", para ello lo que haremos es darle formato a la celda antes de guardar la información.

------------------------------------------------------------------------------------------------------------------------

With Hoja1.Cells(uFila, 2)

    .NumberFormat = "@"

End With

Hoja1.Cells(uFila, 2) = Me.TxtDni.Text

-----------------------------------------------------------------------------------------------------------------------

Con la codificación "NumberFormat" elegimos el formato de la celda, en este caso lo pusimos como formato de texto para que no elimine los ceros delante del DNI. Debemos hacer lo mismo en el botón "MODIFICAR".

Otra de las consultas es la siguiente "Como hacer para que no me permita agregar un alumno duplicado", para ello tenemos que hacer un recorrido en nuestra base de datos y validar si el alumno que queremos agregar no se encuentre ya registrado. La codificación que mostraremos a continuación la deben agregar en el botón "GUARDAR".

------------------------------------------------------------------------------------------------------------------------

For X = 4 To uFila - 1

    If Hoja1.Cells(X, 2) = Me.TxtDni.Text Then

        MsgBox ("El número de DNI ya fue registrado"), vbExclamation, "Excel Cuantico"

        Exit Sub

    End If

Next X

-----------------------------------------------------------------------------------------------------------------------

Si hasta el momento tienes dudas de como agregar la codificación que vamos mostrando no te preocupes al final del presente articulo vas a poder encontrar el video tutorial.

Otra consulta que nos hicieron fue "Que podamos imprimir el formulario", para ello tuvimos que agregar un botón y en dicho botón vamos a poner la siguiente codificación

----------------------------------------------------------------------------------------------------------------------

Private Sub BtnImprimir_Click()

On Error Resume Next

Me.CmdBuscar.Visible = False

Me.CmdGuardar.Visible = False

UserForm1.PrintForm

Me.CmdBuscar.Visible = True

Me.CmdGuardar.Visible = True

End Sub

------------------------------------------------------------------------------------------------------------------------

Con esto llegamos al final del presente artículo, espero que estemos aportando un granito en tu aprendizaje, bendiciones.

VER VÍDEO TUTORIAL

Aquí puedes ver el vídeo tutorial de "Como hacer una base de datos - Parte 03 Botón Imprimir - Preguntas y Respuestas". Si deseas encontrar más vídeos tutoriales presiona aquí.

DESCARGAR MATERIAL DE TRABAJO

Para descargar el material de trabajo PRESIONA AQUÍ o puedes encontrar en nuestra pestaña DESCARGAS

Si te gusto el presente articulo no te olvide de compartir en tus redes sociales, suscribirte al blog para que te llegue las novedades y suscribirte a nuestro canal de YouTube es completamente "GRATIS" SUSCRIBETE.

Read More

Cómo hacer una Base de Datos en Excel con Macros VBA - Parte 02 agregamos los botones Siguiente, Anterior, Inicio y Final

Hola estimados seguidores de la página Excel Cuántico, continuamos desarrollando nuestro proyecto "BASE DE DATOS EN EXCEL", en la primera parte vimos como codificar los botones: "Buscar, Guardar, Modificar y Eliminar", si todavía no lo revisaste presiona aquí. En esta oportunidad vamos a continuar agregando más botones a nuestro formulario.

Iniciamos agregando lo botones a nuestro formulario, para ello hacemos uso del "Cuadro de Herramientas" dentro de ello elegimos la opción "Botón de Comando" y arrastramos a nuestro formulario, seguido agregaremos iconos a los botones de esta manera obtenemos el siguiente resultado.

Ahora iniciaremos agregando la codificación a cada botón, nuestro primer botón a programar es "HABILITAR", que nos servirá para mostrar los botones que estamos agregando al formulario.

--------------------------------------------------------------------------------------------------------------------------

Private Sub CmdHabilitar_Click()

Dim uFila As Long

uFila = nReg(Hoja1, 4, 1) - 1

Call Inicio

Me.LblRegistro.Caption = 1

Me.LblTotal.Caption = uFila - 3

Me.Width = 389.25

End Sub

--------------------------------------------------------------------------------------------------------------------------

Como podemos ver en el procedimiento estamos llamando a la macro "INICIO", esta macro nos ayudará a mostrar los datos de nuestra hoja en el formulario, detallamos la codificación a continuación.

--------------------------------------------------------------------------------------------------------------------------

Sub Inicio()

Me.TxtCodigo.Text = Hoja1.Cells(M, 1)

Me.TxtDni.Text = Hoja1.Cells(M, 2)

Me.TxtApellidos.Text = Hoja1.Cells(M, 3)

Me.TxtNombres.Text = Hoja1.Cells(M, 4)

Me.CmbGrado.Text = Hoja1.Cells(M, 5)

Me.CmbSeccion.Text = Hoja1.Cells(M, 6)

End Sub

-------------------------------------------------------------------------------------------------------------------------

Para que no genere ningún tipo de error vamos agregar lo siguiente:

1. Debemos declarar la Variable "M" como pública, para poder utilizar en todos los controles (Public M As Long)
2. Asimismo, debemos agregar en el evento "UserForm_Initialize" lo siguiente: 
1. Me.Width = 312 (Le asignamos el valor de 312 porque es el ancho del formulario al inicio)
2. M = 4 (Le asignamos el valor de 4 porque es la fila donde inicia los datos)

Si te queda la duda en donde agregar esta codificación no te preocupes al final del articulo vamos a agregar el Video Tutorial donde te enseñaremos paso a paso.

Continuando nos toca programar el botón "SIGUIENTE", este botón nos ayudará visualizar los datos del siguiente alumno.

------------------------------------------------------------------------------------------------------------------------

Private Sub CmdSiguiente_Click()

Dim uFila As Long

uFila = nReg(Hoja1, 4, 1) - 1

M = M + 1

If uFila >= M Then

    Call Inicio

    Me.LblRegistro.Caption = M - 3

Else

    MsgBox ("Este es el último registro"), vbInformation, "Excel Cuantico"

End If

End Sub

-------------------------------------------------------------------------------------------------------------------------

Ahora veremos la programación del botón "ANTERIOR", este botón nos ayuda a visualizar los datos del alumno anterior, de esta forma podemos movernos dentro de nuestra base de datos.

-------------------------------------------------------------------------------------------------------------------------

Private Sub CmdAnterior_Click()

M = M - 1

If 4 <= M Then

    Call Inicio

    Me.LblRegistro.Caption = M - 3

Else

    MsgBox ("Este es el primer registro"), vbInformation, "Excel Cuantico"

End If

End Sub

------------------------------------------------------------------------------------------------------------------------

Seguimos programando los botones que agregamos a nuestro formulario "BASE DE DATOS", ahora nos toca el botón "INICIO", con este botón podremos ver el primer alumno de nuestra base de datos.

--------------------------------------------------------------------------------------------------------------------------

Private Sub CmdInicio_Click()

Dim uFila As Long

M = 4

uFila = nReg(Hoja1, 4, 1) - 1

Call Inicio

Me.LblRegistro.Caption = 1

Me.LblTotal.Caption = uFila - 3

End Sub

---------------------------------------------------------------------------------------------------------------------------

Continuando nos toca programar el botón "FINAL", con este botón podremos visualizar al último alumno de nuestra base de datos.

--------------------------------------------------------------------------------------------------------------------------

Private Sub CmdUltimo_Click()

Dim uFila As Long

uFila = nReg(Hoja1, 4, 1) - 1

M = uFila

Call Inicio

Me.LblRegistro.Caption = uFila - 3

Me.LblTotal.Caption = uFila - 3

End Sub

--------------------------------------------------------------------------------------------------------------------------

Por ultimo y no menos importante programaremos el botón "DESHABILITAR", este botón nos ayudará a ocultar los botones que acabamos de agregar y regresar el ancho del formulario a como estaba al inicio.

-------------------------------------------------------------------------------------------------------------------------

Private Sub CmdDeshabilitar_Click()

Me.Width = 312

Call Limpiar

Me.LblRegistro.Caption = ""

Me.LblTotal.Caption = ""

End Sub

--------------------------------------------------------------------------------------------------------------------------

Como observamos dentro del procedimiento llamamos a la macro "LIMIPIAR", esta macro ya la programamos en el artículo anterior, si deseas ver presiona aquí. Con esto llegamos al final del presente artículo, espero que estemos aportando un granito en tu aprendizaje, bendiciones.

VER VÍDEO TUTORIAL

Aquí puedes ver el vídeo tutorial de "Como hacer una base de datos - Part 02 con los botones "Siguiente, Anterior, Inicio y Último". Si deseas encontrar más vídeos tutoriales presiona aquí.

DESCARGAR MATERIAL DE TRABAJO

Para descargar el material de trabajo PRESIONA AQUÍ o puedes encontrar en nuestra pestaña DESCARGAS

Si te gusto el presente articulo no te olvide de compartir en tus redes sociales, suscribirte al blog para que te llegue las novedades y suscribirte a nuestro canal de YouTube es completamente "GRATIS" SUSCRIBETE.

Read More

Gestor de Cotizaciones y Ventas "GranBUY 1.0" - Aplicativo en Excel

Gestor de Cotizaciones y Ventas "GranBUY 1.0"

Nuestro aplicativo está elaborado con lenguaje Vba en Excel, es un aplicativo predictivo, automatizado y fácil de utilizar, diseñado para gestionar tus cotizaciones y ventas, cabe resaltar que es un aplicativo multiusuario y multiempresa.

LAS OPCIONES QUE TIENE EL APLICATIVO SON:

CONFIGURACIÓN:

✅ Usuarios (Permite agregar, eliminar y modificar los permisos de usuarios ya creados)

✅ Datos Generales (Permite registrar los datos de la empresa, logo, color, pie de cotizaciones y ventas)

✅ Clientes (Permite agregar, modificar y eliminar clientes)

✅ Productos (Permite agregar, modificar y eliminar productos, se puede agregar imagenes)

✅ Monedas (Permite agregar, modificar y eliminar monedas)

 

OPERACIONES:

✅ Cotizaciones (Permite registrar las cotizaciones de forma rápida y sencilla, asimismo, se puede generar PDF, Exportar en una hoja de EXCEL, Imprimir, etc.)

✅ Ventas (Permite registrar las ventas, genera su asiento automático)

 

OTROS:

✅ Sesión con otro usuario (Permite iniciar sesión con otros usuarios)

✅ Guardar Cambios

✅ Imprimir

✅ Exportar en una hoja de EXCEL

✅ Dashboard (Permite ver un gráfico la gestión de la empresa, el producto más vendido, Top 5 de clientes, etc.)

 

DATA:

✅ Data Cotizaciones

✅ Data Ventas

UTILITARIOS:

✅ Copia de Respaldo

✅ Generar Backup (Permite generar una copia de seguridad de toda la data del sistema)

✅ Restaurar Backup (Permite restaurar la copia de seguridad de toda la data del sistema)

✅ Reiniciar sistema (Permite eliminar toda la información del sistema)

REQUERIMIENTOS:

✅ Windows 2010

✅Ver detenidamente los vídeos de uso del sistema

NOTA IMPORTANTE:

El uso del sistema es para una sola PC donde podrás realizar las copias que desees sin límite.

FORMA DE ADQUIRIR

El costo del Aplicativo es S/ 49.00 soles o USD 15.00 (Dolares Americanos). Para poder adquirir el producto debe seguir los siguientes pasos.

Paso 01:

Depositar el monto correspondiente en una de nuestras cuentas o en nuestra cuentas de Paypal: mike_15962@hotmail.com

Paso 02:

Enviar la foto del voucher del deposito al siguiente correo: ideas.cuanticas.myz@gmail.com / house.contable@gmail.com o al siguiente enlace: WhatsApp

VÍDEOS TUTORIALES

Vídeo 01: Presentación

Read More