Saberexcel - Site das Macros

Essa macro e procedimentos do Aplicativo Microsoft Excel VBA, tem por finalidade abrir a Caixa de Diálogo do próprio Aplicativo Excel com auxlílio de macros e eventos vba, neste caso temos o evento change, ao digitar na coluna( C)  e também o Evento Auto_Open, que abrirá a caixa de diálogo Localizar na abertura do Livro.

Respondendo a uma Dúvida da nossa amiga e aluna Flávia (S.Paulo)
Caro Senhor Marcondes,
P - há como inserir em uma macro a abertura do sistema de buscas do próprio excel isto é, a caixa de diálogo Localizar, quando eu clicar na coluna(C) .  Agradeço, Flavia Corrente

R - Há como sim Flávia e é muito simples, veja os procedimentos.
observem que usando o Evento_Change,( ao escrever), na coluna C, abrirá a caixa de diálogo Localizar do Aplicativo, também usei o procedimento no Auto_Open, quando abrir a planilha, irá abrir a Caixa de Diálogo Localizar.

clique para ampliar
' macro que abre a caixa de diálogo localizar do aplicativo excel
Sub abrir_caixa_dialogo_localizar()
    Application.CommandBars.FindControl(, 1849).Execute
End Sub

  clique para ampliar
'neste caso uso usamos o evento Worksheet_Change(ao digitar) na coluna( c ) (3)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
    Application.CommandBars.FindControl(, 1849).Execute
End If
End Sub

  clique para ampliar
'usando o evento auto-open na folha de código do objeto workbook
Private Sub Workbook_Open()
    Application.CommandBars.FindControl(, 1849).Execute                            
End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA (Visual Basic Application), sozinho, com baixo custo,
praticando com os produtos didáticos SaberExcel




   Baixe o exemplo de planilha contendo as macros e procedimentos acima
vba busca palavra abrindo caixa de dialogo excel (19.91 kB 2011-01-24 08:58:53)