Vba Excel Exemplos

1. Adicionando números de um a dez em uma planilha:

Sub AdicionarNumeros() For i = 1 To 10Range("A" & i) = i Next i End Sub

2. Copiando dados de uma planilha para outra:

Sub CopiarDados() Sheets("Planilha1").Range("A1:B10").Copy Sheets("Planilha2").Range("A1").PasteSpecial xlPasteValues End Sub

3. Adicionando uma nova planilha à pasta de trabalho:

Sub AdicionarPlanilha() Dim NovaPlanilha As Worksheet Set NovaPlanilha = ThisWorkbook.Sheets.Add NovaPlanilha.Name = "Nova Planilha" End Sub

4. Exibindo uma mensagem de alerta:

Sub MensagemAlerta() MsgBox "Esta é uma mensagem de alerta." End Sub

5. Realizando uma soma simples:

Sub SomaSimples() Dim Num1 As Integer, Num2 As Integer, Soma As Integer Num1 = Range("A1") Num2 = Range("A2") Soma = Num1 + Num2 Range("A3") = Soma End Sub