Excel Macro para excluir células específicas no Excel

[Matheus Sena]

Bom dia!

Por gentileza, é possível fazer uma macro que exclua uma célula com determina valor no excel, e faça as células abaixo dela subirem?

Conseguir fazer uma macro que exclui a linha inteira, mas o que necessito é que apenas a célula com a informaçáo seja excluída. Alguém sabe como?

 

[Visitante]

2 horas atrás, Matheus Sena disse:

Alguém sabe como?

 

Eu não sei, mas ... segue um palpite

Sub ExcluiCélula()
 If ActiveCell.Value = 171 Then ActiveCell.Delete Shift:=xlUp
End Sub

 

[LaerteB]

Boa tarde, @Matheus Sena

 

Você pode usar o que nosso amigo @osvaldomp informou, ou pode pegar

este código que estou disponibilizando abaixo (os dois chegam no mesmo

resultado):

 

Private Sub CommandButton1_Click()

 Dim xbusca As String
 Dim c As Range

   xbusca = InputBox("Digite o valor a ser excluído.", "EXCLUIR")

     With Worksheets("Planilha1").Range("A:A")

      Set c = .Find(xbusca, LookIn:=xlValues)

      If Not c Is Nothing Then

       Worksheets(1).Activate
       
         Range(c.Address).Activate
         
            ActiveCell.Select

               Selection.Delete Shift:=xlUp
   
      End If

     End With

   Set c = Nothing

End Sub

No código acima é só colar (no VBE) dentro do "Objeto/Procedimento" acima citado,

dentro do botão criado na "sheet" "Planilha1" (neste exemplo), e quando clicar no

botão será aberto uma janela que tu pode escrever o valor da célula (somente da

coluna "A" neste exemplo") e depois em "Ok" que será excluído somente ela e

sobe o valor abaixo, sem afetar as outras colunas (como solicitou).

 

Verifique e teste se era isso que queria...

 

OBS: 

Como todos aqui, temos compromissos e não temos muito tempo para criar um arquivo do zero, pois
ajudamos somente no nosso tempo livre... é muito importante você anexar uma planilha de
exemplo com dados (fictícios) e que não seja o projeto inteiro ; explicando com as informações
necessárias para alcançar o seu objetivo, desta forma poderemos ajudá-lo com maior rapidez e
eficácia (a maioria nem olharia este Tópico sem um arquivo exemplo, pois existe muitas
"variáveis" que podem impossibilitar o sucesso parcial ou total da solução proposta,se não tiver um
arquivo exemplo que for disponibilizado) ..

 

Aguardando a sua resposta e seu Feed Back... não esqueça de clicar na mãozinha...

 

LaerteB