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.

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

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.

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

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

Comprimelo en zip o rar y ya te dejará