Selección de filas impares y pares por separado

28/12/2003 - 19:09 por OECII | Informe spam
Saludos:

He estado buscando la manera de seleccionar sólo las filas pares o sólo las
filas impares de una hoja de alguna forma que no involucre usar VBA. Si alguien
puede indicarme cómo hacer esto se lo agradecería.

Sin embargo, estuve pensando en una macro, que me hace dicha selección. La idea
es que quiero aplicar un formato diferente a las filas pares que a las impares.
La macro es la siguiente, sin embargo, es muy lenta, pues requiero seleccionar
un rango de hata 7500 celdas. Quisiera por favor recibir sugerencias para
hacerla más rápida.

'en rgRango1 devuelvo la selección de las filas pares
'en rgRango2 obtendría la selección de las filas impares

Sub rangos()
Dim rgRango1 As Range, rgRango2 As Range
Dim stRango As String
Set rgRango1 = Range("A1")
Set rgRango2 = Range("A2")
For i = 1 To 6200
strRango = "A" & CStr(i) ":B" & CStr(i)
'seleccionar rango impares o rango pares
If i mod 2 = 0 Then
Set rgRango2 = Union(rgRango2,Range(strRango))
Else
Set rgRango1 = Union(rgRango1,Range(strRango))
End If
Next i
' aqui hago la modificación de formato
'a cada uno de los rangos
end Sub



Gracias por su ayuda
Saludos
 

Leer las respuestas

#1 Fernando Arroyo
28/12/2003 - 19:29 | Informe spam
Si lo que necesitas es aplicar distintos formatos a las filas dependiendo de si son pares o impares, hay una forma bastante cómoda de conseguirlo sin tener que recurrir a VBA
- selecciona las filas o el rango en que quieras aplicar el formato
- haz Formato->Formato condicional
- en "Condición 1" selecciona "Fórmula" y en el cuadro para la fórmula pon =RESIDUO(FILA();2)=1
- en "Condición 2" selecciona "Fórmula" y en el cuadro para la fórmula pon =RESIDUO(FILA();2)=0
- presiona el botón Formato de cada una de las dos condiciones y aplica el formato que quieras para cada uno de los dos casos.
- dále a Aceptar

Un saludo.


Fernando Arroyo
MS MVP - Excel


"OECII" escribió en el mensaje news:%
Saludos:

He estado buscando la manera de seleccionar sólo las filas pares o sólo las
filas impares de una hoja de alguna forma que no involucre usar VBA. Si alguien
puede indicarme cómo hacer esto se lo agradecería.

Sin embargo, estuve pensando en una macro, que me hace dicha selección. La idea
es que quiero aplicar un formato diferente a las filas pares que a las impares.
La macro es la siguiente, sin embargo, es muy lenta, pues requiero seleccionar
un rango de hata 7500 celdas. Quisiera por favor recibir sugerencias para
hacerla más rápida.

'en rgRango1 devuelvo la selección de las filas pares
'en rgRango2 obtendría la selección de las filas impares

Sub rangos()
Dim rgRango1 As Range, rgRango2 As Range
Dim stRango As String
Set rgRango1 = Range("A1")
Set rgRango2 = Range("A2")
For i = 1 To 6200
strRango = "A" & CStr(i) ":B" & CStr(i)
'seleccionar rango impares o rango pares
If i mod 2 = 0 Then
Set rgRango2 = Union(rgRango2,Range(strRango))
Else
Set rgRango1 = Union(rgRango1,Range(strRango))
End If
Next i
' aqui hago la modificación de formato
'a cada uno de los rangos
end Sub



Gracias por su ayuda
Saludos

Preguntas similares