Excel Macros Exemplos

1. Macro para somar valores em uma tabela:

Sub sum_values() Dim total As Double total = 0 For i = 2 To 10 total = total + Range("B" & i).Value Next i Range("B11").Value = total End Sub

2. Macro para copiar e colar dados de uma célula para outra:

Sub copy_paste() Range("A1").Copy Range("B1") End Sub

3. Macro para filtrar dados em uma tabela:

Sub filter_data() ActiveSheet.Range("$A$1:$D$20").AutoFilter Field:=1, Criteria1:="Valor1" End Sub

4. Macro para inserir nova linha em uma tabela:

Sub insert_row() Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub

5. Macro para ordenar dados em uma tabela:

Sub sort_data() Range("A2:D11").Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlYes End Sub

6. Macro para formatar células em uma tabela:

Sub format_cells() Range("A1:D11").NumberFormat = "#,##0.00" End Sub

7. Macro para proteger uma planilha:

Sub protect_sheet() ActiveSheet.Protect Password:="senha" End Sub

8. Macro para desproteger uma planilha:

Sub unprotect_sheet() ActiveSheet.Unprotect Password:="senha" End Sub

9. Macro para criar gráfico com dados de uma tabela:

Sub create_chart() ActiveSheet.Shapes.AddChart2(227, xlLineMarkers).Select ActiveSheet.ChartObjects("Gráfico 1").Activate ActiveChart.SetSourceData Source:=Range("A2:D11") End Sub

10. Macro para enviar e-mail com anexo:

Sub sendemailattachment() Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(olMailItem) With OutlookMail .To = "emaildestinatario" .Subject = "Assunto do e-mail" .Body = "Corpo do e-mail" .Attachments.Add ("caminhodo_anexo") .Display End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub