Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 VBA condição SE

Ir para baixo 
2 participantes
AutorMensagem
doidoDmais




Mensagens : 20
Data de inscrição : 02/10/2012

VBA condição SE Empty
MensagemAssunto: VBA condição SE   VBA condição SE EmptyQua Jun 11, 2014 3:26 pm

Bom dia,

Estou precisando uma macro com 2 condições:

1 - Se a célula for igual a 0 aí limpe a célula

2 - Se for igual a "Despesa" aí limpe também a célula.

Mas não mexa na configuração da planilha, só apague as informações.

Coluna B10:B63

Como fica esse código?

Obrigado desde já
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

VBA condição SE Empty
MensagemAssunto: Re: VBA condição SE   VBA condição SE EmptyQua Jun 11, 2014 5:31 pm

Bom dia!!

Tente um loop...faça os testes.
Código:
Sub AleVBA_806()
Dim LastRow As Long
Ale = [B65536].End(xlUp).Row
For I = 1 To Ale
If Cells(I, 2) = "0" Or Cells(I, 2) = "Despesa" Then
    With Rows(I & ":" & I).EntireRow
        .ClearContents
        .FormatConditions.Delete
    End With
End If
Next I
End Sub

Att
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

VBA condição SE Empty
MensagemAssunto: Re: VBA condição SE   VBA condição SE EmptyQua Jun 11, 2014 5:37 pm

Bom dia!!

Esse deve ser melhor.
Código:
Sub AleVBA_806V2()
For I = 1 To 63
If Cells(I, 2) = "0" Or Cells(I, 2) = "Despesa" Then
    With Rows(I & ":" & I).EntireRow
        .ClearContents
    End With
End If
Next I
End Sub

Att
Ir para o topo Ir para baixo
doidoDmais




Mensagens : 20
Data de inscrição : 02/10/2012

VBA condição SE Empty
MensagemAssunto: Re: VBA condição SE   VBA condição SE EmptyQua Jun 11, 2014 7:03 pm

É exatamente isso! Obrigado novamente.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

VBA condição SE Empty
MensagemAssunto: Re: VBA condição SE   VBA condição SE EmptyQua Jun 11, 2014 7:07 pm

Boa tarde!!

Eu fico feliz em ajudar, obrigado pelo retorno! Wink 

Att
Ir para o topo Ir para baixo
Conteúdo patrocinado





VBA condição SE Empty
MensagemAssunto: Re: VBA condição SE   VBA condição SE Empty

Ir para o topo Ir para baixo
 
VBA condição SE
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Condição com Soma
» Somar colunas de horas com condição
» Soma por Condição com Comparação
» Concatenar intervalo com condição
» FÓRMULA PARA RETORNA UMA CONDIÇÃO

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: