scroll bar que mofique la celda activa

Fan-tas-tico
gracias
atte
Ivan

"Ivan" escribió en el mensaje
news:%

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

ivan,
como puedo hacer ahora para que para el usuario sea mas visible la celda que
se está modificando.
por ejemplo que el font no sea 10 y sea tamaño 14
y que sea en negrita mientras esta selecionada la celda y luego cuando se
seleccione otra celda vuelva al tamaño original.
saludos





"ivan" <msnews.microsoft.com> escribió en el mensaje
news:u2Vo$

Fan-tas-tico
gracias
atte
Ivan

"Ivan" escribió en el mensaje
news:%

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

On 23 mayo, 21:45, "ivan" <msnews.microsoft.com> wrote:

ivan,
como puedo hacer ahora para que para el usuario sea mas visible la celda que
se está modificando.
por ejemplo que el font no sea 10 y sea tamaño 14
y que sea en negrita mientras esta selecionada la celda y luego cuando se
seleccione otra celda vuelva al tamaño original.
saludos

"ivan" <msnews.microsoft.com> escribió en el mensajenews:u2Vo$



> Fan-tas-tico
> gracias
> atte
> Ivan

> "Ivan" escribió en el mensaje
>news:%
>> 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- Ocultar texto de la cita -

- Mostrar texto de la cita -

hola tocayo,

(creo que) has hecho bien en abrir otro hilo con el tema, pues es
totalmente diferente.

Pero bueno, como supongo que quieres hacerlo con el mismo rango (y
ademas soy un autentico aficionado a los autohilos, y, para una vez
que no soy totalmente el culpable, porque no alargarlo un poco mas).
En cualquier caso si te fuese valida mi respuesta convendria pusieras
un link en el otro tema para quien pudiera estar interesado en el
tema.

lo 1º, si como parece te interesan las macros en excel, te recomiendo
que, por supuesto aparte de recurrir al foro cuando quieras, recurras
a la ayuda (f1 estando en el editor) para ir cogiendole el tranquillo
al tema, poco a poco se va haciendo comprensible.

en este caso echale un ojo al conjunto 'Range' y a su propiedad
'Font', que devuelve un objeto font en el que puedes modifcar tamño
(prp. size) negrita (bold), etc. Mira tambien 'Interior' y/o
'Color'/'ColorIndex', pej. (puedes situar el cursor sobre estos
terminos o sobre (casi) cualquier otro sobre el que tengas dudas y
darle a f1, automaticamente te aparecera la ayuda al respecto.Y
'ayuda' bastante.

lo 2º, si el cambio se refiere a las mismas celdas de la consulta
anterior, puedes probar con algo parecido a esto:

cambia todo el procedimiento 'SelectionChange' por este:->

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 7 Or Target.Column > 4 Then Exit Sub
Application.ScreenUpdating = False
With [a1:d7]
.HorizontalAlignment = xlHAlignGeneral
.Interior.ColorIndex = xlColorIndexNone
With .Font
.Bold = False
.Size = 10
End With
End With
With ActiveCell
.HorizontalAlignment = xlCenter
With .Font
.Bold = True
.Size = 12
End With
.Interior.ColorIndex = 28
SpinButton1.Height = .Height * 2
SpinButton1.Width = .Height
SpinButton1.Left = .Left + .Width
SpinButton1.Top = .Top
End With
Application.ScreenUpdating = True
End Sub


mira a ver que tal y para ajustar a tu gusto colores, tamaños,
etc,...ya sabes, F1

un saludo
Ivan

Gracias toyaco
funcionó de maravilla
seguire tu consejo
atte
ivan

"Ivan" escribió en el mensaje
news:
On 23 mayo, 21:45, "ivan" <msnews.microsoft.com> wrote:

ivan,
como puedo hacer ahora para que para el usuario sea mas visible la celda
que
se está modificando.
por ejemplo que el font no sea 10 y sea tamaño 14
y que sea en negrita mientras esta selecionada la celda y luego cuando se
seleccione otra celda vuelva al tamaño original.
saludos

"ivan" <msnews.microsoft.com> escribió en el
mensajenews:u2Vo$



> Fan-tas-tico
> gracias
> atte
> Ivan

> "Ivan" escribió en el mensaje
>news:%
>> 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- Ocultar texto de la cita -

- Mostrar texto de la cita -

hola tocayo,

(creo que) has hecho bien en abrir otro hilo con el tema, pues es
totalmente diferente.

Pero bueno, como supongo que quieres hacerlo con el mismo rango (y
ademas soy un autentico aficionado a los autohilos, y, para una vez
que no soy totalmente el culpable, porque no alargarlo un poco mas).
En cualquier caso si te fuese valida mi respuesta convendria pusieras
un link en el otro tema para quien pudiera estar interesado en el
tema.

lo 1º, si como parece te interesan las macros en excel, te recomiendo
que, por supuesto aparte de recurrir al foro cuando quieras, recurras
a la ayuda (f1 estando en el editor) para ir cogiendole el tranquillo
al tema, poco a poco se va haciendo comprensible.

en este caso echale un ojo al conjunto 'Range' y a su propiedad
'Font', que devuelve un objeto font en el que puedes modifcar tamño
(prp. size) negrita (bold), etc. Mira tambien 'Interior' y/o
'Color'/'ColorIndex', pej. (puedes situar el cursor sobre estos
terminos o sobre (casi) cualquier otro sobre el que tengas dudas y
darle a f1, automaticamente te aparecera la ayuda al respecto.Y
'ayuda' bastante.

lo 2º, si el cambio se refiere a las mismas celdas de la consulta
anterior, puedes probar con algo parecido a esto:

cambia todo el procedimiento 'SelectionChange' por este:->

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 7 Or Target.Column > 4 Then Exit Sub
Application.ScreenUpdating = False
With [a1:d7]
.HorizontalAlignment = xlHAlignGeneral
.Interior.ColorIndex = xlColorIndexNone
With .Font
.Bold = False
.Size = 10
End With
End With
With ActiveCell
.HorizontalAlignment = xlCenter
With .Font
.Bold = True
.Size = 12
End With
.Interior.ColorIndex = 28
SpinButton1.Height = .Height * 2
SpinButton1.Width = .Height
SpinButton1.Left = .Left + .Width
SpinButton1.Top = .Top
End With
Application.ScreenUpdating = True
End Sub


mira a ver que tal y para ajustar a tu gusto colores, tamaños,
etc,...ya sabes, F1

un saludo
Ivan