Copiar fila o celda impar
Hola,
Necesito copiar la fila o celda impar de una columna para luego pegarla en celda de la sig columna, estoy tratando con esta macro pero no me deja ni copiar ni cortar
Sub seleccionafilaimpar()
Dim i&, rng As Range
Set rng = Rows(1)
For i = 2 To 2002 Step 3
Set rng = Union(rng, Rows(i))
Next
rng.Select
Set rng = Nothing
End Sub
Gracias por tu ayuda
Respuesta de Dante Amor
1
Igual envíame los ejemplos, cómo tienes tus datos y cómo quieres que queden.
Mi correo [email protected]
No olvides poner En el asunto del correo escribe tu nombre de usuario y el título de esta pregunta.
ok enviado, gracias
Esta es la macro
Sub separa()
'Por.DAM
For i = 3 To Range("A" & Rows.Count).End(xlUp).Row Step 3
Cells(i, "A").Cut Cells(i - 1, "B")
Next
End SubSaludos.DAM
No olvides finalizar la pregunta.
