seleccionar las celdas que tiene subrayados

11/05/2005 - 17:19 por Kiala Stefane | Informe spam
Hola amigos:

Una vez mas me voy en la necesidad de acudir a vuestra generosa ayuda...

Se trata de que quiero hacer una macro que cuando encuentre en la columna
"T" un numero subrayado selecione esa celda y al mismo tiempo
tambien la paralela correspondiente a la columna "A", es decir, la macro
empezaria a buscar en la columna "T" y al llegar a la celta "T32" tropieza
con un número que está subrayado entonces selecciona las celdas A32 y T32,
acto seguido sigue buscando en la columna "T" seleccionando todas las celdas
subrayadas y sus abyacentes de la columna "A", hasta agotar las celdas
escritas en la columna "T"

Una vez seleccionadas todas las celdas la macro va a un libro concreto
(libro1 por ejemplo) y pega los datos a partir de la celda a1 y b1

Creo que lo que es la macro en general bien la puedo crear yo
lo que no tengo nada claro es como la macro me identificaria las celdas
subrayadas...
gracias de antemano
saludos

Preguntas similare

Leer las respuestas

#1 Fernando Arroyo
11/05/2005 - 17:42 | Informe spam
"Kiala Stefane" escribió en el mensaje news:eIc4$
Hola amigos:

Una vez mas me voy en la necesidad de acudir a vuestra generosa ayuda...

Se trata de que quiero hacer una macro que cuando encuentre en la columna
"T" un numero subrayado selecione esa celda y al mismo tiempo
tambien la paralela correspondiente a la columna "A", es decir, la macro
empezaria a buscar en la columna "T" y al llegar a la celta "T32" tropieza
con un número que está subrayado entonces selecciona las celdas A32 y T32,
acto seguido sigue buscando en la columna "T" seleccionando todas las celdas
subrayadas y sus abyacentes de la columna "A", hasta agotar las celdas
escritas en la columna "T"

Una vez seleccionadas todas las celdas la macro va a un libro concreto
(libro1 por ejemplo) y pega los datos a partir de la celda a1 y b1

Creo que lo que es la macro en general bien la puedo crear yo
lo que no tengo nada claro es como la macro me identificaria las celdas
subrayadas...
gracias de antemano
saludos





Suponiendo que rngCelda es un objeto range, puedes averiguar si la fuente de la celda está subrayada con algo parecido a:

rngCelda.Font.Underline <> xlUnderlineStyleNone

que devolverá True si está subrayada y False en caso contrario.
Un saludo.


Fernando Arroyo
MS MVP - Excel
Respuesta Responder a este mensaje
#2 Kiala Stefane
11/05/2005 - 18:23 | Informe spam
Uff
lo siento, no estoy en condiciones de entender lo que me explicas...
te ruego seas mas especifico o me pongas al menos un pequeño ejemplo de como
doy con eso, mis macros son mas bien algo cutres y no entiendo mucho de
esto.
gracias!

"Fernando Arroyo" escribió en el mensaje
news:
"Kiala Stefane" escribió en el mensaje
news:eIc4$
Hola amigos:

Una vez mas me voy en la necesidad de acudir a vuestra generosa ayuda...

Se trata de que quiero hacer una macro que cuando encuentre en la columna
"T" un numero subrayado selecione esa celda y al mismo tiempo
tambien la paralela correspondiente a la columna "A", es decir, la macro
empezaria a buscar en la columna "T" y al llegar a la celta "T32" tropieza
con un número que está subrayado entonces selecciona las celdas A32 y T32,
acto seguido sigue buscando en la columna "T" seleccionando todas las
celdas
subrayadas y sus abyacentes de la columna "A", hasta agotar las celdas
escritas en la columna "T"

Una vez seleccionadas todas las celdas la macro va a un libro concreto
(libro1 por ejemplo) y pega los datos a partir de la celda a1 y b1

Creo que lo que es la macro en general bien la puedo crear yo
lo que no tengo nada claro es como la macro me identificaria las celdas
subrayadas...
gracias de antemano
saludos





Suponiendo que rngCelda es un objeto range, puedes averiguar si la fuente de
la celda está subrayada con algo parecido a:

rngCelda.Font.Underline <> xlUnderlineStyleNone

que devolverá True si está subrayada y False en caso contrario.
Un saludo.


Fernando Arroyo
MS MVP - Excel
Respuesta Responder a este mensaje
#3 Manuel Romero
11/05/2005 - 19:15 | Informe spam
esta escrito de memoria

