quinta-feira, 19 de abril de 2012

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
 

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

Sobre o autor: Ivair Claudio Ferrari é Certificado: Microsoft Office Excel 2007 Specialist; CEO ExcelMax® Soluções, Consultoria e Desenvolvimento de Soluções e Softwares baseados em Excel/VBA e Treinamentos Excel e VBA In-Company. YouTube | Facebook | LinkedIn | Twitter | Google Plus

3 comentários :

  1. Muito boa esta postagem. Espero ver outras assim aqui.Dão uma boa ajuda para quem está começando a entender sobre macros no Excel.

    |\o/|\o/|\o/|\o/|\o/|\o/|\o/|\o/|\o/|\o/|

    ResponderExcluir
  2. Aprendi a gostar de macros aqui no Excelmax. Parabéns professor. Muito boas as suas postagens...

    ResponderExcluir
  3. Eu estou precisando fazer um macro para automatizar uma planilha. Não entendo quase nada de VBA, mas sei que não é muito complicado o meu problema. O problema é que não consigo fazer um tabela dinâmica, eu faço através do botão de gravar macro, mas acho que o excel se perde na hora de selecionar os dados. Enfim, preciso de uma macro que faça uma tabela dinâmica.
    Se puder ajudar ficarei muito grato.

    ResponderExcluir

Seja um participante deste Site !!!
Deixe aqui seu comentário e/ou sugestão.
Obrigado !

"... O ExcelMax Soluções apresenta dicas sobre criação de softwares, macros, funções, gráficos e muito mais ! (Excel e VBA + Access + FireBird + SAP) ... Confira e compartilhe com seus amigos ..."

atualizar, excel, excelmax
excelmax, excel