Ir ao conteúdo
  • Cadastre-se

EXCEL: se alguma celula esta vazia entao delete a linha, é possivel?


java_up

Posts recomendados

  • Membro VIP

Olha java_up o que é possível fazer é deletar/ocultar a linha 2 e 4, mas se for como na figura irá sumir informações.

Caso não for igual a figura uma das alternativas seria você seguir esse passo:

Formatar > Linha > Ocultar e a linha selecionada ficará oculta.

Outro procedimento seria você seguir esse passo caso queria deixar assim:

imagemds1.png

Basta ir no ícone Cor de preenchimento e selecionar branco para a célula

Botão:

imagem2ye0.png

Meu MS Excel é 2003 mas funciona no 2007 igualzinho.

Espero ter ajudado,

Shady.

Link para o comentário
Compartilhar em outros sites

valeu pelas dicas Shady e Flavio!

mas o negocio é que meu arquivo tem cerca de 700 linhas, então eu nao posso ocultar manualmente linha por linha, como o Shady disse.

O ideia seria: encontrou alguma celula em branco, então delete a linha inteira!

Sobre o macro, eu nunca mexi com ele, mas posso tentar! é so botar o codigo dentro?

abraços e tenham um bom dia!

Link para o comentário
Compartilhar em outros sites

  • Membro VIP

Cara, conforme você falou, a macro vai pesquisar da linha 1 até 877.101 nas colunas de A até M (13 colunas). Se alguma célula da linha, neste intervalo, estiver em branco, Créu nela!!! A Macro está considerando que o nome de sua planilha é Plan1. Deve demorar um pouco para rodar, pois são muitas linhas.

Crie uma macro e lance o seguinte código:

inicio = 1 'Numero da linha onde começa a pesquisa

fim = 877101 'Numero da linha onde terminará a pesquisa

linha = fim

Do

volta:

If Worksheets("Plan1").Range("a" & linha).Value = "" Then GoTo deleta

If Worksheets("Plan1").Range("b" & linha).Value = "" Then GoTo deleta

If Worksheets("Plan1").Range("c" & linha).Value = "" Then GoTo deleta

If Worksheets("Plan1").Range("d" & linha).Value = "" Then GoTo deleta

If Worksheets("Plan1").Range("e" & linha).Value = "" Then GoTo deleta

If Worksheets("Plan1").Range("f" & linha).Value = "" Then GoTo deleta

If Worksheets("Plan1").Range("g" & linha).Value = "" Then GoTo deleta

If Worksheets("Plan1").Range("h" & linha).Value = "" Then GoTo deleta

If Worksheets("Plan1").Range("i" & linha).Value = "" Then GoTo deleta

If Worksheets("Plan1").Range("j" & linha).Value = "" Then GoTo deleta

If Worksheets("Plan1").Range("k" & linha).Value = "" Then GoTo deleta

If Worksheets("Plan1").Range("l" & linha).Value = "" Then GoTo deleta

If Worksheets("Plan1").Range("m" & linha).Value = "" Then GoTo deleta

If linha = inicio Then Exit Do

linha = linha - 1

Loop

GoTo fim

deleta:

Worksheets("Plan1").Rows(linha).Delete

linha = linha - 1

GoTo volta

fim:

Obs.: Não testei aqui, pois to sem excel no mobile, mas deve funcionar...

Link para o comentário
Compartilhar em outros sites

Flavio,

Tenho 3 perguntas:

1) O código começa em:

inicio = 1 'Numero da linha onde começa a pesquisa.... ( O item inicio também entra no código ) ?

2) E termina em: .....GoTo volta

fim: ( O ítem fim: também entra no código )?

3) Onde se deve colocar este código?

Link para o comentário
Compartilhar em outros sites

  • Membro VIP

começa onde está escrito Inicio, e termina onde está escrito fim:

ou seja, começa no inicio e termina no fim, como tudo nesta vida!!! kkk

Brincadeiras à parte, você deve criar uma macro, inserir o código lá dentro e executá-la.

Vá em Ferramentas (eu acho que é esse o meno no excel) / Macros / Exibir macros

Crie uma nova macro, cole a macro lá dentro e execute.

Isto deve ser feito dentro da planilha qoe contem os dados

Link para o comentário
Compartilhar em outros sites

  • Membro VIP

Aqui funcionou....

Mas a planilha deve conter dados... se ela estiver vazia, não adianta....

Testa fazendo uma planilha de 25 linhas preenchidas da coluna A até a M, depois deixe umas celulas em branco,

altere o codigo fim=877101 para fim=25

agora é só testar...

Link para o comentário
Compartilhar em outros sites

ae pessoal!

eu tentei com menos valores, e deu certo. Ae eu fui colocar no meu arquivo com quase 1 milhao de linhas e ficava so executando! hahaauhu! dexei o pc ligado 30horas e ainda nao terminou! ahuaahaahuhua! ta certo, meu pc tb nao é um NASA mainframe!

muito obrigado Flavio, voce é o cara man!

Flavio para presidente da republica!

abraços pessoal

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!