Macro para substituir valor ao digitar em outra célula

[Tayana Peneluca]

Prezados,

Não entendo nada de VBA, porém preciso de uma macro que seja capaz de substituir o valor que está na célula A1 (que originalmente vem com o valor 1), quando nas células B1 ou C1 (que originalmente estão em branco) eu digitar o valor 1, a célula A1 fique em branco. Entre as 3 células (A1, B1 e C1) apenas uma célula pode ter o valor 1, lembrando que a célula A1 já vem com o valor preenchido.

Não sei se consegui explicar direito.

Desde já agradeço.

Atenciosamente.

[Fabio Trindade]

Bom dia, Tayana Peneluca .

Se entendi bem, creio que o código vá te ajudar:

Código: Selecionar todos

' INSERIR NA PLAN ONDE IRA RECEBER OS VALORES
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then
        Call Celula_A1
    ElseIf Target.Address = "$B$1" Then
        Call Celula_B1
    ElseIf Target.Address = "$C$1" Then
        Call Celula_C1
        Exit Sub
    
    End If
    
End Sub

Private Sub Celula_A1()
    If Range("A1").Value = 1 Then
        Range("B1").Value = ""
        Range("C1").Value = ""
        Exit Sub
    End If
End Sub

Private Sub Celula_B1()
    If Range("B1").Value = 1 Then
        Range("A1").Value = ""
        Range("C1").Value = ""
        Exit Sub
    End If
End Sub

Private Sub Celula_C1()
    If Range("C1").Value = 1 Then
        Range("A1").Value = ""
        Range("B1").Value = ""
        Exit Sub
    End If
End Sub

[Tayana Peneluca]

Obrigada pela ajuda...

Consegui a solução no fórum abaixo:

http://forum.clubedohardware.com.br/top ... try6171686