Selecionar células com fórmulas

Selecionar células com fórmulas

Esta macro seleciona todas as células com fórmulas

Sub Seleciona_todas_Celulas_Com_Formulas()
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
'Selection.ClearContents
'Selection.Delete
End Sub

Identificar dados repetidos

Identificar dados repetidos
Esta macro Excel VBA abre um inputbox e solicita para selecionar um range onde serão avaliados os dados e destaca os repetidos de cor diferente dos valores únicos.

Sub Verifica_Duplicados()
Dim Collec As New Collection, Cell As Range, Plage As Range
 
  On Error Resume Next
  Set Plage = Application.InputBox("Range a examinar", Type:=8)
  If IsEmpty(Plage) Then Exit Sub
 
  For Each Cell In Plage
    If Cell.Value <> “” Then
      Collec.Add Cell.Value, CStr(Cell.Value)
      If Err <> 0 Then
        Err.Clear
        Cell.Interior.ColorIndex = 43
      Else
        Cell.Interior.ColorIndex = 6
      End If
    End If
  Next Cell
End Sub

Selecionar a próxima célula vazia

Selecionar a próxima célula vazia

Ésta macro seleciona a próxima célula em branco à Direita. Para selecionar células à esquerda, acima ou abaixo basta alterar os parâmetros Offset.

Sub Selecina_Proxima_celula_Vazia_Direita()
    ActiveCell.Offset(0, 1).Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(0, 1).Select
    Loop
End Sub

Macros Prontas

Abaixo estou disponibilizando algumas macros simples do Excel VBA mas que podem ser muito útil no dia a dia.


Identificar o usuário logado

Esta macro identifica o usuário logado, o domínio da rede e o nome do computador. Armazena todos em uma variável e exibe em uma caixa de texto.
Esta macro é útil quando precisamos bloquear acesso à alguma planilha, limitar algumas ações e etc.

Sub Usuário_logado()

    Usuário = Environ("username")           'Recebe o nome do usuário que está logado
    Dominio = Environ("userdomain")         'Recebe o domínio da rede
    Computador = Environ("computername")    'Recebe o nome do computador
   
    MsgBox ("Usuário: " & Usuário)
    MsgBox ("Dominio: " & Dominio)
    MsgBox ("Computador: " & Computador)

End Sub


Ocultar Barras no Excel VBA

Esta macro oculta e reexibe os objetos window do Excel.


Sub Ocltar()
    Application.DisplayFullScreen = True 'Exibe em Modo de Leitura (tela cheia)
    ActiveWindow.DisplayHeadings = False 'Oculta o Cabeçalho (Letras das colunas)
    Application.DisplayFormulaBar = False 'Oculta a barra de Formulas
    ActiveWindow.DisplayHorizontalScrollBar = False 'Oculta a barra de rolagem Horizontal
    ActiveWindow.DisplayVerticalScrollBar = False 'Oculta a barra de rilagem Vertival
    ActiveWindow.DisplayWorkbookTabs = False 'Oculta as Tabs para mudar de Folha
    Application.DisplayStatusBar = False 'Oculta a barra do Status
    Application.DisplayAlerts = False 'Desabilita a exibição de avisos do sistema
End Sub

Sub Reexibir()
    Application.DisplayFullScreen = False 'Sai do Modo de Leitura
    ActiveWindow.DisplayHeadings = True 'Mostra o Cabeçalho
    Application.DisplayFormulaBar = True 'Mostra a barra de Formulas
    ActiveWindow.DisplayHorizontalScrollBar = True 'Mostra a barra de rolagem Horizontal
    ActiveWindow.DisplayVerticalScrollBar = True 'Mostra a barra de rolagem Vertival
    ActiveWindow.DisplayWorkbookTabs = True 'Mostra as Tabs para mudar de Folha
    Application.DisplayStatusBar = True 'Mostra a barra do Status
    Application.DisplayAlerts = True 'Habilita a exibição de avisos do sistema
End Sub

Excel - Desbloquear Projeto VBA

Nesta postagem explicarei como desbloquear aquele projeto VBA que foi protegido e precisamos editar, porém não lembramos a senha. Com esta ferramenta é possível remover a senha e deixa-lo livre para a edição. Esta ferramenta não descobre a senha, apenas remove a mesma.

Primeiramente precisamos baixar 2 programas, que são disponibilizados gratuitamente na internet, abaixo disponibilizo os links para baixar. Um compactador de arquivos e um editor binário, o 7-Zip e o Hexedit respectivamente.

Faremos uma copia do arquivo e trabalharemos com ela, que se algo der errado não perdemos o arquivo.

Instalamos os dois programas.

Com os programas instalados, clicamos com o botão direito do mouse sobre o arquivo que queremos desbloquear, o mesmo deve estar fechado, selecionamos o menu abrir com e escolhemos o 7-Zip. Caso o 7-Zip não esteja na lista de programas sugeridos, clicamos em procurar e na pasta e na pasta 7-Zip selecionamos o 7zFM.

Dentro do 7-Zip abrimos a pasta xl, e procuramos pelo arquivo VbaProject.bin. Clicamos nele e arrastamos para fora do 7-Zip, para a área de trabalho ou qualquer outra pasta.

Clicamos com o botão direito do mouse sobre ele e abrir com (open with Hxedit) e pressionamos as teclas CTRL+F para localizar. Localizamos pelo texto DPB e substituímos por DPX. Fechar e salvar.

Arrastamos o Arquivo VbaPproject.bin de volta para o -Zip, no mesmo local em que ele estava e confirmamos a substituição. Fechar o 7-Zip.

Abrimos o arquivo do Excel normalmente (com o Excel). Se acusar algum erro, basta pressionar Esc até o erro sair.

Pressionar Alt+F11 para acessar o Projeto VBA. Clicamos em Ferramentas e depois em Propriedades do VBAProject e na guia proteção, desmarcamos a opção bloquear projeto para exibição e confirmamos. Basta salvar e o projeto estará desbloqueado.



Veja a vídeo Aula


Links para baixar.

https://drive.google.com/file/d/0BySfeM8SDYpTTm84Q0NDcjdmMjA/view?usp=sharing