| Descricao: |
 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
|