Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ativar activate ape...
 
Notifications
Clear all

Ativar activate apenas uma vez

 
2024 - VBA & Macros
Post Recente por srobles 5 anos atrás
2 Posts
2 Usuários
0 Reactions
1,314 Visualizações
RSS
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Se na célula A1 da Plan 1 for X, então, célula A1 da Plan 2 passa ser X também
Se eu voltar na Plan 1 e depois ir na Plan 2, quero que não seja alterado, somente alterar se modificar o valor da célula A1 da Plan1

Obrigado desde já !

 
Postado : 29/10/2019 7:06 pm
 srobles
(@srobles)
Posts: 231
Estimable Member
 

vonzuben,

Adapte a rotina abaixo conforme sua necessidade.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
       ThisWorkBook.Sheets(2).Range("A1") = Target.Value
    End If
End Sub

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 29/10/2019 8:21 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico