Jan 05 2022 09:08 AM
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
May 26 2022 05:55 AM
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.