Target.Address

2024 - VBA & Macros

Post Recente por vonzuben 8 anos atrás

3 Posts

1 Usuários

0 Reactions

1,168 Visualizações

RSS

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

Como usar esse código em outro aba ativa ?

If Target.Address(False, False) = "D12" Then
Application.EnableEvents = False
Target.Value = StrConv(Target.Value, vbUpperCase)
Application.EnableEvents = True
End If

OBS: já estou usando esse código em outra aba na G12

Obrigado desde já !

Postado : 09/07/2016 2:10 pm

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

Não seria isso ?

If Target.Address(False, False) = "G12" Then
    Application.EnableEvents = False
    Sheets("Plan1").Target.Value = StrConv(Sheets("Plan1").Target.Value, vbUpperCase)
    Application.EnableEvents = True
End If


If Target.Address(False, False) = "D12" Then
    Application.EnableEvents = False
    Sheets("Plan2").Target.Value = StrConv(Sheets("Plan2").Target.Value, vbUpperCase)
    Application.EnableEvents = True
End If

Postado : 10/07/2016 10:42 am