Coleção 15.000 Macros MS Excel VBA

   Mega_Colecao Macros de Macros MS Excel VBA
      

Curso Completo MS Excel VBA

Excel VBA Video Aulas

 Aprenda Excel VBA - SaberExcel VBA - Video Aulas       
Com Simplicidade e Facilidade,
Escrevendo menos e fazendo mais
Linha de raciocínio de fácil entendimento...

 

20.000 Planilhas MS Excel VBA

 20.000 Planilhas Microsoft Excel VBA, treinamentos, busca, pesquisas, desenvolvimento a partir de exemplos prontos, estudos e pratica com planilhas prontas.

SaberExcel Evento SelectionChange textbox acompanha cursor.xlsm

 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:
  icon SaberExcel Evento SelectionChange textbox acompanha cursor (46.46 kB)

Você está aqui: Home Excel VBA - Dicas Livre Excel VBA - Dicas Livre Excel VBA - Eventos SaberExcel Evento SelectionChange textbox acompanha cursor.xlsm