Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções
Este procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usaremos o Evento SelectionChange da Folha de Planilha
que ao selecionar a célula a TextBox com determinado (Comentário ou Aviso) acompanhará o Cursor.
Faça o download no final da pagina. Fiquem com Deus. Expedito Marcondes.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Range(“C5:M17”), Target) Is Nothing And Target.Count = 1 Then
Plan1.TextBox1.Visible = True
TextBox1.Top = ActiveCell.Rows(1).Top + 1
TextBox1.Left = ActiveCell.Columns(2).Left + 1
Else
Application.EnableEvents = False
Plan1.TextBox1.Visible = False
Application.EnableEvents = True
End If
End Sub
‘caso haja uma desativação de eventos acidental.
Sub ativar_eventos()
Application.EnableEvents = True
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.
u – Procedimento de Aquisição do Material didático Escola SaberExcel VBA Estudos
Baixe o exemplo de planilha contendo os macros acima:
SaberExcel Evento SelectionChange textbox acompanha cursor (46.46 kB)
