Exemplos de Macros Excel 2007

1. Macro para somar colunas

Sub somar_colunas()

Range("A1").Select

Selection.End(xlToRight).Select

Dim lastCol As String

lastCol = Split(Cells(1, Columns.Count).End(xlToLeft).Address, "$")(1)

Range("A2:" & lastCol & "2").Select

Selection.AutoFill Destination:=Range("A2:" & lastCol & "100"), Type:=xlFillDefault

For Each col In Selection.Columns

col.Cells(100, 1).Value = WorksheetFunction.Sum(col)

Next

End Sub

2. Macro para copiar e colar dados

Sub copiarcolardados()

Range("A1:C5").Copy

Range("E1").PasteSpecial Paste:=xlPasteValues

End Sub

3. Macro para ordenar dados

Sub ordenar_dados()

Range("A1:C10").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlYes

End Sub

4. Macro para criar gráficos

Sub criar_graficos()

Range("A1:C10").Select

ActiveSheet.Shapes.AddChart2(251, xlColumnClustered).Select

ActiveSheet.ChartObjects("Gráfico 1").Activate

ActiveChart.SetSourceData Source:=Range("Planilha1!$A$1:$C$10")

End Sub

5. Macro para filtrar dados

Sub filtrar_dados()

ActiveSheet.Range("$A$1:$C$10").AutoFilter Field:=2, Criteria1:=">100"

End Sub