Macro para copiar segun dos criterios

Occasional Contributor

Saludos, a esta macro necesito ejecutarla pero aplicando lo siguiente:

- Si la ultima celda de la columna P del libro1, es "Mujer"

- Si la ultima celda de la columna P del libro1 es "Mujer", que agregue en la hoja 2 en la ultima celda de la columna Z el numero 7

Gracias por la ayuda

 

Sub Copiar()
With Sheets("Hoja1")
.Range("A2:E" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy _
Destination:=Sheets("Hoja2").Range("A" & Sheets("Hoja2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
Range("A1").Select
End With
End Sub

 

 

0 Replies