Este fórum está sendo desativado

[Andre309]

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?

[osvaldomp]

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