Tengo un macro que busca en una columna un criterio concreto ("M") y elimina las filas que no lo tienen, copiándome los resultados en otra hoja, hasta aquí la macro funciona bien, ahora necesitaría que dicha columna pudiera elegirse a través de un InputBox. Lo ideal, ya que la primera fila de la hoja es una fila de fechas, sería que se preguntara por un día concreto, pero no he sido capaz de conseguirlo.
También me interesaría que se pudiera elegir el criterio a buscar, mediante el mismo método.
Agradecería algún consejo.
Mil gracias de antemano por la ayuda.
Sub copiar_filas()
j = 2
For i = 2 To 158 Step 2
Sheets(“MARZO”).Activate
If Cells(i, “D”) = "M" Then
Range(Cells(i, “C”), Cells(i, “C”)).Copy
Sheets("Hoja3").Activate
Cells(j, "A").Select
ActiveSheet.Paste
j = j + 1
End If
Next
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Saludos a todos.
Tengo un macro que busca en una columna un criterio concreto ("M") y elimina las filas que no lo tienen, copiándome los resultados en otra hoja, hasta aquí la macro funciona bien, ahora necesitaría que dicha columna pudiera elegirse a través de un InputBox. Lo ideal, ya que la primera fila de la hoja es una fila de fechas, sería que se preguntara por un día concreto, pero no he sido capaz de conseguirlo.
También me interesaría que se pudiera elegir el criterio a buscar, mediante el mismo método.
Agradecería algún consejo.
Mil gracias de antemano por la ayuda.
Sub copiar_filas() j = 2 For i = 2 To 158 Step 2 Sheets(“MARZO”).Activate If Cells(i, “D”) = "M" Then Range(Cells(i, “C”), Cells(i, “C”)).Copy Sheets("Hoja3").Activate Cells(j, "A").Select ActiveSheet.Paste j = j + 1 End If Next End Sub