Trabajando con condicionales
Dam ¿Puedo trabajar la macro con condicionales y no con autofiltro? Si es posible me podrías darme un ejemplo.
Saludos
Jhonpe
1 Respuesta
Respuesta de Dante Amor
1
Esta sería la macro
Sheets("Hoja2"). Cells. Clear
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
j = 2
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "C") = "Femenino" Then
Rows(i).EntireRow.Copy Sheets("Hoja2").Cells(j, "A")
j = j + 1
End If
Next
Range("A1").Select
ActiveSheet.AutoFilterMode = False
End Subsaludos.Dam
Si es lo que necesitas.
Hola Dam Gracias me funcionó y me sirve, pero como hago para que sólo me pase los nombres y apellidos y no todas las columnas, también para que me haga un consecutivo antes de los nombres para saber cuantas mujeres hay? La columna de nombres y apellidos es la Columna B y en la columna A quiero el consecutivo que comience en (1) y no el que trae de la Hoja1, espero no enredarte
Gracias
Jhonpe
Prueba con esta
Sub fem()
Sheets("Hoja2").Cells.Clear
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
j = 2
cons = 1
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "C") = "Femenino" Then
Sheets("Hoja2").Cells(j, "A") = cons
Sheets("Hoja2").Cells(j, "B") = Cells(i, "B")
Sheets("Hoja2").Cells(j, "C") = Cells(i, "D")
cons = cons + 1
j = j + 1
End If
Next
Range("A1").Select
ActiveSheet.AutoFilterMode = False
End Sub saludos.Dam
Si es lo que necesitas.
