Planilha Excel VBA comentários buscas no banco dados

16 de setembro de 2014 Prof. Expedito Marcondes - Escola SaberExcel VBA 0 Comentários

Adquirir material didático Escola SaberExcel VBA Estudos - Promoção.

Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

Planilha Excel VBA comentários buscas no banco dados

BUSCA DADOS PARA UM COMENTARIO,
Com esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos aprender como fazer recuperação de informações de um cliente dentro de um comentário.
‘Observe: ao digitar um nome existente na Planilha(BD), o procedimento buscará esses dados
e os inserirá no Comentário referente ao Nome digitado.
Também ao deletar o conteúdo da célula, o procedimento irá deletar automaticamente o Comentário criado. Bons Estudos.
‘//====================’

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Count = 1 Then
Dim sbx(1 To 11)
Target.ClearComments
p = Application.Match(Target, Application.Index([clientes], , 1), 0)
If Not IsError(p) Then
sbx(1) = 1
For i = 2 To 11
tmp = tmp & [titulo].Cells(1, i) & “:” & [clientes].Cells(p, i) & vbLf
sbx(i) = sbx(i – 1) + Len([titulo].Cells(1, i)) + Len([clientes].Cells(p, i)) + 2
Next i

Target.AddComment Text:=tmp
Target.Comment.Shape.TextFrame.AutoSize = True
For i = 1 To 11
With Target.Comment.Shape.TextFrame.Characters(Start:=sbx(i), _
Length:=Len([titulo].Cells(1, i + 1))).Font
.Name = “Verdana”
.Size = 8
.Bold = True
‘.ColorIndex = 3
End With

Next i

On Error Resume Next
Target.Comment.Shape.TextFrame.Characters(Start:=sbx(6) + Len([titulo].Cells(1, 6)) + 2, _
Length:=Len([clientes].Cells(p, 6))).Font.ColorIndex = 3

End If
End If
End Sub
‘//====================’
Escola SaberExcel VBA Estudos

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.