Modificar macro para que copie solo rangos específicos

Buenas noches.

Necesito de vuestra valiosa ayuda con una macro que encontré en internet y necesito adaptarla a mis necesidades.

La macro copia y pega en hoja2 según condicion en Range "C" haciendo que si se vuelve a ejecutar copie y pegue en la fila siguiente vacia.

Ahora mismo copia y pega todas las columnas seguidas a la hoja2

Mi pregunta es, como debo de modificarla para que yo pueda extraer diferentes columnas para pegarlas en la Hoja2.

Agradeciendo de antemano vuestra respuesta.

Un saludo

Sub n()
Dim x, t As Long
x = Hoja1.Range("A2").End(xlDown).Row
For i = 2 to x
t = Hoja2.Range("A65536").End(xlUp).Row + 1
Application.ScreenUpdating = False
Hoja1.Select
If Range ("C" & i) = 994 Then
Range ("A" & i & ":N" & i).Select
Selection.Copy
Hoja2.Select
Range("A" & t). PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End if
Next
End sub 

1 respuesta

Respuesta
1

Lo que veo es que te copia de la columna A a la N, y lo que necesitas es que te copie diferentes columnas, por ejemplo: A, B, F, G, R, S. ¿Algo así?

O quieres copiar otro rango, ¿por ejemplo de la A a la F?

Hola Dam,

Exacto lo que necesito es copiar diferentes columnas, cambiar el rango ya lo hice modificando la columna :N

Saludos

Cambia esta línea

Range ("A" & i & ":N" & i).Select

Por una línea así, cambia las letras (Mayúsculas), del ejemplo, por las letras que necesitas

Range("B" & i & ",D" & i & ",E" & i & ",G" & i & ",I" & i & ",K" & i & ",L" & i & ",M" & i & ",O" & i & ",Q" & i & ",S" & i).Select

Saludos. Dam
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas