Completar columna con texto al llenar con X otras columnas.

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!

en concreto así:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, ActiveSheet.Range("A1:F20")) Is Nothing Then
If LCase(Target.Value) = "x" Then Target.Value = Target.End(xlUp)
End If
End Sub
eso limitará el rango supervisado a A1:F20

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Emilio" escribió en el mensaje de
noticias:k0819d$liv$

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
Si te he entendido bien resulta muy simple, sin embargo un poco
"lesivo"
para la eficiencia del libro:

Private Sub Worksheet_Change(ByVal Target As Range)
If LCase(Target.Value) = "x" Then Target.Value = Target.End(xlUp)
End Sub

eso vigilará todos los cambios en todas las celdas, ...

podrías limitar el rango a "vigilar" mediante intersect

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"borce" escribió en el mensaje de
noticias:

¡ Hola !
Buenos días,

Llevo unos días rompiéndome la cabeza y revisando decenas de
páginas (además de tirando de google todo lo que puedo) y no he
sido capaz de adaptar las soluciones a mi caso concreto.

Verán, tengo un documento con el que trabajamos en Excel 2007, y entre
otras muchas macros, estamos intentado sacar una que nos permita
autocompletar
una columna con el texto que encabeza otras columnas del mismo libro / misma
hoja.

Croquis:

A - B - C - P - Q - R

Apellido Nombre Pais Telefono Email CONTROL
Perez - Paco - Andorra - X - "" - Telefono
De Cabeza - Dolores - Mongolia - "" - X - Email
Este Excel - Meda - Vaticano - X - X - Telefono/Email

Los guiones marcan el paso de una celda a otra. Los "" que figuran
serían celdas vacías.

Lo que buscamos es que cada vez que se ingrese el valor "X" en la
columnas correspondientes a Telefono o Email, nos complete en la columna de
control con el texto que encabeza la columna donde hemos ingresado la X.

Espero haber sido suficientemente claro y que me podáis ayudar.

Gracias de ante mano, un saludo.


PD: Se que la función =SI() sería válida para este caso.
pero por desgracia una de las macros que lleva este documento limpia todas
las
celdas del rango afectado a diario para evitar duplicidad de datos.

Noé