Planilha Excel Evento SelectionChange TextBox acompanha cursor . xlsm

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

PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

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.