Guru do Excel e Power BI

Enviado: **06 Mar 2019 às 18:32**

Boas pessoal,

Estou a fazer um ficheiro em VBA para gerir um stock e surgiu-me uma dúvida que gostava que me ajudassem.
Resumidamente, o que pretendo fazer é após apagar uma determinada célula de uma coluna, mover todas as células abaixo para cima, de modo a preencher a célula vazia que apaguei o valor e não ficar nenhuma célula em branco.

Por exemplo:
Tenho a seguinte tabela:
Parafuso
Mesa
Cadeira
Vidro
Jornal
Pássaro
Fruta

O utilizador decidiu apagar a palavra "Vidro" e desse modo a tabela vai ficar com uma célula em branco e o que pretendo é puxar todas as células para cima para não ficar nenhuma em branco.

Alguém me consegue ajudar?

Enviado: **07 Mar 2019 às 11:26**

Experimente:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Column = 1 And Target.Value = "" Then Target.Delete xlShiftUp
End Sub

Guru do Excel e Power BI

Mover células para cima para preencher células vazias

Mover células para cima para preencher células vazias

Re: Mover células para cima para preencher células vazias