planillero.cl - Bienvenidos al Blog de planillero.cl

Macros útiles para principiantes

by Mikeplan 23. March 2009 22:05

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

Be the first to rate this post

  • Currently 0/5 Stars.
  • 1
  • 2
  • 3
  • 4
  • 5

Tags: , , , ,

Macros Útiles

Comments

Powered by BlogEngine.NET 1.4.5.0