Hacer una macro más reducida y rápida
Tengo en un planning la siguiente macro:
Sub LIMPIAR()
Application.ScreenUpdating = False
Range("C6:AR6,C8:AR8,C10:AR10,C12:AR12,C14:AR14,C16:AR16,C18:AR18,C20:AR20,C22:AR22,C24:AR24,C26:AR26,C28:AR28").ClearContents
End Sub
El rango a limpiar esta en las filas pares de un planning, la idea es reducir la macro de forma que limpie las filas pares dentro del rango C6:AR28. He intentado hacerla pero no se como indicarle que busque solo en las filas pares.
1 Respuesta
Respuesta de Elsa Matilde
2
Aquí está:
Sub filasPares()
'x Elsamatilde
'sabemos que el rango llega desde fila 6 a la 28
For i = 6 To 28
If i Mod 2 = 0 Then Range("C" & i & ":AR" & i).ClearContents
Next
End SubLa expresión i Mod 2 = 0 significa que si al dividir un nro (en este caso de fila) por 2 el resto es cero es que se trata de un nro.par
