Control Spinbutton no puedo asignar valor negativo

Hola, tengo un problema con el control Spinbutton (Control de número).
Entre las propiedades se encuentran Max y Min, que definen el rango de números que puede utilizarse, el problema está en que si asigno valores negativos estos no aparecen (o por lo menos no en un formato normal).
Por ejemplo, Max=100, Min=-100. Si utilizo el control reduciendo el valor de una celda pasa lo siguiente: 3, 2, 1, 0, 65535, 65534, etc. Es decir que en lugar de -1 aparece un 65535, lo mismo sucede con otros números negativos.
Entonces, ¿Se puede usar el Spinbutton con valores negativos? Si es asi ¿Cómo se hace?. (El problema lo tengo con Excel 2000 y 2003).
Desde ya muchas gracias.

1 respuesta

Respuesta
1
Usando VBA es posible conseguirlo (no sé si será posible sin tener que usar VBA): hay que establecer la propiedad SmallValue del control SpinButton a CERO y poner el siguiente código en el módulo de la hoja donde se encuentra (click derecho sobre su pestaña -> Ver código):
Private Sub SpinButton1_SpinDown()
    If Range(Range(Me.SpinButton1.LinkedCell).Address).Value > Me.SpinButton1.Min Then Range(Range(Me.SpinButton1.LinkedCell).Address).Value = Range(Range(Me.SpinButton1.LinkedCell).Address).Value - 1
End Sub
Private Sub SpinButton1_SpinUp()
    If Range(Range(Me.SpinButton1.LinkedCell).Address).Value < Me.SpinButton1.Max Then Range(Range(Me.SpinButton1.LinkedCell).Address).Value = Range(Range(Me.SpinButton1.LinkedCell).Address).Value + 1
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Duda sobre crear una caja de texto y un spinbutton en Microsoft Excel

Necesito ayuda en una tarea que me plantearon. Crear 3 cajas de texto y un spinbutton. Una de las cajas va la hora, minuto, segundo respectivamente. Con el spinbutton ir avanzando ya sea la hora, minuto o segundo cuando este seleccionado la caja.
1 respuesta

¿Cómo asignar la variable para poder poner un numero en Excel VBA?

Tengo la macro que copio a continuación que funciona como un Login. El problema es que la contraseña si o si tiene que ser con una letra porque sino me dice que la contraseña es invalida. En la actualidad la contraseña que uso es "f330306" y a mi me...
1 respuesta

¿Cómo hago para añadir en una nueva hoja de calculo?VBA

Tengo el siguiente código que copie de un ejemplo que descargue pero cuando quiero añadir lo que hace es hacerlo en la misma hoja de calculo toda la información de las textbox, ¿Cómo haría para hacer que cada vez que añada un nuevo cliente aparezca...
3 respuestas

Destacar OptionButton al cargar formulario

Tengo un formulario con tres OptionButton y los tengo asignado a una misma celda. El valor al hacer click son 1,2 y 3 respectivamente. La idea es que al cargar el formulario me pueda mostrar activo el OptionButton que había asignado anteriormente, es...
1 respuesta

¿Cómo copiar datos de una fila a otra cada vez que cambien?

Tengo dos dos hojas en excel ("Presión" y "Temperatura") donde puedo ver los datos procedentes de un plc. En la hoja "Presión" tengo Fecha, hora, turno, Presión Alta, media, baja y de ciclo (celdas desde las a4 hasta la g4). Las presiones cambian...
1 respuesta

Crear contador con Spin Button

Tengo una plantilla de excel a la que quiero crearle un contador, que cuente hacia arriba y hacia abajo, según se vaya apretando en los botones de un control "SpinButton".
1 respuesta

Ayuda código vba ejecuta una resta urgente

Queridos amigos tengo el siguiente problemita tengo este código Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'controla col H actualizando col G If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then Target.Offset(0, -1) =...
1 respuesta

Celda que suma.

Me gustaría saber si es posible conseguir en excel lo siguiente: Tengo una celda que acumula totales, pero estos totales los calculo yo directamente. Me gustaría habilitar una celda para que le ponga un número, pulse intro, lo sume a la columna del...
1 respuesta

Llamar macro con valores de celda

Tengo el siguiente código que ejecuta una macro al cambiar el volor de una celda en un derterminado rango: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("k5:k300")) Is Nothing Then Exit Sub End If ' If Target >= 0...
1 respuesta