MACRO CONSECUTIVOS DE FACTURA

20/05/2005 - 17:50 por HMS | Informe spam
Hola:
Estoy utilizando la macro para hacer numeracion consecutiva, que pusieron
hace dias.
El asunto es que quisiera asignar esta macro a un boton que aparezca en la
factura.
Alguien me podria decir como se hace.
Nota Adjunto la macro.
De antemano gracias.
HMS

Private Sub Workbook_Open()

' Debe de cambiarse los siguientes datos segun sus necesidades
' ""Ej 4"", debe de poner el nombre de la hoja en la que va a ser aplicado
el macro
' "F3", es la celda en la que se va a colocar el CONTADOR, o num de Factura
' "H9", es la celda en la que se coloca la fecha
' "C3", Es la celda para iniciar la inclusion de datos

' Mensaje para saber si se va a hacer un presupuesto nuevo
' y cambiar el numero y la fecha
If MsgBox("Va a Generar un NUEVO Presupuesto", vbYesNo, "Confirmar") _
= vbYes Then

' Incrementamos el numero del presupuesto
Sheets("Ej 4").Range("F3") = Sheets("Ej 4").Range("F3") + 1

' Guardamos el libro con el numero cambiado
ActiveWorkbook.Save

' Colocamos la fecha del sistema
Range("C9").Value = Date

' Seleccionamos la celda para empezar a colocar los datos del cliente
Range("C3").Select

Else
End If

End Sub
 

Leer las respuestas

#1 KL
21/05/2005 - 00:05 | Informe spam
Hola HMS,

Prueba los siguiente:

1) Cambia el nombre de tu macro a "Sub ContadorFactura()"
2) En la hoja de calculo introduce un boton de la barra de herramientas
'Formularios' (ojo - no se confunda con la 'Visual Basic' que son
parecidas). Si no tienes la barra de herramientas 'Formularios' a la vista,
haz clic derecho sobre el area gris alrededor de los menus y elige
'Formularios'.
3) Al introducir el boton en la hoja te preguntara por el nombre del macro a
asignar - elige ContadorFactura

Saludos,
KL


"HMS" wrote in message
news:%
Hola:
Estoy utilizando la macro para hacer numeracion consecutiva, que pusieron
hace dias.
El asunto es que quisiera asignar esta macro a un boton que aparezca en la
factura.
Alguien me podria decir como se hace.
Nota Adjunto la macro.
De antemano gracias.
HMS

Private Sub Workbook_Open()

' Debe de cambiarse los siguientes datos segun sus necesidades
' ""Ej 4"", debe de poner el nombre de la hoja en la que va a ser aplicado
el macro
' "F3", es la celda en la que se va a colocar el CONTADOR, o num de
Factura
' "H9", es la celda en la que se coloca la fecha
' "C3", Es la celda para iniciar la inclusion de datos

' Mensaje para saber si se va a hacer un presupuesto nuevo
' y cambiar el numero y la fecha
If MsgBox("Va a Generar un NUEVO Presupuesto", vbYesNo, "Confirmar") _
= vbYes Then

' Incrementamos el numero del presupuesto
Sheets("Ej 4").Range("F3") = Sheets("Ej 4").Range("F3") + 1

' Guardamos el libro con el numero cambiado
ActiveWorkbook.Save

' Colocamos la fecha del sistema
Range("C9").Value = Date

' Seleccionamos la celda para empezar a colocar los datos del cliente
Range("C3").Select

Else
End If

End Sub

Preguntas similares