Macro para copiar segun dos criterios

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

 

 

1 Reply

@a7024782 

 

Sub Add_7_in_column_Z_in_lastcell_in_sheet2()

Dim i As Integer
Dim j As Integer

i = Sheets("sheet1").Cells(Rows.Count, 16).End(xlUp).Row

If Sheets("sheet1").Cells(i, 16).Value = "mujer" Then

j = Sheets("sheet2").Cells(Rows.Count, 26).End(xlUp).Row
Sheets("sheet2").Cells(j + 1, 26).Value = 7

Else
End If

Sheets("sheet1").Range("A1").Select

End Sub

 

¿Es esto lo que estás buscando? El código introduce 7 en la última celda de la columna Z de la hoja2 si hay la palabra mujer en la última celda de la columna P de la hoja1.

Puede hacer clic en la celda C2 del archivo adjunto para iniciar la macro.

Este mensaje fue traducido por un traductor de Internet.