application.screenupdating=false
set wkorigen=activesheet
[t1].activate
with activecell
do until .value=""
if .font.underline<>xlunderstylenone then ' como te dijo fernando
fila=.row
cells(row,1).copy ' columna a
wkdestino.activate
wkdestino.paste [a65535].end(xlup).offset(1,0)
wkorigen.activate
cells(row,20).copy ' columna t
wkdestino.activate
wkdestino.paste [b65535].end(xlup).offset(1,0)
wkorigen.activate
end if
.offset(1,0).select
loop
end with

"Kiala Stefane" escribió en el mensaje
news:
Uff
lo siento, no estoy en condiciones de entender lo que me explicas...
te ruego seas mas especifico o me pongas al menos un pequeño ejemplo de
como doy con eso, mis macros son mas bien algo cutres y no entiendo mucho
de esto.
gracias!

"Fernando Arroyo" escribió en el mensaje
news:
"Kiala Stefane" escribió en el mensaje
news:eIc4$
Hola amigos:

Una vez mas me voy en la necesidad de acudir a vuestra generosa ayuda...

Se trata de que quiero hacer una macro que cuando encuentre en la columna
"T" un numero subrayado selecione esa celda y al mismo tiempo
tambien la paralela correspondiente a la columna "A", es decir, la macro
empezaria a buscar en la columna "T" y al llegar a la celta "T32"
tropieza
con un número que está subrayado entonces selecciona las celdas A32 y
T32,
acto seguido sigue buscando en la columna "T" seleccionando todas las
celdas
subrayadas y sus abyacentes de la columna "A", hasta agotar las celdas
escritas en la columna "T"

Una vez seleccionadas todas las celdas la macro va a un libro concreto
(libro1 por ejemplo) y pega los datos a partir de la celda a1 y b1

Creo que lo que es la macro en general bien la puedo crear yo
lo que no tengo nada claro es como la macro me identificaria las celdas
subrayadas...
gracias de antemano
saludos





Suponiendo que rngCelda es un objeto range, puedes averiguar si la fuente
de la celda está subrayada con algo parecido a:

rngCelda.Font.Underline <> xlUnderlineStyleNone

que devolverá True si está subrayada y False en caso contrario.
Un saludo.


Fernando Arroyo
MS MVP - Excel


Respuesta Responder a este mensaje
#4 Kiala Stefane
11/05/2005 - 19:52 | Informe spam
Perfecto!!!!! Gracias por tu colaboracion
me ha costado lo suyo pues ya digo que soy algo dificil, gracias



"Manuel Romero" escribió en el mensaje
news:uIk%
esta escrito de memoria

application.screenupdating=false
set wkorigen=activesheet
[t1].activate
with activecell
do until .value=""
if .font.underline<>xlunderstylenone then ' como te dijo fernando
fila=.row
cells(row,1).copy ' columna a
wkdestino.activate
wkdestino.paste [a65535].end(xlup).offset(1,0)
wkorigen.activate
cells(row,20).copy ' columna t
wkdestino.activate
wkdestino.paste [b65535].end(xlup).offset(1,0)
wkorigen.activate
end if
.offset(1,0).select
loop
end with

"Kiala Stefane" escribió en el mensaje
news:
Uff
lo siento, no estoy en condiciones de entender lo que me explicas...
te ruego seas mas especifico o me pongas al menos un pequeño ejemplo de
como doy con eso, mis macros son mas bien algo cutres y no entiendo mucho
de esto.
gracias!

"Fernando Arroyo" escribió en el mensaje
news:
"Kiala Stefane" escribió en el mensaje
news:eIc4$
Hola amigos:

Una vez mas me voy en la necesidad de acudir a vuestra generosa ayuda...

Se trata de que quiero hacer una macro que cuando encuentre en la
columna
"T" un numero subrayado selecione esa celda y al mismo tiempo
tambien la paralela correspondiente a la columna "A", es decir, la macro
empezaria a buscar en la columna "T" y al llegar a la celta "T32"
tropieza
con un número que está subrayado entonces selecciona las celdas A32 y
T32,
acto seguido sigue buscando en la columna "T" seleccionando todas las
celdas
subrayadas y sus abyacentes de la columna "A", hasta agotar las celdas
escritas en la columna "T"

Una vez seleccionadas todas las celdas la macro va a un libro concreto
(libro1 por ejemplo) y pega los datos a partir de la celda a1 y b1

Creo que lo que es la macro en general bien la puedo crear yo
lo que no tengo nada claro es como la macro me identificaria las celdas
subrayadas...
gracias de antemano
saludos





Suponiendo que rngCelda es un objeto range, puedes averiguar si la fuente
de la celda está subrayada con algo parecido a:

rngCelda.Font.Underline <> xlUnderlineStyleNone

que devolverá True si está subrayada y False en caso contrario.
Un saludo.


Fernando Arroyo
MS MVP - Excel






email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida