Anónimo
Consulta, macro
Hola amigo.
Me gustaría que ayudaras por favor con una Macro que me copie de la "Hoja1" a la Hoja2", el "Nombre" y "Clave" de las filas que cumplan 2 condiciones: "Sexo = M" y
"Aceptado = si"
Nombre Clave Sexo Aceptado
Oscar 1 M si
Nancy 2 F no
Sayuri 3 F si
Coral 4 F no
Donatelo 5 M no
Gabriel 6 M si
Con este ejercicio lograré avanzar mucho con mi aprendizaje de excel. Es la 1era vez que hago una pregunta y uso esta página, te elegí a ti que tratas de probar tus conocimientos y a su vez ayudar.
Muchas gracias por la atención.
Me gustaría que ayudaras por favor con una Macro que me copie de la "Hoja1" a la Hoja2", el "Nombre" y "Clave" de las filas que cumplan 2 condiciones: "Sexo = M" y
"Aceptado = si"
Nombre Clave Sexo Aceptado
Oscar 1 M si
Nancy 2 F no
Sayuri 3 F si
Coral 4 F no
Donatelo 5 M no
Gabriel 6 M si
Con este ejercicio lograré avanzar mucho con mi aprendizaje de excel. Es la 1era vez que hago una pregunta y uso esta página, te elegí a ti que tratas de probar tus conocimientos y a su vez ayudar.
Muchas gracias por la atención.
1 Respuesta
Respuesta de Enrique Bernal
1
Esta macro que te paso dependerá del número de lineas que necesitas revisar, para el ejemplo es 51000 pero en este caso es una macro sencilla por eso no se demora, en otros casos utilizar un rano muy grande te puede traer problemas en tiempos de respuesta, que es algo que siempre debes medir
Sub COPIA()
Do
Do While Contador < 51000
Contador = Contador + 1
a = a + 1
If Range("C" & a).Value = "M" And Range("D" & a).Value = "SI" Then
Rows(a).Select
Selection.Copy
Sheets("Hoja2").Select
k = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & k).Select
ActiveSheet.Paste
Sheets("Hoja1").Select
Exit Do
End If
Loop
Loop Until Contador = 51000
End Sub
No olvides finalizar la pregunta, la macro esta hecha para que cumpla el mismo orden de tu ejemplo
Sub COPIA()
Do
Do While Contador < 51000
Contador = Contador + 1
a = a + 1
If Range("C" & a).Value = "M" And Range("D" & a).Value = "SI" Then
Rows(a).Select
Selection.Copy
Sheets("Hoja2").Select
k = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & k).Select
ActiveSheet.Paste
Sheets("Hoja1").Select
Exit Do
End If
Loop
Loop Until Contador = 51000
End Sub
No olvides finalizar la pregunta, la macro esta hecha para que cumpla el mismo orden de tu ejemplo