Ativar activate apenas uma vez

2024 - VBA & Macros

Post Recente por srobles 5 anos atrás

2 Posts

2 Usuários

0 Reactions

1,307 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