Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Executar macro ao c...
 
Notifications
Clear all

Executar macro ao clicar na célula

 
2024 - VBA & Macros
5 Posts
1 Usuários
0 Reactions
2,638 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Galera preciso de mais uma ajudinha de você,

Tenho um arquivo em anexo que vou preencher algumas observações da célula C3 até Y10 por data.

Porém quero que quando algumas dessas datas já estiver preenchido, ao clicar nessa célula me apareça uma msgbox com o conteúdo dessa célula.

Obs: Deve aparecer o conteúdo apenas nas células preenchidas dentro de intervalo c3:y10.

é possível?

 
Postado : 11/05/2012 11:18 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Tenta isso:
Só não sei como restringir dentro do intervalo, vamos aguardar se alguém tem alguma sugestão.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value <> "" Then
MsgBox ActiveCell.Value
Else
End If
End Sub
 
Postado : 11/05/2012 11:38 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

È exatamente isso, só que preciso restringir essa msg dentro do intervalo que citei a cima.

Alguém tem alguma sugestão?

 
Postado : 14/05/2012 4:27 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Tente assim

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Pinta os intervalos se diferente de vazio
    If Not Intersect(Target, Me.Range("C3:Y10")) Is Nothing Then
        MsgBox ActiveCell.Value
    End If
End Sub
 
Postado : 14/05/2012 5:51 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Isso mesmo Valew cara,
só acrescentei uma linha.

funcionou perfeito;.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Pinta os intervalos se diferente de vazio
    If Not Intersect(Target, Me.Range("C3:Y10")) Is Nothing Then
    If ActiveCell.Value <> "" Then
        MsgBox ActiveCell.Value
    End If
    End If
End Sub
 
Postado : 14/05/2012 5:57 am
Forum Jump:
  Tópico Anterior
Próximo Tópico