Isso exigirá o VBA. Considere este cenário:
AvalidaçãodedadosnacolunaDéalimentadapelosvaloresLongListnacolunaA.
UmEventodeMudançadaPlanilhaatuaránacolunaD,faráumVlookupparaobterovalorcurtoesubstituirovalordacélulaatual.Aquiestáocódigo:
PrivateSubWorksheet_Change(ByValTargetAsRange)DimshortAsStringIfNotIntersect(Target,Range("D:D")) Is Nothing Then
short = Application.VLookup(Target.Value, Range("A1:B4"), 2, False)
Application.EnableEvents = False
Target = short
Application.EnableEvents = True
End If
End Sub
Clique com o botão direito na guia Planilha e selecione "Exibir código". Cole o código acima na janela de código. Ajuste referências de célula para refletir sua pasta de trabalho.