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

[Luis Cases [defkon]]

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.

Gracias anticipadas.

[Vinchenzo vinç]

"Luis Cases [defkon]" <luis_...@hotmail.com> escribió en el mensaje news:u3zf3xFS...@TK2MSFTNGP02.phx.gbl...

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/microsoft.public.es.excel
( i ) Temperancia en el foro:
http://support.microsoft.com/default.aspx?scid=fh;ES-ES;newsreglas
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

[Luis Cases [defkon]]

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ç" <vbvin...@BORRARhotmail.com> escribió en el mensaje
news:%23xpr3KG...@TK2MSFTNGP03.phx.gbl...

[Héctor Miguel]

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.

[Luis Cases [defkon]]

Muchas gracias, funciona perfectamente.

"Héctor Miguel" <NOhemio...@PLShotmail.com> escribió en el mensaje
news:uVvNdsNS...@TK2MSFTNGP03.phx.gbl...

[César H]

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

"Luis Cases [defkon]" <luis_...@hotmail.com> escribió en el mensaje
news:%23$$ADEQSH...@TK2MSFTNGP02.phx.gbl...

[Héctor Miguel]

hola, César !

> Alguien sabe si existe algo que no sepa Hector Miguel??
> ;-)

yo se lo que no se... [es decir]...
no se lo que no se... [pero... si se lo que no se]
[o lo que es lo mismo]... yo se que no se lo que no se

se entiende ? :D

saludos,
hector.

[César H]

Parace un travalenguas, pero después de leerlo muy despacio, se entiende.
Pero lo importante es que sigas con tu espiritu de seguir ayudando a la
comunidad, felicidades! ;-)

"Héctor Miguel" <NOhemio...@PLShotmail.com> escribió en el mensaje

news:%23SEYJ1W...@TK2MSFTNGP03.phx.gbl...

[Xavier Budet Graco]

Hola "Héctor Miguel" creo que fue Platón el que dijo "Yo sólo sé que no sé nada"...

Te agradecemos el tiempo que nos dedicas.

Saludos,

--
Xavier
j.b...@MACcgac.es
Quitar MAC para contestar. Gracias.

"Héctor Miguel" <NOhemio...@PLShotmail.com> escribió en el mensaje news:%23SEYJ1W...@TK2MSFTNGP03.phx.gbl...

[Luis Cases [defkon]]

Debo reconocer que nunca me han fallado las ayudas de Héctor Miguel. Muchas
gracias por no desfallecer ante tanta cuestion.

¿Que libro/s de cabecera recomiendas para consultar y aprender?

"Xavier Budet Graco" <j.b...@MACcgac.es> escribió en el mensaje de noticias
news:uCGBicgS...@TK2MSFTNGP02.phx.gbl...

[Héctor Miguel]

hola, Luis !

> ... Que libro/s de cabecera... para consultar y aprender?

en cuanto a alguna 'recomendacion' por material de aprendizaje [generalmente 'mi' respuesta es la que te 'apunto' al final]...
[ademas] acostumbro 'afirmar' que: "cada quien avanza, al 'ritmo' que quiere/puede/necesita/..." :))

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

-> me gustaria decirte que leyendo 'tales o cuales' libros ... [pero, estaria siendo 'excluyente'] ;)
todo material de estudio [manuales, {F1}, libros, revistas, cursos, web's, estos foros, etc.] ->es excel...ente<-
mas bien [creo yo que], cada quien 'avanza al ritmo que puede/quiere/necesita' ;)
ademas considera que [en muchas de las ocasiones]
-> 'buscando una cosa'... 'encuentras otra' [que se te habia 'perdido']
-> o ['te topas' con] 'la hermana que se escapo de su prision' [sor-presa... NO esta !!!] :))

-> cuando 'se atora la carreta' [que nos sucede a todos] :-(
NO es 'imprescindible' saberlo todo ;) es suficiente con saber...
el telefono del que sabe... o el e-mail... o la web... o... por que no consultas en el foro? :D

aunque [supongo que de algun modo] no 'escaparas' de consultar al asistente {F1} de excel/vba...
encontraras [algunos] manuales/instructivos/cursos/etc. en las siguientes direcciones:
[aunque... 'calificarlo/s' de sencillos/complicados/completos/buenos/... dependera de factores 'personales'] :D

una lista de manuales y tutoriales [ingles]
http://www.virtualhelpdeskcentral.com/sitecategory.asp?SiteID=12&NoGUI=&CategoryID=18

algunas paginas en ingles...
Charles Williams (DecisionModels): http://www.decisionmodels.com/
Tushar Mehta: http://www.tushar-mehta.com/excel/
Laurent Longre: http://xcell05.free.fr/
Rob Bovey: http://www.appspro.com/Tips/Tips_And_Tricks.htm
Stephen Bullen' Excel MVP's page: http://www.bmsltd.ie/MVP/Default.htm
Jurgen Volkerink (KeepItCool): http://members.chello.nl/keepitcool/addins.html
Matt Evans: http://www.exinfm.com/free_spreadsheets.html
Karl Peterson: http://vb.mvps.org/samples/
Bob Umlas: http://www.emailoffice.com/excel/arrays-bobumlas.html
Carlo Quintero: http://www.mztools.com/
Van Gelder: http://homepages.paradise.net.nz/~robree/excel/
MiStupid (Training Online): http://mistupid.com/tutorials/excel/
ExtremeVBTalk(newsgroup): http://www.visualbasicforum.com/

algunas paginas en castellano...
http://www.franciscopascual.com/Archivos/Excel%202002.zip
http://www.javeriana.edu.co/decisiones/modelos/ejemplos_y_ejercicios.html
http://www.javeriana.edu.co/cursad/diplomado/ejemplos_j_sarmiento.html
http://members.fortunecity.es/tonelorc/eexcel.html
http://www.aulaclic.es/excel2000/f_excel2000.htm
http://64.226.188.26/sivnetwork-www/cursos_gratis/excel/Excel.htm
http://www.territoriopc.com/excel/
http://interinfo.iespana.es/interinfo/info_general/manuales/manuales_ig.htm
http://www.fullwebs.com.uy/endondeestamos/Downloads/Tutoriales/excel.pdf
http://office.arnulfoperez.com/excel/
http://lacher.com/toc.htm
http://www.sistemaslym.net/vba/excel/excel.html
http://es.geocities.com/lacibelesdepunilla/macros.htm
http://es.geocities.com/lacibelesdepunilla/macros1.htm
http://www.macroheavy.com/excel/excel.asp
http://www.geocities.com/gorita_2000/VBA.htm
http://www.excelavanzado.com/
http://www.xtec.es/~rlloren4/KBEsp2.htm
http://www.exceluciones.com/portal/index.php?article=35