Como gravar na célula adjacente qual foi a minha seleção suspensa, como uma fórmula de registro de disco rígido?

Question

Existe uma codificação de função do Excel que pode gravar em uma célula adjacente qual foi minha seleção suspensa Da célula A3 para a célula B3, mas para mantê-la mesmo se eu remover a seleção suspensa mais tarde como um disco rígido ?

    

Answer 1

Código não testado, registre a célula A3 (o seletor de lista) em B3:

Sub MemorizeCellA3
Range("B3").Value= Range("A3").Value   ' might need to be .Text instead
Range("A3").ClearContents 'will clear out A3
end sub

Atribua-o a um botão na folha.

Fonte de código

    

Answer 2

Se você quiser fazer isso automaticamente, coloque essa macro no módulo de planilha da planilha que deseja fazer em

Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(target, Range("A:A")) Is Nothing Then
    If target.Offset(, 1) = "" Then
        target.Offset(, 1) = target
    End If
End If
End Sub

O range("A:A") é o intervalo que você gostaria de gravar. Se isso mudar, e a célula próxima a ele por uma coluna, offset(,1) , estiver vazia, coloque o valor selecionado lá. Se não estiver no intervalo ou a célula ao lado já tiver um valor, não faz nada.

    

Answer 3

As células podem ser ligadas ou não. Opções para congelar a célula seria

• Copiar e colar valor
• macro vba que congela a célula quando certas células são atualizadas.