Para Adrian

[Marcial_F]

Hola.
Necesito su aporte, ya que no encuentro la manera de crear una macro que seleccione las celdas que contienen formato condicional como verdadero (en este caso la celdas de color).
Es...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola, no se si esto te ayuda pero pruebalo primero:

1 Presiona CTRL+i, se abre una ventana, click en el boton Especial
2 Se mjuestra otra ventana, elegir Celdas con formato condicionales
3...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Marcial_F]

Mi buen amigo Riojano.
Sabes, aunque parezca una buena (IR.... a celdas con formatos condicionales), opción he de manifestarte que no funciona ya que me selecciona TODAS las celdas que poseen...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola, en tu xls selecciona el rango A10:E16 y corre esta macro:

Sub Seleccionar()
On Error GoTo x
Dim celda As Range, Celdas, Cond As String, i, f, c As Integer
Celdas = ""
i = 10
Cond = "G10"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Marcial_F]

Adrian:
Solo me queda por decirte [font=Courier, monospace]GRACIAS![/font]

En realidad era lo que necesitaba mi buen RIOJANO.


Salu2

 

[Marcial_F]

[font=Times New Roman, serif]Adrian:
Tengo una última duda, qué cambios debo hacerle a la macro para que funcione digamos unas dos mil filas hacia abajo?
Y, también asumiendo que bajo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Recien hoy (02/05/05) puede estar en el portal, tuve un percanse, estoy algo descolocado y no recuerdo tu tema, pero te recomiendo que pruebes la macro así­ como esta y vemos.
Atte.

 

[Adrian]

Hola!
Recién hoy (02/05/05) puede entrar al portal, tuve un percance.
Bueno, te sugiero que selecciones el rango y ejecuta la macro.
Atte

 

[Marcial_F]

Gracias Adrian por atender mi solicitud.
Lamento lo de tu percance o inconveniente. Espero estés mejor.
He probado la macro varias veces seleccionando los rangos en los que quiero que opere, sin...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Selecciona el rango o los rango presionando la tecla CTRL.
Atte.

 

[Marcial_F]

Te refieres a una selección de "rangos no adyacentes"?
Es decir, eso es lo que hací­a antes que me obsequiaras esas lí­neas de código.
Sin embargo (y disculpa la molestia amigo); mi necesidad es...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Probaste con con "currentregion", para definir el Rango?

 

[Marcial_F]

Honestamento no lo he hecho.
Haber... Oriéntame Galileo :roll:

 

[galileogali]

digamos que si te posonas en la primera celda del rango que vas a someter una vez ahi lo seleccionas con
Activecell.CurrentRegion.select

con esta lí­nea de código deberí­a considerar seleccionado...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Marcial_F]

Aprovechando que estás conectado; talvez me puedes hechar una manita con la secuencia de estos post....

 

[Adrian]

Hola.
En principio la macro no tendrí­a ningún inconveniente en trabajar sobre 2000 o más lí­neas, el cambio que podrí­as hacer es:
If Range(Cond).Value > 0 And rango(f, c) <> "" And rango(f...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Marcial_F]

Adrian.
Primero que nada agradecerte por tu valiosa ayuda en este caso.
Decidí­ presentarte el "xls" con algunos comentarios a fí­n de ser lo más explí­cito posible.

DE NUEVO GRACIAS...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Sub Seleccionar()
On Error GoTo x
Dim celda As Range, Celdas, Cond As String, i, f, c As Integer
Celdas = ""
i = 10
Cond = "j10"
Set rango = Range(Selection.Address)
For f = 1 To rango.Rows.Count...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Marcial_F]

ADRIAN:
GRACIAS, MUY AMABLE DE TU PARTE.
PROBARí‰ LA NUEVA MACRO !


Y... DE NUEVO VAYA MI GRATITUD POR TUS VALIOSOS APORTES!