Incrementar un número

Hola Jose,
Si la celda a que hace la referencia la funcion BuscarV
es A1, este codigo podria servirte
Sub Disminuir()
Range("A1").Value=Range("A1").Value-1
End Sub
Sub Aumentar()
Range("A1").Value=Range("A1").Value+1
End Sub

Claro que en vez de usar dos botones, uno (+) y otro (-),
tal vez prefieras usar un control SpinButton.

Saludos,

Henry

Hola a todos, necesito una macro que incremente pulsando

un botón (+) ó lo

disminuya (-) un número que a su vez sirve para realizar

una búsqueda en una

base de datos con la función BuscarV.
Gracias a todos
ppfras


.

Hola Henry:
Un millón de gracias . ¡ funciona !
ppfras
"Henry Sanchez" escribió en el mensaje
news:1a2b001c44e71$29c1bc50$
Hola Jose,
Si la celda a que hace la referencia la funcion BuscarV
es A1, este codigo podria servirte
Sub Disminuir()
Range("A1").Value=Range("A1").Value-1
End Sub
Sub Aumentar()
Range("A1").Value=Range("A1").Value+1
End Sub

Claro que en vez de usar dos botones, uno (+) y otro (-),
tal vez prefieras usar un control SpinButton.

Saludos,

Henry

Hola a todos, necesito una macro que incremente pulsando

un botón (+) ó lo

disminuya (-) un número que a su vez sirve para realizar

una búsqueda en una

base de datos con la función BuscarV.
Gracias a todos
ppfras


.

Que tal.
Te envío el código de la macro para que al pulsa un botón
(+) se incremente y viceversa con el botón (-), la función
buscarv la dejo a tu criterio.
PARA LA MACRO DEL BOTÓN (-) SOLO CAMBIA EL SIGNO.

Sub Plus()
'
' Plus Macro
' Macro grabada el 09/06/2004 por Sergio A Campos H
'
With ActiveWorkbook.Sheets("hoja1")
plus1 = .Range("a1") + 1
.Range("a1") = plus1
End With
'
End Sub

Hola a todos, necesito una macro que incremente pulsando

un botón (+) ó lo

disminuya (-) un número que a su vez sirve para realizar

una búsqueda en una

base de datos con la función BuscarV.
Gracias a todos
ppfras


.