Home Excel - Dicas Microsoft Excel VBA Excel VBA - Cadastro Excel planiha vba cadastro busca dados bd wkf procv

Excel planiha vba cadastro busca dados bd wkf procv

E-mail Imprimir PDF



Esses procedimentos usando a função de planilha Procv(VLookup), buscam dados em um banco de dados e montando os dados do cadastro do cliente.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$3" And Target.Count = 1 Then
   Cells(4, 4) = WorksheetFunction.VLookup(Range("d3"), Range("M3:S7"), 2, False)
   Cells(5, 4) = WorksheetFunction.VLookup(Range("d3"), Range("M3:S7"), 3, False)
   Cells(6, 4) = WorksheetFunction.VLookup(Range("d3"), Range("M3:S7"), 4, False)
   Cells(7, 4) = WorksheetFunction.VLookup(Range("d3"), Range("M3:S7"), 5, False)
   Cells(8, 4) = WorksheetFunction.VLookup(Range("d3"), Range("M3:S7"), 6, False)
   Cells(9, 4) = WorksheetFunction.VLookup(Range("d3"), Range("M3:S7"), 7, False)
   MsgBox "Cliente..: [ " & Cells(3, 4) & "  ] inserido com sucesso", vbInformation, "Saberexcel - o site das macros"
   [D65000].End(xlUp).Offset(1, 0) = Cells(3, 4)
   Cells(1, 2).Select
End If

End Sub

'Esse procedimento abrirá a lista suspensa(Validação de dados) automaticamente
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$3" And Target.Count = 1 Then
   SendKeys "%{down}"
End If
End Sub

Private Sub Worksheet_Activate()
[d3].Select
End Sub

Exemplo o evento Movemouse  --- conectar com site
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Resposta As String
Resposta = MsgBox("deseja conectar com nosso site ?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = vbYes Then
   ThisWorkbook.FollowHyperlink "http://www.microsoftexcel.com.br/", , True
End If
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




 Baixe o exemplo de planilha contendo os procedimentos acima.
Excel planiha vba cadastro busca bd wkf procv (87.02 KB)

Última atualização em Seg, 07 de Novembro de 2011 07:29  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje5098
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana29758
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês43487
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10466316
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA