Copiar rangos

[yoel30]

Saludos,

Estoy iniciando con macros y tengo una macro con la siguiente linea:

For Each a In Range(Cells(1, ActiveCell.Column), Cells(ultimoRenglon, ActiveCell.Column))

a.Activate

'si el valor en la celda es p entonces copia la fila

If a.Value = "p" Then

a.EntireRow.Copy Destination:=Sheets("Hoja2").Range("A6001").End(xlUp).Offset(1, 0)

end if

Todo trabaja bien pero el codigo me copia toda una fila y necesito copiar un rango especifico, osea que copie las filas que cumplan con la condicion pero que esten entre C2 y H2.

Alguna idea se los agradeceria.

[Smako]

Yo creo que con un for lo podrías hacer, sube tu archivo para verlo mejor

[yoel30]

Yo creo que con un for lo podrías hacer, sube tu archivo para verlo mejor

Aqui esta el codigo que tengo:

Sub copiarFilas()

Sheets("Hoja1").Activate

'encontrar en la columna con nombre "pagados", nombres de columnas estan enla fila A1

With Range("1:1")

Set d = .Find("pagados", LookIn:=xlValues, LookAt:=xlWhole)

If Not d Is Nothing Then

d.Activate

Else

End

End If

End With

'encontrar el ultimo renglon

ultimoRenglon = Cells(1040000, ActiveCell.Column).End(xlUp).Row

'para cada celda de la columna encontrada que contenga datos

For Each a In Range(Cells(1, ActiveCell.Column), Cells(ultimoRenglon, ActiveCell.Column))

a.Activate

'si el valor en la celda en la columna "pagados" es "p" entonces copia la fila

If a.Value = "p" Then

'copiar la fila en la hoja2

a.EntireRow.Copy Destination:=Sheets("Hoja2").Range("A6001").End(xlUp).Offset(1, 0)

End If

Next

End Sub

Espero alguna idea.

[Smako]

Si, creo que está muy complejo tu código para lo que quieres hacer, sube tu archivo y explica detalladamente con columnas y filas que es lo que quieres que haga por favor y gusto te apoyo

[yoel30]

No me deja adjuntar el archivo, me dice que no es valido y no me dice por que, te lo puedo enviar por correo ?

[Smako]

Comprimelo en zip o rar y ya te dejará