Página 1 de 1
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
por GENECI
Bom dia!
Solicito a sua ajuda, conforme o anexo.
Grato.
Re: Limpar a célula mover o conteúdo e repor o conteúdo da célula apagada em outra célula.
Enviado: 29 Jan 2023 às 11:07
por Foxtri
Bom dia
Segue uma opção.
Até
Foxtri
Re: Limpar a célula mover o conteúdo e repor o conteúdo da célula apagada em outra célula.
Enviado: 29 Jan 2023 às 14:51
por osvaldomp
Código: Selecionar todosPrivate 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
Re: Limpar a célula mover o conteúdo e repor o conteúdo da célula apagada em outra célula.
Enviado: 30 Jan 2023 às 14:31
por GENECI
Problema resolvido.
Grato.