Este fórum está sendo desativado

[mynssen]

Olá caros colegas! Quero limpar uma celula da coluna A quando uma celula da mesma linha da coluna Q for alterada. Consegui fazer somente para um caso, mas gostaria de aplicar com o Rage 3 a 1003, ai que nao consegui evoluir.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$3" Then

Range("Q3").ClearContents

End If
End Sub

[osvaldomp]

Experimente:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, [Q3:Q1003]) Is Nothing Then Exit Sub
 Cells(Target.Row, 1).ClearContents
End Sub

[mynssen]

Ola! a sua logica fez o contrario do que pedi kkkkk era pra apagar os dados da coluna Q quando alterasse a coluna A, mas so inverti e deu certo, obrigado!!!

[osvaldomp]

Quero limpar uma celula da coluna A quando uma celula da mesma linha da coluna Q for alterada.

Ola! a sua logica fez o contrario do que pedi kkkkk era pra apagar os dados da coluna Q quando alterasse a coluna A, mas so inverti e deu certo, obrigado!!!

Eu fiz o código com base no que você pediu no primeiro post. Veja aí acima. Lembra disso ?
Se você escreveu errado ... então a trapalhada foi sua

[mynssen]

Tens razão meu caro colega! Muito obrigado