Limpar a célula mover o conteúdo e repor o conteúdo da célula apagada em outra célula.
Enviado: 25 Jan 2023 às 11:00
Bom dia!
Solicito a sua ajuda, conforme o anexo.
Grato.
Solicito a sua ajuda, conforme o anexo.
Grato.
Fórum de Dúvidas sobre Excel e Power BI
https://gurudoexcel.com/
Private Sub Worksheet_Change(ByVal Target As Range)
Dim old, arr
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$E$4" Or Target.Value <> "" Then Exit Sub
Application.Undo
old = Target.Value
arr = [E5:E14]: [E4:E13] = arr
[E14] = old
End Sub