Como transferir automaticamente os valores em outra célula?

Question

Amigos Estou usando o MS Excel 2010 e quero Como digito qualquer valor ou palavra na célula a1, ele deve ser transferido automaticamente para a célula d1 e a célula a1 deve ficar em branco novamente. Por favor me sugerir qualquer forma, fórmula ou código VBA para fazer isso… obrigado…

    

Answer 1

Este código VBA deve funcionar:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wks As Worksheet
    Set wks = ActiveSheet
    theRow = Target.Row
    theColumn = Target.Column
    theValue = Target.Value
    If theRow = 1 Then
    If theColumn = 1 Then
        Application.EnableEvents = False
        wks.Cells(1, 4) = theValue
        Target.Clear
        Application.EnableEvents = True
    End If
    End If
End Sub

Você tem que colocar na planilha que você irá usar. Abrir vista - > Macros, na coluna da esquerda abaixo de VBAProject , clique duas vezes na planilha na coluna da esquerda e cole na coluna da direita.