Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções
PROMOÇÃO ESPECIAL – CURSO EXCEL VBA EXPERT – ESCOLA SABEREXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos
Excel VBA Shapes 59 Planilha imagens múltiplas escolhas
EXCEL VBA BUSCAR FOTO IMAGEM EM UM BANCO DE DADOS MULTIPLA ESCOLHA
Com este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos aprender como fazer uma busca de imagem com base em uma lista suspensas, que buscará automaticamente a imagem ao texto relacionado em outra folha de planilha e montará em uma coluna ao lado da coluna da célula ativa (Celula da Busca). Bons Estudos.
Fique com Deus,
Expedito Marcondes.
‘//==============’
Buscar foto com base na digitação do Nome na Coluna(A).
Observe que buscará a foto na Planilha(“Foto”)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Target = “” Then
sbx_deletar_shapes (Target.Offset(0, 2).Address)
Else
sbx_deletar_shapes (Target.Offset(0, 2).Address)
PosNome = Application.Match(Target.Value, [Nomes], 0)
If Not IsError(PosNome) Then
sbx_copiar_shapes Cells(PosNome + 1, 2).Address
Target.Offset(0, 1).Select
ActiveSheet.Paste
Selection.Left = Target.Offset(0, 2).Left + 4
Selection.Top = Target.Offset(0, 2).Top + 4
Selection.Name = Target.Row
Target.Select
End If
End If
End If
ActiveWorkbook.Save
[e1].Select
End Sub
Sub sbx_deletar_shapes(c)
On Error Resume Next
For Each s In ActiveSheet.Shapes
If s.TopLeftCell.Address = c Then s.Delete
Next s
End Sub
Sub sbx_copiar_shapes(c)
On Error Resume Next
For Each s In Sheets(“Fotos”).Shapes
If s.TopLeftCell.Address = c Then s.Copy
Next s
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.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
 Excel VBA Shapes Planilha 59 imagens múltiplas escolhas |
| << verifique sua caixa de itens excluídos email, caso o link não estiver na caixa de entrada >> |
Excel VBA Shapes 59 Planilha imagens múltiplas escolhas
