VBA EXCEL - excluir linhas

[joanas]

Bom dia,

estou a tentar gerar uma macro para eliminar linhas de uma coluna (K) que contenham zeros.

Os dados que recebo para essa coluna variam mes a mes. Assim nunca sei o numero de registo que vou receber.. dai usar "Cells(i, 11).Value <> "" " quando tiver um campo sem valores, sei que cheguei ao fim dos registos

O código não está a funcionar. Alguém me pode ajudar?

-----------------------------------

Acho que já consegui com este código:

Sub eliminar_zeros()

FinalRow = Range("A65536").End(xlUp).Row

i = 3

Do While i <= FinalRow

If Cells(i, 1) = 0 Then

Cells(i, 1).EntireRow.Delete

Else

i = i + 1

End If

Loop

End Sub

Editado Janeiro 15, 2015 por joanas

[AlexandreAMS]

Olá Joanas... veja se atende!

1ª opção.

For i = Cells(Rows.Count, 11).End(xlUp).Row To 1 Step -1

If Cells(i, 11) = "0" Then

Rows(i).Delete

End If

Next i

MsgBox "Realizado com Sucesso."

2ª Opção

Excluir linhas com celula vazia, com a opção de escolher a coluna

Sub Excluir_celula_vazia()

Dim i As Integer

Dim Entrada As Range

Set Entrada = Application.InputBox(Prompt:="Selecione a coluna em que serão eliminadas as linhas vazias", Title:="Eliminação de linhas vazias", Type:=8)

For i = Cells(Rows.Count, Entrada.Address).End(xlUp).Row To 1 Step -1

If Cells(i, Entrada.Address) = "" Then Rows(i).Delete

Next i

End Sub

[Wpcwb]

Boa noite.

Sou novo no fórum.

Estou tentando desenvolver uma macro para excluir todas as linhas com preenchimento amarelo e também as linhas que possuem texto em vermelho.

Alguém pode me ajudar?

Obrigado.

[wootzor]

Boa noite.

Sou novo no fórum.

Estou tentando desenvolver uma macro para excluir todas as linhas com preenchimento amarelo e também as linhas que possuem texto em vermelho.

Alguém pode me ajudar?

Obrigado.

Será que estes dois links ajudam?

Editado Março 5, 2015 por wootzor