Ejemplos prácticos de Macros Excel

Wizard de comparación y actualización entre 2 hojas Excel

Este ejemplo coloca el valor prueba en todas las hojas Excel desde los rangos de la celda A1 hasta la B6.

    For Each c In Worksheets("Hoja1").Range("A1:B6").Cells

        If c.Value = "" Then

            c.Value = "Prueba"

            

        End If

    Next

Borrar el contenido de todas las celdas de la hoja 1:

Worksheets("Hoja1").Cells.ClearContents

A la celda de un puesto a la derecha y 0 puestos arriba, convertirlo en el valor entero de la celda activa.

   ActiveCell.Offset(0, 1).Value = Int(ActiveCell.Value)

    For Each c In Worksheets("Hoja1").Range("A1:B6").Cells

            c.Offset(0,1).Value = Int(c.value)

         

        End If

    Next

Insertar valores en rangos específicos de Excel. El siguiente ejemplo inserta la palabra probando rangos en las celdas A1, hata la B10. Existen 2 formas de hacerlo:

Range("A1", "B10") = "Probando Rangos"
o
Range("A1:B10") = "Probando Rangos"

Trabajar en macros con rangos elegidos dinámicamente. El siguiente ejemplo inserta la palabra probando rangos en las celdas seleccionadas.


Dim rango As String
rango = Selection.Address(ReferenceStyle:=xlA1, _
                           RowAbsolute:=False, ColumnAbsolute:=False)


Range(rango) = "Probando Rangos"
End Sub

Obtener el valor mínimo de un rango de valores en Excel con rango seleccionado dinámico.

Dim rango As String

rango = Selection.Address(ReferenceStyle:=xlA1, _

                           RowAbsolute:=False, ColumnAbsolute:=False)

Range(rango).End(xlDown).Offset(1, 0).Value = "=MIN(" + rango + ")"

Referencias

http://www.programatium.com/manuales/excel/5.htm

http://spreadsheetpage.com/index.php/tip/C29

http://www.functionx.com/vbaexcel/Lesson05.htm

http://msdn.microsoft.com/en-us/library/bb211413(v=office.12).aspx