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

Macro do Aplicativo Microsoft Excel VBA, retorna o resutado de uma busca de determinado nome e ou determinado número, selecionado os ítens escolhidos na folha de planilha.

Sub Seleciona_valores_ou_texto()
On Error Resume Next
Application.ScreenUpdating = False
Dim c As Range
Dim vMeuValor As String
Dim r As Long
Dim vMinhaArea As Range
Dim vCelulas As Range

Set vMinhaArea = ActiveSheet.UsedRange
vMeuValor = InputBox("Digite um valor ou palavra que deseja selecionar, Ex: 1450 ou Saberexcel", "Saberexcel- site das macros", "Saberexcel")

For Each c In vMinhaArea
If c.Text = vMeuValor Then
If r = 0 Then
Set vCelulas = c
r = 1
Else
Set vCelulas = Union(vCelulas, c)
End If
End If
Next c
vCelulas.Select
MsgBox "Selecionadas todos ítens: [ " & vMeuValor & " ]"
Application.ScreenUpdating = True
End Sub



Aprenda Microsoft Excel VBA(Saberexcel)

Macro do Aplicativo Microsoft Excel VBA, retorna o resutado de uma busca de determinado nome e ou determinado número, selecionado os ítens escolhidos na folha de planilha.

Sub Seleciona_valores_ou_texto()
On Error Resume Next
Application.ScreenUpdating = False
Dim c As Range
Dim vMeuValor As String
Dim r As Long
Dim vMinhaArea As Range
Dim vCelulas As Range

Set vMinhaArea = ActiveSheet.UsedRange
vMeuValor = InputBox("Digite um valor ou palavra que deseja selecionar, Ex: 1450 ou Saberexcel", "Saberexcel- site das macros", "Saberexcel")

For Each c In vMinhaArea
If c.Text = vMeuValor Then
If r = 0 Then
Set vCelulas = c
r = 1
Else
Set vCelulas = Union(vCelulas, c)
End If
End If
Next c
vCelulas.Select
MsgBox "Selecionadas todos ítens: [ " & vMeuValor & " ]"
Application.ScreenUpdating = True
End Sub



Aprenda Microsoft Excel VBA(Saberexcel)

SaberExcel - o Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA, insere fórmulas para buscar dados em uma determinada base de dados em outra planilha, observem que a macro busca dados baseados ao texto(letra) digitado na Inputbox (Entrada de Dados)

Sub Retornar_formula()

Dim vLetraColuna As String

vLetraColuna = InputBox("Entre com a letra da coluna para buscar os dados.", "Digite: a,b,c,...")
Sheets("Formulário").Select

'retornará a fórmula e preencherá as células correspondentes para montar'
'os dados na coluna(B)

'Item #1
Range("F7").Select
On Error Resume Next
If IsEmpty(Range("Dados!" & vLetraColuna & "1").Value) Then
ActiveCell.Value = ""
Else
ActiveCell.Formula = "=Dados!" & vLetraColuna & "1"
End If

'Item #2
Range("F9").Select
If IsEmpty(Range("Dados!" & vLetraColuna & "2").Value) Then
ActiveCell.Value = ""
Else
ActiveCell.Formula = "=Dados!" & vLetraColuna & "2"
End If

'Item #3
Range("J10").Select
If IsEmpty(Range("Dados!" & vLetraColuna & "3").Value) Then
ActiveCell.Value = ""
Else
ActiveCell.Formula = "=Dados!" & vLetraColuna & "3"
End If

'Item #4
Range("H11").Select
If IsEmpty(Range("Dados!" & vLetraColuna & "4").Value) Then
ActiveCell.Value = ""
Else
ActiveCell.Formula = "=Dados!" & vLetraColuna & "4"
End If

'Item #5
Range("D11").Select
If IsEmpty(Range("Dados!" & vLetraColuna & "5").Value) Then
ActiveCell.Value = ""
Else
ActiveCell.Formula = "=Dados!" & vLetraColuna & "5"
End If

'Retornando a célula f7 ítem #1
Range("F7").Select

MsgBox ("Os dados formam baixados com sucesso da coluna : < " & vLetraColuna & " >.")

End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), faz um loop por toda região de células desejada, localiza a última linha usada, retorna uma mensagem do conteúdo de duas células adjacentes, desloca uma linha abaixo e sai do procedimento

Sub Localiza_dados()
Dim c As Range
Dim x As Range
On Error Resume Next
oct 'ocultar o shapes

Set x = Sheets("Ultima_linha_dados").Range("B:B").Find("PRODUTOS SABEREXCEL", , xlValues, xlWhole, , , False)

For Each c In Range(x, x.End(xlDown))
c.Select
Next c

MsgBox ActiveCell.Value & " -- Valor R$ " & ActiveCell.Offset(0, 4).Value
ActiveCell.Offset(1, 0).Select

End Sub



Aprenda tudo sobre o aplicativo Microsoft Excel VBA, com os produtos didáticos Saberexcel