scroll bar que mofique la celda activa

hola tocayo,

no se a los demas, pero desde luego a mi, como que no me queda nada claro lo que quieres hacer:

1.- Necesito que la barra de control me

¿a que te refieres con la barra de comtrol?¿ a las scrollbar de la hoja?

2.-modifique (aumentar o disminuir)

¿aumentar/disminuir el tamaño?¿el valor?¿hacer zoom?

3.- pretendo utilizar solo un control modificar todas las celdas o la celda que yo elija

a todo lo anterior añadele el desconcierto.

bueno, si te animas a aclarar un poco la consulta, quizas sea mas facil que alguien te eche una mano

un saludo y hasta pronto
Ivan

Estimado tocayo
mira lo que quiero hacer es lo siguiente:
en la celda A1 esta el valor 10
en la celda A2 esta el valor 20
En la celda B2 esta el valor 30
Pretendo que con un scroll bar o un boton de esos que se sacan de la barra
de herramientas y qeu al desplazar la barra se modifica el valor de una
determinada celda pero solo una celda. Lo que yo quiero hacer es que esa
misma barra me sirva para modificar cualquier celda de la hoja con el unico
requisito que la celda este activa o seleccionada. por ejemplo si estoy en
la celda A1 y desplazo el scroll bar entonces me modifique esa celda y luego
al seleccionar la celda A2 pueda hacer lo mismo
La idea es no tener tantos controles barra en la hoja, y cambiar los valores
a traves de solamente uno.
se entiende??
ojala puedas ayudarme
atte
Ivan

"Ivan" escribió en el mensaje
news:

hola tocayo,

no se a los demas, pero desde luego a mi, como que no me queda nada claro
lo que quieres hacer:

1.- Necesito que la barra de control me

¿a que te refieres con la barra de comtrol?¿ a las scrollbar de la hoja?

2.-modifique (aumentar o disminuir)

¿aumentar/disminuir el tamaño?¿el valor?¿hacer zoom?

3.- pretendo utilizar solo un control modificar todas las celdas o la
celda que yo elija

a todo lo anterior añadele el desconcierto.

bueno, si te animas a aclarar un poco la consulta, quizas sea mas facil
que alguien te eche una mano

un saludo y hasta pronto
Ivan

hola tocayo,

aunque sigo sin tener claro del todo a que te refieres con modificar el valor, y en funcion d esto seguro que hay otras
muchas y mejores posibilidades, para vayas echando un ojo y veas si es a esto a lo que te refieres puedes hacer lo
siguiente:

en una hoja nueva inserta un boton de numero (SpinButton) de la barra de herramientas 'Barra de controles' (OJO: es
importante que sea de esta barra. Si tienes dudas ve al menu 'Ver' -> 'Barras de herramientas' -> marca la opcion 'Barra
de controles' y si quieres, para no liarte, si esta marcada la opcion 'Formularios', desmarcala para dejar visible solo
la de controles.

una vez lo hayas insertado ve a la pestaña de la hoja -> haz click secundario -> elige ver codigo -> en el modulo an
blanco de la ventana que se te abre copia/pega el siguiente codigo ->

'pega desde aqui *********************************
'
Private Sub SpinButton1_SpinDown()
If IsNumeric(ActiveCell) Then ActiveCell = ActiveCell - 1
End Sub

Private Sub SpinButton1_SpinUp()
If IsNumeric(ActiveCell) Then ActiveCell = ActiveCell + 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
With ActiveCell
SpinButton1.Height = .Height * 2
SpinButton1.Width = .Height
If .Column < 256 Then SpinButton1.Left = .Left + .Width Else _
SpinButton1.Left = .Left - SpinButton1.Width
If .Row < 65536 Then SpinButton1.Top = .Top Else _
SpinButton1.Top = .Top - .Height
End With
Application.ScreenUpdating = True
End Sub
'
'hasta aqui***************************************

-> ahora cierra el editor para volver a excel. (ya en excel, si esta actvado el boton 'Modo diseño' de la barra de
herramientas, desmarcalo.

ya puedes hacer pruebas: cambia la celda activa, y dale a los botones del boton de numero. Prueba tambien a intoducir un
nº en la celda activa y vuelve a darle a los botones.

lo dicho, echale un ojo y mira a ver si +o- te refieres a algo asi. Y con las dudas comentas

un saludo y hasta pronto
Ivan

Excelente,
Gracias tocayo, era lo que yo queria.
Solo para terminar...Cómo puedo hacer que esta propiedad esté activa solo
cuando la celda activa pertence a un rango determinado solamente, por
ejemplo si la celda activa pertenece al rango A1:D7
gracias de antemano
"Ivan" escribió en el mensaje
news:%23b%

hola tocayo,

aunque sigo sin tener claro del todo a que te refieres con modificar el
valor, y en funcion d esto seguro que hay otras muchas y mejores
posibilidades, para vayas echando un ojo y veas si es a esto a lo que te
refieres puedes hacer lo siguiente:

en una hoja nueva inserta un boton de numero (SpinButton) de la barra de
herramientas 'Barra de controles' (OJO: es importante que sea de esta
barra. Si tienes dudas ve al menu 'Ver' -> 'Barras de herramientas' ->
marca la opcion 'Barra de controles' y si quieres, para no liarte, si esta
marcada la opcion 'Formularios', desmarcala para dejar visible solo la de
controles.

una vez lo hayas insertado ve a la pestaña de la hoja -> haz click
secundario -> elige ver codigo -> en el modulo an blanco de la ventana que
se te abre copia/pega el siguiente codigo ->

'pega desde aqui *********************************
'
Private Sub SpinButton1_SpinDown()
If IsNumeric(ActiveCell) Then ActiveCell = ActiveCell - 1
End Sub

Private Sub SpinButton1_SpinUp()
If IsNumeric(ActiveCell) Then ActiveCell = ActiveCell + 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
With ActiveCell
SpinButton1.Height = .Height * 2
SpinButton1.Width = .Height
If .Column < 256 Then SpinButton1.Left = .Left + .Width Else _
SpinButton1.Left = .Left - SpinButton1.Width
If .Row < 65536 Then SpinButton1.Top = .Top Else _
SpinButton1.Top = .Top - .Height
End With
Application.ScreenUpdating = True
End Sub
'
'hasta aqui***************************************

-> ahora cierra el editor para volver a excel. (ya en excel, si esta
actvado el boton 'Modo diseño' de la barra de herramientas, desmarcalo.

ya puedes hacer pruebas: cambia la celda activa, y dale a los botones del
boton de numero. Prueba tambien a intoducir un nº en la celda activa y
vuelve a darle a los botones.

lo dicho, echale un ojo y mira a ver si +o- te refieres a algo asi. Y con
las dudas comentas

un saludo y hasta pronto
Ivan

hola de nuevo, tocayo

añade al principio del procedimiento SelectionChange, justo antes del Application.Screenupdating = False lo siguiente=>

If Target.Column > 4 or Target.Row > 7 Then Exit Sub

no lo he probado, pero creo que sera suficiente

un saludfo
Ivan