☞ Macro que borra Ceros de un rango

 
Si utilizas frecuentemente Excel mcuhas veces te encuentres ejecutando una misma serie de acciones una y otra vez. Esas acciones que haces repetidas veces se podrían automatizar con una macro.

Una macro es un conjunto de comandos que se almacena en un lugar especial de Excel de manera que están siempre disponibles cuando los necesites ejecutar. Por ejemplo si en un rango de datos necesitas eliminar los ceros, se podria crear una macro que lo haga por ti y así eliminar esas tareas que haces una y otra vez.
PASOS: 
 


1. Ejecutar una macro que realice automáticamente este proceso

Antes de hacer la macro, debe activar la pestaña "Programador" o tambien llamada "Desarrollador" en Excel. Si no la tiene activa, aquí le explicamos paso a paso

Cuando active esta pestaña, seleccione la opción Visual Basic como lo indica la siguiente imagen:


Desde el editor de Visual Basic, seleccione del panel izquierdo, la hoja actual y haga doble clic sobre ella e inserte el siguiente código:

Sub BORRARCEROS()
  For Each Celda in Range ("C11:G24")
      If Celda.Value=0 then Celda.clearContents
  Next

End Sub

En este ejemplo tenemos fijo el rango que seria C11 a G24 y esto muchas veces no seria util en nuestros documentos de excel, por lo que en la siguiente macro veremos como tener el rango variable, de manera que yo lo pueda seleccionar.

Antes de hacer la macro, debe activar la pestaña "Programador" o tambien llamada "Desarrollador" en Excel. Si no la tiene activa, aquí le explicamos paso a paso

Cuando active esta pestaña, seleccione la opción Visual Basic como lo indica la siguiente imagen:


Desde el editor de Visual Basic, seleccione del panel izquierdo, la hoja actual y haga doble clic sobre ella e inserte el siguiente código:

-Aqui necesitaremos primero insertar un formulario con 3 botones y un refedit. Este formulario tendrá por nombre UserForm1


-El primer boton tendrá por nombre  CommandButton1 y en el caption Borrar ceros.
-El segundo boton tendrá por nombre CommandButton2 y en el caption eliminas las celdas.
-El tercer boton tendrá por nombre CommandButton3 y en el caption salir.

Al dar doble clic en el boton 1. Ingresaremos este codigo.

Private Sub CommandButton1_Click()
    For Each celda In Range(edNumero.Text)
      If celda.Value = 0 Then celda.ClearContents
    Next
End Sub


Al dar doble clic en el boton 2. Ingresaremos este codigo.

Private Sub CommandButton2_Click()
Range(edNumero.Text).Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
    Selection.End(xlUp).Select
End Sub


Al dar doble clic en el boton 3. Ingresaremos este codigo.

Private Sub CommandButton3_Click()
edNumero.Text = Empty
UserForm1.Hide
End Sub

-Ahora Debemos insertar un modulo así:

Aquí colocaremos este codigo.

Sub BorrarCeros()

  UserForm1.Show

End Sub

 Ya estamos casi Listos!!!

Ahora vamos a Excel. E insertamos un objeto como este, escoje el que mas te guste:


Clic encima de la imagen elegida en el punto anterior. Clic derecho, asignar Macro y escojemos la que dice BorrarCeros, aceptar.

Enhorabuena, tenemos nuestra macro lista!!!

 

Recuerda guardar el archivo como  libro de excel habilitado para macros. o Guardarlo en su libro personal de macros.

Descargar aqui el ejercicio completo


Si te gustó, síguenos en Twitter  para recibir nuestras actualizaciones y trucos