Siguiendo con las macros útiles aquí les dejo algunas macros para principiantes en código VBA:
Macro Nº1: Posición de una Celda
A veces necesitamos conocer la posición actual de una celda. El código es el siguiente:
*****************************************************
Sub PosicionCelda()
Fila = ActiveCell.Row
Columna = ActiveCell.Column
Msgbox Fila & "," & Columna
End Sub
*****************************************************
Macro Nº2: Eliminar Filas Vacías
Esta macro permite eliminar filas en un rango seleccionado. Esta es muy útil para evitar realizar el trabajo “a mano”. Basta con seleccionar el rango (pintar dentro de un rango de datos lo que queremos eliminar) y listo!
*****************************************************
Sub BorrarFilas()
Rng = Selection.Rows.Count
ActiveCell.Offset(0, 0).Select
For i = 1 To Rng
If ActiveCell.Value = "" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub
*****************************************************
Macro Nº3: Insertar Filas a elección
En esta macro aparecerá un mini formulario que nos preguntará cuantas filas queremos insertar de forma consecutiva.
*****************************************************
Sub InsertaFilas()
Dim Rng
Rng = InputBox("Inserte número de filas que necesita.")
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Rng - 1, 0)).Select
Selection.EntireRow.Insert
End Sub
*****************************************************
Espero les sirvan.
Para más información sobre servicios de optimización mediante el uso de macros en Excel (VBA), por favor contáctenos