excel en contacto: junio 2010

miércoles, 30 de junio de 2010

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

lunes, 28 de junio de 2010

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.

viernes, 25 de junio de 2010

CUENTAS

SE PUEDE OBSERVAR LAS CUENTAS DE LAS VENTAS QUE SE REALIZAN EN ESTE NEGOCIO

martes, 22 de junio de 2010

MACROS

Esta es otra forma para ocupar los iconos que se necesitan en un proyecto:

Private Sub Activar_xime()
OptionButton1.Enabled = True
OptionButton2.Enabled = True
OptionButton3.Enabled = True
OptionButton4.Enabled = True
OptionButton5.Enabled = True
OptionButton6.Enabled = True
OptionButton7.Enabled = True
OptionButton8.Enabled = True
OptionButton9.Enabled = True
OptionButton10.Enabled = True
OptionButton11.Enabled = True
OptionButton12.Enabled = True
OptionButton13.Enabled = True
OptionButton14.Enabled = True
End Sub

Private Sub Desactivar_xime()
OptionButton1.Enabled = False
OptionButton2.Enabled = False
OptionButton3.Enabled = False
OptionButton4.Enabled = False
OptionButton5.Enabled = False
OptionButton6.Enabled = False
OptionButton7.Enabled = False
OptionButton8.Enabled = False
OptionButton9.Enabled = False
OptionButton10.Enabled = False
OptionButton12.Enabled = False
OptionButton13.Enabled = False
OptionButton14.Enabled = False

End Sub

Private Sub Activar_jesi()
OptionButton15.Enabled = True
OptionButton16.Enabled = True
OptionButton17.Enabled = True
OptionButton18.Enabled = True
OptionButton19.Enabled = True
OptionButton20.Enabled = True
OptionButton21.Enabled = True
OptionButton22.Enabled = True
OptionButton23.Enabled = True
OptionButton24.Enabled = True
OptionButton25.Enabled = True
OptionButton26.Enabled = True
OptionButton27.Enabled = True
OptionButton28.Enabled = True
OptionButton29.Enabled = True
OptionButton30.Enabled = True
End Sub
Private Sub Desactivar_jesi()
OptionButton15.Enabled = False
OptionButton16.Enabled = False
OptionButton17.Enabled = False
OptionButton18.Enabled = False
OptionButton19.Enabled = False
OptionButton20.Enabled = False
OptionButton21.Enabled = False
OptionButton22.Enabled = False
OptionButton23.Enabled = False
OptionButton24.Enabled = False
OptionButton25.Enabled = False
OptionButton26.Enabled = False
OptionButton27.Enabled = False
OptionButton28.Enabled = False
OptionButton29.Enabled = False
OptionButton30.Enabled = False
End Sub

jueves, 10 de junio de 2010

PARA ACTIVAR Y DESACTIVAR UNA MACRO

Es necesario que se realice esto en casos como la facturación y los productos que se desean vender al cliente para esto se realiza los siguientes pasos claro esta que esto depende de cada persona y de su proyecto.
Se coloca en numero de las celdas que se esta ocupando y que se desea activar y desactivar.

Private Sub CommandButton4_Click()
Call Activar_jesi
End Sub

Private Sub OptionButton1_Click()
Range("H20").Value = "1"
Range("E24").Value = "1"
Range("E25").Value = "2"
Range("E26").Value = "3"
Range("E27").Value = "4"
Range("E28").Value = "5"
Range("E29").Value = "6"
Range("E30").Value = "7"
Range("E31").Value = "0"
If MsgBox("INFORMACIÓN GUARDADA CON ÉXITO", vbQuestion + vbYesNo, "FANTASTICS EVENTS") = vbYes Then
Call Desactivar_xime
End If
End Sub

martes, 1 de junio de 2010

GUARDAR DATOS

ESTA ES LA FORMA PARA GUARDAR EN UNA MACRO LOS DATOS QUE SE NECESITAN

Private Sub CommandButton1_Click()

Dim sh1 As Object
Dim sh2 As Object
Dim nr As String
Dim r As Range

Set sh1 = Sheets("CUENTAS")
Set sh2 = Sheets("VENTAS")

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("C14").Value 'coddigo
r.Offset(0, 1).Value = Range("C15").Value
r.Offset(0, 2).Value = Range("E14").Value
r.Offset(0, 3).Value = Range("E15").Value
r.Offset(0, 4).Value = Range("G14").Value
r.Offset(0, 5).Value = Range("G15").Value
r.Offset(0, 6).Value = Range("F22").Value
r.Offset(0, 7).Value = Range("G34").Value
sh2.Activate

MsgBox "FANTASTIC EVENTS AGRADECEN SU COMPRA", vbInformation

End Sub

excel en contacto