Ativar activate ape...
 
Notifications
Clear all

Ativar activate apenas uma vez


vonzuben
Posts: 547
Registered
Topic starter
(@vonzuben)
Honorable Member
Entrou: 8 anos atrás

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á !

Responder
1 Reply
srobles
Posts: 231
Registered
(@srobles)
Estimable Member
Entrou: 7 anos atrás

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
Responder