BALANCE DEL PROYECTO

En este documento se podra observar las ventas de todos los clientes que se han realizado en un mes especifico, se puede ver tambien cual es el paquete que mas se vende y sus demas caracteristicas.
Este balance solo lo podra ver el gerente que sera el que se fije en los datos exactos de esto, se podra dar cuenta de lo importamte que es tener un balance en su empresa.

MODELO DE FACTURA

PROTECCION DE LAS MACROS

las macros tambien se pueden proteger es necesario seguir los siguientes pasos:
- Marque la casilla de bloquear proyecto para su visualizacion
- Escriba la contraseña
- Vuelva a escribir su contraseña en confirmar contraseña.
De esta manera cualquier persona que quiera acceder a esto no podra copiar los objetos donde quedan escritas las macros.
Siempre el proyecto pedira la clave para poder acceder a revisar los objetos.

MACROS " COMO GRABAR UNA MACRO"

En la ficha de programador existe un icono que dice "Grabar macro" se gace clic en ese icono y automaticamente se abre un cuadro de dialogo en el cual se coloca el nombre de la macro y despues se presiona aceptar, despues la macro comenzara a grabar todo lo que se realice en la hoja de excel, cuando ya se quiera detener la grabacion solo en la parte inferior de la hoja de excel se presionara un icono en el cual se detiene la grabacion de la macro.
Tambien se podra observar la grabacion de esta macro ingresando al "Visual basic" con Alt+F11 se abre el modulo y se vera lo que grabo la macro.

PROYECTO DE EXCEL "FANTASTIC EVENTS"

Este es el proyecto en el cual se demostrara lo aprendido en las clases de taller excel.
En primera instancia necesitamos hacer una base de datos tanto de los clientes como nombre, ciudad, cedula de identidad,ciudad, numero de telefono, dirección,y su respectivo codigo, esto ayudara a que podamos darnos cuenta de quien compra mas en nuestro negocio.

FACTURACION EN LA MACRO

Para realizar la factura se necesita realizar ciertas cosas en la macro este es un ejemplo de lo que se realizo en nuestra factura utilizando las macros.

Private Sub CheckBox1_Click()

End Sub

Private Sub CommandButton1_Click()
Dim sh1 As Object
Dim sh2 As Object
Dim nr As String
Dim r As Range

Set sh1 = Sheets("BALANCE")
Set sh2 = Sheets("FACTURACION")

sh1.Select

ActiveSheet.Range("B14").Select

' Buscar el primer registro vacío en la BDD
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend

Set r = ActiveCell

' Almacenar la información
'r.Value = Range("B3").Value
r.Value = Range("D17").Value
r.Offset(0, 1).Value = Range("D18").Value
r.Offset(0, 2).Value = Range("D19").Value
r.Offset(0, 3).Value = Range("D20").Value
r.Offset(0, 4).Value = Range("F18").Value
r.Offset(0, 5).Value = Range("F19").Value
r.Offset(0, 6).Value = Range("F20").Value
r.Offset(0, 7).Value = Range("F14").Value
r.Offset(0, 8).Value = Range("E22").Value
r.Offset(0, 9).Value = Range("E24").Value
r.Offset(0, 10).Value = Range("E26").Value
r.Offset(0, 11).Value = Range("E27").Value
r.Offset(0, 12).Value = Range("D33").Value
r.Offset(0, 13).Value = Range("E28").Value
r.Offset(0, 14).Value = Range("E29").Value
ActualizaSecuencia (Range("i9").Value)

sh2.Range("F14").Value = GeneraCodigo(sh2.Range("i9").Value)

sh2.Activate

ActiveSheet.Calculate


MsgBox "Información guardada con éxito", vbInformation
Call BORRAFACTURA
End Sub

Private Sub CommandButton2_Click()
Activar_tipodoc
End Sub

Private Sub CommandButton3_Click()
Activar_descuento
End Sub

Private Sub OptionButton1_Click()
Range("I10").Value = "1"
If MsgBox("Factura?", vbQuestion + vbYesNo, "FANTASTIC EVENTS") = vbYes Then
Desactivar_tipodoc
End If
End Sub

Private Sub OptionButton2_Click()
Range("I10").Value = "2"
If MsgBox("Nota de Venta?", vbQuestion + vbYesNo, "FANTASTIC EVENTS") = vbYes Then
Desactivar_tipodoc
End If
End Sub

Private Sub Activar_tipodoc()
OptionButton1.Enabled = True
OptionButton2.Enabled = True
End Sub

Private Sub Desactivar_tipodoc()
OptionButton1.Enabled = False
OptionButton2.Enabled = False
End Sub

Private Sub OptionButton3_Click()
Range("I18").Value = "1"
If MsgBox("Descuento aplicado 5%", vbQuestion + vbYesNo, "FANTASTIC EVENTS") = vbYes Then
Desactivar_descuento
End If
End Sub

Private Sub OptionButton4_Click()
Range("I18").Value = "2"
If MsgBox("Descuento aplicado 10%", vbQuestion + vbYesNo, "FANTASTIC EVENTS") = vbYes Then
Desactivar_descuento
End If
End Sub

Private Sub Worksheet_Activate()
MsgBox "Bienvenidos a Facturación, GRACIAS POR PREFERIRNOS"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Private Sub Activar_descuento()
OptionButton3.Enabled = True
OptionButton4.Enabled = True

End Sub

Private Sub Desactivar_descuento()
OptionButton3.Enabled = False
OptionButton4.Enabled = False

End Sub

EJEMPLO DE UNA PAQUINA DE VENTAS

Este es un ejemplo de que datos se necesitan para vender en un negocio es necesario tener lo que se ofrece para que el cliente pueda contratar nuestros servicios inmediatamente.