Comencemos con el articulo Como crear tu Sistema de Facturación e Inventario 23 en Excel. Pero antes que nada te invito a que leas el articulo anterior, para eso tan solo pulsa clic en el botón:

Muy bien! En esta articulo vamos a escribir el código que trabajara por ti en todo momento.

Activamos el modo diseño del botón GUARDAR, pulsamos clic derecho sobre el botón GUARDAR y seleccionamos "Ver código", al seleccionar "Ver código" se abre VBA (Visual Basic para Aplicaciones).

Dentro de este puedes observar algo como "Private Sub CommandButton2_Click()" en medio de este  escribimos el siguiente código:

ActiveSheet . Unprotect Password:="123"

Sheets ("Base") . Select

Sheets ("Base") . Unprotect "123"

Sheets ("F.COMPRA") . Select

' rutina que graba la factura compra en hoja base

' se busca la primer fila libre en hoja Fact

filalibre = Sheets ("Base") . Range ("A1048576") . End (xlUp) . Row + 1

' se pasarán los datos desde la 1er fila de items

ActiveSheet . Range ("A10") . Select

fila = 10

While ActiveCell.Value <> ""

' copiamos datos fijos ajustando nro col

Sheets ("Base") . Cells (filalibre, 2) = ActiveSheet . Range ("F6")  ' NRO FACT

Sheets ("Base") . Cells (filalibre, 1) = ActiveSheet . Range ("B5")  ' FECHA

Sheets ("Base") . Cells (filalibre, 5) = ActiveSheet . Range ("C7")  ' PROVEEDOR

Sheets ("Base") . Cells (filalibre, 6) = ActiveSheet . Range ("G4")  ' Nº ESTADO

Sheets ("Base") . Cells (filalibre, 7) = ActiveSheet . Range("F5")  ' COD. CONT.

' otros datos del encabezado

' copiamos lista de items

Sheets ("Base") . Cells (filalibre, 13) = ActiveCell . Offset (0, 0) ' CANT

Sheets ("Base") . Cells (filalibre, 8) = ActiveCell . Offset (0, 1) ' COD PROD

Sheets ("Base") . Cells (filalibre, 10) = ActiveCell . Offset (0, 3) ' DESCRIPC

Sheets ("Base") . Cells (filalibre, 11) = ActiveCell . Offset (0, 4) ' COSTO

' incremento la variable fila para repetir el bucle

filalibre = filalibre + 1

' repito el bucle para los items siguientes

ActiveCell . Offset (1, 0) . Select

Wend

' una vez concluída la copia debiera limpiarse el form de datos

' para el ingreso de nueva factura

Call limpiezafc

ActiveSheet.Protect Password:="123"

Sheets ("Base") . Select

Sheets ("Base") . Protect "123"

Sheets ("F.COMPRA") . Select

Recuerda que este código tiene que estar dentro de "Private Sub CommandButton2_Click()", no dentro de "Private Sub CommandButton1_Click()", porque aquí escribiremos códigos para que imprima la Factura.

Si ya escribiste el código, guardamos y cerramos VBA, nos ubicamos en la Hoja F.COMPRA, lo volvemos a proteger.

Luego nos ubicamos en la Hoja BASE, lo desprotegemos, seleccionamos la celda A2:A4 y nos ubicamos en la pestaña "INICIO", sección "Celdas", comando "Formato", lo desplegamos, escogemos "Ocultar" o "Mostrar", se despliega varias opciones y seleccionamos "Mostrar Filas".

Con esta acción des-ocultamos la fila 3, volvemos a proteger la Hoja y regresamos a la Hoja F. COMPRA. Ingresamos datos a la Hoja y listo, solo prueba como los datos se volcán automáticamente con tan solo un clic.

Si te gusto el tema de hoy, compártelo con tus amigos de Facebook, pulsando clic en compartir:

Y si aun no estas suscrito en nuestro canal, tan solo pulsa clic en el botón rojo para acceder a todos los vídeos nuevos que subimos cada semana:

Me gustaría saber qué piensas de este articulo "Sistema de Facturación e Inventario 23 en Excel", por lo tanto, déjame tu comentario con dudas, criticas constructivas y sugerencias.

Hasta aquí hemos llegado con este articulo, para continuar con el siguiente articulo, tan solo pulsa clic en el botón: