clique em uma célula altera o valor de outra célula

Question

Eu não consigo fazer o que parece ser um processo fácil ... Eu gostaria de dar um valor ("Olá") para uma célula (chamada "ClInfo") na planilha chamada "Hardware" por um clique em uma célula (C47) na planilha chamada "1".

Eu tentei isso:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
    If Not Intersect(Target, Range("C47")) Is Nothing Then
        .range("ClInfo").value = "hello"
    End If
End If 

O que devo fazer para que funcione? Obrigado pela sua ajuda!

    

Answer 1

Seu código pode parecer com o seguinte, parece que você está perdendo o objeto Planilha:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("C47")) Is Nothing Then
        Worksheets("Hardware").Range("ClInfo").Value = "hello"
        End If
    End If
End Sub

Verifique se você está colocando isso como o VBA da sua pasta chamada 1 :