-1

Nesta worksheet eu tenho uma tabela em que sempre que qualquer célula da coluna do meio é alterada é executado um certo macro. Eu queria que, por exemplo quando alterasse a célula E12 o valor que eu pusesse na janela fosse escrito na célula F12, e quando alterasse a célula E10 o valor que eu pusesse na janela fosse escrito na célula F10 e por aí fora. É possível fazer isso? É que neste momento só consigo com que escreva numa célula ou então que escreva tudo igual num certo intervalo de células.

1
  • Por favor, edite a pergunta para limitá-la a um problema específico com detalhes suficientes para identificar uma resposta adequada.
    – Comunidade Bot
    Commented 25/08/2022 às 11:33

1 Resposta 1

-2

Esse evento (Worksheet_Change) está avaliando se o 'Target' (uma célula, neste caso) está contida no intervalo de interesse (E5:E32). Isto significa que o 'Target' será um endereço variável, cuja linha pode variar de 5 a 32. Assim, na coluna F, você tem que colocar a resposta na mesma linha do 'Target'. Target.Row é o número da linha que você precisa endereçar na coluna F: (adicionei uma avaliação da entrada feita, de forma a só aceitar datas corretamente informadas)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim MyValue As Variant
    
    If Not Intersect(Target, Range("E5:E32")) Is Nothing Then
        MyValue = InputBox("Em que data foi assistida?", "Aviso", "Digite Aqui:")
        If IsDate(MyValue) Then
            Range("F" & Target.Row).Value = MyValue
        Else
           MsgBox "Data inválida. Verifique."
        End If
    End If
    
End Sub

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .