Assunto: Deletar células vazias Sex Mar 21, 2014 2:07 pm
Bom dia! Tenho uma planilha na qual uma das abas filtra os dados de outra de acordo com o que o usuário da planilha deseja. Porém, ao fazer isso algumas células ficam vazias e gostaria de deleta-las para ter uma melhor visualização. Algum código para isso??
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
Assunto: Re: Deletar células vazias Sex Mar 21, 2014 2:11 pm
Bom dia!!
Tente
Código:
Sub Teste()
Dim lastrow As Long Dim i As Long 'Muda a coluna de acordo com sua necessidade lastrow = Range("A:A").End(xlDown).Row
For i = lastrow To 1 Step -1
If IsEmpty(Cells(i, "A").Value2) Then
Cells(i, "A").Delete Shift:=xlShiftUp End If Next i End Sub
Att
thaperon
Mensagens : 11 Data de inscrição : 12/03/2014
Assunto: Re: Deletar células vazias Sex Mar 21, 2014 3:16 pm
Infelizmente não funcionou Tem como eu incluir a planilha aqui para você dar uma olhada??
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
Assunto: Re: Deletar células vazias Sex Mar 21, 2014 3:55 pm
Bom dia!!
Use um site de hospedagem gratuito como sendspace, depois deposite o link aqui.
Caso não tenha permissão de colar o link, tente camufla-lo w*w*w*sendspace.com* (<- note os asteriscos)
Att
thaperon
Mensagens : 11 Data de inscrição : 12/03/2014
Assunto: Re: Deletar células vazias Sex Mar 21, 2014 3:58 pm