Excluir Linhas

[ElParaguai]

Pessoal tem algum jeito de por exemplo

se um resuldado gerado pela a função se

der "falso" excluir da planilha ?

e ficar no caso apenas os verdadeiros ?

sem ter que eu excluir de um em um cada linha ??

obrigado

[Patropi]

Boa tarde

Pela função Se eu desconheço.

Acho que você vai ter que usar VBA.

Att

[Márcio Rodrigues]

Concordo com Patropi.

Se quiser usar vba, tente isto:

Sub FalseDeath()

Dim MyColumns As String

CounterLines = 1

MyColumns = InputBox("entre com a letra da coluna")

If MyColumns = Empty Then Exit Sub

Column = "" & MyColumns & ":" & MyColumns & ""

Columns(Column).Select

For i = 1 To Rows.Count ' aqui você pode mudar para não ler toda as linhas

If UCase(Range(MyColumns & i).Value) = "FALSO" Then

Rows("" & i & ":" & i & "").Select

Selection.Delete Shift:=xlUp

i = i - 1

CounterLines = CounterLines + 1

End If

Next

MsgBox "Excluidas " & CounterLines & " Linhas"

End Sub

[ElParaguai]

Obrigado pela ajuda mais eu desconheço essa função e tentei tentei fuça aqui e não consegui "executala"

[Márcio Rodrigues]

Talves seja mais simples usar o AutoFiltro e excluir as linhas com resultado FALSO.

[Obadia]

Pessoal tem algum jeito de por exemplo

se um resuldado gerado pela a função se

der "falso" excluir da planilha ?

e ficar no caso apenas os verdadeiros ?

sem ter que eu excluir de um em um cada linha ??

obrigado

Caro ElParaguai,

A função do VBA tem que ser usada no editor do VBA do Excel, ou seja, na barra de ferramentas clique com o botão direito e selecione Visual Basic, depois clique no quarto botão dessa barra do lado esquerdo do botão "martelo e chave" depois declare sua macro colando o código que o nosso amigo Márcio Rodrigues te passou. Segue a mesma abaixo:

Sub FalseDeath()

Dim MyColumns As String

CounterLines = 1

MyColumns = InputBox("entre com a letra da coluna")

If MyColumns = Empty Then Exit Sub

Column = "" & MyColumns & ":" & MyColumns & ""

Columns(Column).Select

For i = 1 To Rows.Count ' aqui você pode mudar para não ler toda as linhas

If UCase(Range(MyColumns & i).Value) = "FALSO" Then

Rows("" & i & ":" & i & "").Select

Selection.Delete Shift:=xlUp

i = i - 1

CounterLines = CounterLines + 1

End If

Next

MsgBox "Excluidas " & CounterLines & " Linhas"

End Sub

Existe também uma fórmula que você pode concatenar com a fórmula de condição se, ela não excluirá a célula mais vai ficar em branco. É a se(éerros(

Já que você só quer que fique os verdadeiros você pode colocar a seguinte fórmula abaixo:

ex: =se(éerros(se(a1="verdadeiro";a1;""));"";(se(a1="verdadeiro";a1;"")))

Abs,

[ElParaguai]

obrigado ajudo bastante

pode fechar o topico

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.