Mostrar un valor en una celda según la celda activa

"Luis Cases [defkon]" escribió en el mensaje news:

Estoy un poco bloqueado en este punto.

Tengo una tabla para introducir datos, cuando estoy sobre una fila quisiera
que en una celda de la cabecera se mostrara un valor de la misma fila que la
celda activa pero de una columna más a la derecha.

Concretamente estoy en Bx y quiero que en la celda N5 se muestre el
contenido de Tx. No encuentro la formula que me lo permita.

Podrías usar el evento '_SelectionChange' de la hoja en cuestión, por ejemplo algo similar a lo siguiente:

'******************
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then 'Si estamos en la columna "B"
'Asignamos a 'N5' el valor de la columna "T", de la fila actual
Range("N5").Value = Range("T" & Target.Row)
End If
End Sub
'******************


Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...c.es.excel
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas

Muchas gracias, me doy cuenta que lo he planteado mal.

Debe pasar el valor de la celda Tx, siempre que la celda activa este en la
fila x, sea la columna que sea.

Gracias de nuevo.


"Vinchenzo vinç" escribió en el mensaje
news:%
"Luis Cases [defkon]" escribió en el mensaje
news:

Estoy un poco bloqueado en este punto.

Tengo una tabla para introducir datos, cuando estoy sobre una fila
quisiera
que en una celda de la cabecera se mostrara un valor de la misma fila que
la
celda activa pero de una columna más a la derecha.

Concretamente estoy en Bx y quiero que en la celda N5 se muestre el
contenido de Tx. No encuentro la formula que me lo permita.

Podrías usar el evento '_SelectionChange' de la hoja en cuestión, por
ejemplo algo similar a lo siguiente:

'******************
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then 'Si estamos en la columna "B"
'Asignamos a 'N5' el valor de la columna "T", de la fila actual
Range("N5").Value = Range("T" & Target.Row)
End If
End Sub
'******************


Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...c.es.excel
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas

hola, chicos !

1) tomar en cuenta que al modificar valores/propiedades/... de objetos en los eventos de una hoja [generalmente]...
-> se vacia la pila de niveles para deshacer/undo/ctrl+Z [lo que estara sucediendo en cada '_SelectionChange'] :-(

2) prueba con el siguiente procedimiento:
a) en la celda 'N5' utiliza la siguiente formula: -> =indirecto("t"&celda("row"))
b) en el modulo de codigo de 'esa' hoja:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("n5").Calculate
End Sub

OJO: si a tu modelo le llegara a resultar leento un re/calculo cada vez que cambias la seleccion de rangos en la hoja -?-
cambia/sustituye/... la instruccion [.calculate] en el evento a lo siguiente:: -> Application.ScreenUpdating = True

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Luis escribio en el mensaje ...
... cuando estoy sobre una fila... en una celda... un valor de la misma fila que la celda activa pero de una columna mas a la derecha.
Concretamente estoy en Bx y quiero que en la celda N5 se muestre el contenido de Tx. No encuentro la formula que me lo permita.

Vinchenzo escribio en el mensaje ...
... el evento '_SelectionChange' de la hoja en cuestion, por ejemplo algo similar a lo siguiente:
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then 'Si estamos en la columna "B"
'Asignamos a 'N5' el valor de la columna "T", de la fila actual
Range("N5").Value = Range("T" & Target.Row)
End If
End Sub

Luis escribio en el mensaje ...
... me doy cuenta que lo he planteado mal.
Debe pasar el valor de la celda Tx, siempre que la celda activa este en la fila x, sea la columna que sea.

Muchas gracias, funciona perfectamente.

"Héctor Miguel" escribió en el mensaje
news:

hola, chicos !

1) tomar en cuenta que al modificar valores/propiedades/... de objetos en
los eventos de una hoja [generalmente]...
-> se vacia la pila de niveles para deshacer/undo/ctrl+Z [lo que estara
sucediendo en cada '_SelectionChange'] :-(

2) prueba con el siguiente procedimiento:
a) en la celda 'N5' utiliza la siguiente formula: ->
=indirecto("t"&celda("row"))
b) en el modulo de codigo de 'esa' hoja:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("n5").Calculate
End Sub

OJO: si a tu modelo le llegara a resultar leento un re/calculo cada vez
que cambias la seleccion de rangos en la hoja -?-
cambia/sustituye/... la instruccion [.calculate] en el evento a lo
siguiente:: -> Application.ScreenUpdating = True

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Luis escribio en el mensaje ...
... cuando estoy sobre una fila... en una celda... un valor de la misma
fila que la celda activa pero de una columna mas a la derecha.
Concretamente estoy en Bx y quiero que en la celda N5 se muestre el
contenido de Tx. No encuentro la formula que me lo permita.

Vinchenzo escribio en el mensaje ...
... el evento '_SelectionChange' de la hoja en cuestion, por ejemplo
algo similar a lo siguiente:
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then 'Si estamos en la columna "B"
'Asignamos a 'N5' el valor de la columna "T", de la fila actual
Range("N5").Value = Range("T" & Target.Row)
End If
End Sub

Luis escribio en el mensaje ...
... me doy cuenta que lo he planteado mal.
Debe pasar el valor de la celda Tx, siempre que la celda activa este en
la fila x, sea la columna que sea.

Alguién sabe si existe algo que no sepa Héctor Miguel??
;-)





"Luis Cases [defkon]" escribió en el mensaje
news:%23$$

Muchas gracias, funciona perfectamente.

"Héctor Miguel" escribió en el mensaje
news:

hola, chicos !

1) tomar en cuenta que al modificar valores/propiedades/... de objetos en
los eventos de una hoja [generalmente]...
-> se vacia la pila de niveles para deshacer/undo/ctrl+Z [lo que
estara sucediendo en cada '_SelectionChange'] :-(

2) prueba con el siguiente procedimiento:
a) en la celda 'N5' utiliza la siguiente formula: ->
=indirecto("t"&celda("row"))
b) en el modulo de codigo de 'esa' hoja:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("n5").Calculate
End Sub

OJO: si a tu modelo le llegara a resultar leento un re/calculo cada vez
que cambias la seleccion de rangos en la hoja -?-
cambia/sustituye/... la instruccion [.calculate] en el evento a lo
siguiente:: -> Application.ScreenUpdating = True

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Luis escribio en el mensaje ...
... cuando estoy sobre una fila... en una celda... un valor de la misma
fila que la celda activa pero de una columna mas a la derecha.
Concretamente estoy en Bx y quiero que en la celda N5 se muestre el
contenido de Tx. No encuentro la formula que me lo permita.

Vinchenzo escribio en el mensaje ...
... el evento '_SelectionChange' de la hoja en cuestion, por ejemplo
algo similar a lo siguiente:
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then 'Si estamos en la columna "B"
'Asignamos a 'N5' el valor de la columna "T", de la fila actual
Range("N5").Value = Range("T" & Target.Row)
End If
End Sub

Luis escribio en el mensaje ...
... me doy cuenta que lo he planteado mal.
Debe pasar el valor de la celda Tx, siempre que la celda activa este
en la fila x, sea la columna que sea.