Macro para borrar contenido de celda si no es igual a 3 condiciones
Buen día;
Solicito de su valioso apoyo ya que me es necesario hacer una macro en excel que me borre el contenido de las celdas que no cumplen con el contenido "BAJA", "REINGRESO" Y "MODIF"
De tal suerte que teniendo algo asi:
JUAN LOPEZ BAJA 15/03/2012
LUIS PEREZ ACTIVO 12/03/2012
ALMA TREJO MODIF 13/03/2012
Resulte algo asi:
JUAN LOPEZ BAJA 15/03/2012
LUIS PEREZ 12/03/2012
ALMA TREJO MODIF 13/03/2012
Espero me puedan apoyar.
Saludos.
Solicito de su valioso apoyo ya que me es necesario hacer una macro en excel que me borre el contenido de las celdas que no cumplen con el contenido "BAJA", "REINGRESO" Y "MODIF"
De tal suerte que teniendo algo asi:
JUAN LOPEZ BAJA 15/03/2012
LUIS PEREZ ACTIVO 12/03/2012
ALMA TREJO MODIF 13/03/2012
Resulte algo asi:
JUAN LOPEZ BAJA 15/03/2012
LUIS PEREZ 12/03/2012
ALMA TREJO MODIF 13/03/2012
Espero me puedan apoyar.
Saludos.
1 respuesta
Respuesta de Dante Amor
1
Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: activo
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub activo()
'Por.DAM
For i = 1 To Range("C" & Rows.Count).End(xlUp).Row
If Cells(i, "C") <> "BAJA" And Cells(i, "C") <> "REINGRESO" _
And Cells(i, "C") <> "MODIF" Then Cells(i, "C") = ""
Next
End Sub Saludos. Dante Amor
No olvides finalizar la pregunta.
