Aprendendo a Criar Macros Simples e Úteis

Algumas Macros Interessantes

Com toda certeza, aprender coisas novas, exige dedicação e muito esforço. Claro que exsitem coisas fáceis de ser aprendidas e, coisas difíceis em se aprender. Muito disso está envolvido em como estamos tentando aprender. Existem muitas metodologias e acredito que não podemos dizer que existe uma melhor maneira de fazermos isto. Uma coisa é certa: quer seja algo dífícel de se aprender, quer não, se desejamos aprender, com certeza isso pode acontecer.

Para aprender a criar macros no Excel, uma das coisas que mais me ajudou, e ainda ajuda muito, são os estudos de pequenos códigos (Macros). Quando analisamos pequenos códigos ou parte de códigos maiores, podemos entendê-los com mais facilidade.

Vamos análisar alguns exemplos a seguir para entender um pouco melhor sobre isso. Algo importante que vamos notar, nos exemplos, é que em muitos casos, altera-se pouca coisa de um código para outro.

Ocultar todas as planilhas, com excessão da primeira

    Sub Ocultar_Planilhas()
        For i = 2 To Sheets.Count
            Sheets(i).Visible = False
        Next
    End Sub

Reexibir todas as planilhas que estiverem ocultas

    Sub Reexibir_Planilhas()

        For i = 2 To Sheets.Count

             Sheets(i).Visible = True

         Next

    End Sub

  

Encontrar planilha(s) com determinado caracter no nome  

    Sub Encontrar_Planilha()
        For i = 1 To Sheets.Count
            If Right(Sheets(i).Name, 1) = 3 Then
                MsgBox "Planilha encontrada: " & Sheets(i).Name
            End If        Next
    End Sub

Renomear planilha(s) com determinado nome, com excessão da primeira 

    Sub Renomear_Planilhas()

        For i = 2 To Sheets.Count

            Sheets(i).Name = "nome" & i

        Next

    End Sub

Criar planilha(s) com o nome dos 12 meses do ano 

     Sub Criar_Planilhas_para_12_meses()

        On Error GoTo fim

        For i = 1 To 12

            Sheets.Add after:=Worksheets(Worksheets.Count)

            ActiveSheet.Name = MonthName(i)

        Next

    fim:

    End Sub

  

Criar planilha(s) com o nome dos 7 dias da semana

    Sub Criar_Planilhas_para_Semanas()

        On Error GoTo fim

        For i = 1 To 7

            Sheets.Add after:=Worksheets(Worksheets.Count)

            ActiveSheet.Name = WeekdayName(i)

        Next

    fim:

    End Sub

Download: Algumas Macros Simples e Úteis

• Assine meu canal no YouTube clicando aqui
• Participe do Site ExcelMax Soluções clicando aqui