Definir linha no código da MsgBox

2024 - VBA & Macros

Post Recente por gmendrib 6 anos atrás

4 Posts

3 Usuários

0 Reactions

1,283 Visualizações

RSS

gmendrib

(@gmendrib)

Posts: 24

Eminent Member

Topic starter

Bom dia!

Eu preciso que uma MsgBox apareça quando for inserido na célula W44 um valor > 25.

Encontrei o código abaixo, porém ele funciona para a coluna 23 inteira, enquanto eu preciso apenas na linha 44.

Imagino que seja simples, porém não entendo disso.

Muito obrigada!

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column > 23 Then Exit Sub
   If Cells(Target.Row, 23) > 25 Then
   MsgBox "Texto aqui"
   End If
End Sub

Postado : 25/07/2018 8:11 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Segue:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "W44" Then
If Target.Value > 25 Then
MsgBox "Texto aqui"
End If
End If
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 25/07/2018 8:17 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column > 23 Then Exit Sub
if target.row = 44 then
   If Cells(Target.Row, 23) > 25 Then
   MsgBox "Texto aqui"
   End If
end if
end if
End Sub

Postado : 25/07/2018 8:44 am