CasaDoHardware

É so fazer um loop ate encontrar a linha onde tem a informação Segue um bem generico Neste exemplo os meses estão na coluna A a partir da linha 10 Sub excluir () dim mes as string mes = range("F3").value Range ("A10").select Do while activecell <> "" if activecell.value = mes then activecell.entirerow.clearcontens else activecell.offset(1,0).select end if loop end If end sub Escrevi direto no post mas aparentemente esta correto

Ao responder logo abaixo tem escolha os arquivos basta clicar, escolher o arquivo e enviar. Ou coloque o arquivo na nuvem e poste o link do compartilhamento.

Sem o arquivo é impossivel ver o erro Disponibilize o arquivo, sem dados importantes mas com algumas informações que mostram o funcionamento da planilha.

Selecione a Coluna Formatação Condicional >Nova Regra > Formatar apenas Celulas que Contenham > O Valor da Celula é > Igual a > Digite o que desejar Formate como desejar Formatação Condicional > Gerenciar Regra > Nova Regra > segue exatamente como acima

Eu usaria a ideia do Felipe.... ou da pra usar VBA

Se eu entendi isso atende. Cópia de Ferramenta de Gestão TERROR BR 4.0.xlsm

Apague o ultimo end if e no lugar de cada else coloque um end if Esgoto.xlsm

Na verdade tem que apagar essa variavel Apague essa linha tb

Tente apagar essa linha do erro e o ultimo end if que esta acima do end sub

Digite x na celula A7 e faça o seguinte: Abra o Editor VBA No codigo enviomassa depure o codigo e siga passo a passo ate a finalizar e diga se apresenta algum erro Eu nao tenho como testar mas se seu codigo funciona tem que funcionar dessa forma porque quando você coloca x em A7 (serve qualquer celula da coluna A), ele aceita o if que criei como verdadeiro e executa a macro enviar que alterei o nome da sua para enviar. você fez essa alteração na Planilha original trocou o nome da sua macro para enviar e colou ela em um modulo? Veja que essa codigo faz somente isso Ele seleciona a coluna D e enquanto a coluna D nao estiver Vazia ele vai rodar O teste if verifica se a celula da coluna A tem um x se tiver executa a macro Enviar (sua macro com novo nome que deve se copiada e colada em um modulo), se nao existir um x na linha da coluna A ele simplesmente pula para a proxima, ate encontrar uma linha vazia na coluna D. Sub EnvioMassa() 'Seleciona a primeira celula com email da coluna D Range("D7").Select 'Enquanto a nao encontrar uma celula Vazia na coluna D executa o que vem a seguir Do While ActiveCell <> "" Se a celula da linha ativa na coluna A existir um x If ActiveCell.Offset(0, -3).Value = "x" Then 'Executa a macro Enviar (sua macro acima com o nome Private Sub Enviar () que esta no modulo com o arquivo que enviei) Enviar Se nao Else Pula uma linha ActiveCell.Offset(1, 0).Select End If Reinicia o codigo Loop End Sub então se você fez isso tudo conforme esta acima tem que funcionar.

Se eu entendi você sempre vai começar a avaliação na linha 23 então se ela estiver vazia não calcula nada. então substitua a formula da celula BC14 por esta =SE(E(AC23="";AD23="";AE23="");"";(AT4/AT6)*AT8*AT12*BC12*AT10) O que a formula Faz: Enquanto qualquer celula da linha 23 nao for preenchida vai retornar vazio, se quiser 0 é so trocar "" por 0 depois do parenteses que fecha o E.

você testou a alteração que postei???? Nesta Linha if activecell.offset(0,1).value = "X" then troque o X Maiusculo por x minusculo que vai funcionar

Nesta Linha if activecell.offset(0,1).value = "X" then troque o X Maiusculo por x minusculo que vai funcionar

Cometi um pequeno erro Deveria ser assim Range("A2").select Mas ja ajustei a macro a sua planilha é so copiar os codigos do modulo 1 e colar em um modulo de sua planilha original. teste.xlsm

Se eu entendi Cole esse codigo em um modulo e associe a um botão Sub Sequencia() Dim Seq As String Dim Linha As Long Seq = Format(Date, "YYYYMMDD") & Format(Time, "HHMMSS") Linha = 2 For A = 1 To 100000 Cells(Linha, 1).Value = Seq Seq = Seq + 1 Linha = Linha + 1 Next End Sub

Cara o Forum tem tanto exemplo que é impossivel nao encontrar se souber o que procurar, mas ja que você nao encontrou (com certeza por nao saber o que procurar), é melhor disponibilizar seu arquivo para que se escreva um codigo de acordo com sua planilha. Poste a planilha original (formato) os dados nao importam.

Crie um loop para verificar se a celula esta preenchida e pronto Troque o nome da macro para sub enviar. Depois crie uma outra macro assim Sub EnvioMassa() Suponha que você coloque o X na Coluna B e os emails na Coluna A (Nao vi seu arquivo) Range ("A2).select Do While Activecell <> "" if activecell.offset(0,1).value = "X" then Enviar Else activecell.offset(1,0).select end if Loop End Sub Em resumo essa segunda macro vai verificar se na coluna B posssui um X se sim vai executar a macro enviar se nao pula uma linha para que possa verificar a proxima.

Cara desculpe mas assim fica difícil ajudar a cada solução que você consegue você vem com uma novidade. Decide o que você precisa, porque nao da pra ficar adaptando sua planilha a cada vez que você pensa em uma nova possibilidade. Primeiro era apenas a maquina, depois surgiu a data e por ultimo agora ja esta querendo uma nova variavel que é o turno, ae aparece a solução e você vai pedir uma nova variavel. Decide o que você precisa que assim pensamos em uma solução definitiva.

Sua Planilha é EXATAMENTE IGUAL A ESTA???

A matriz é estão grande que nao da pra selecionar uma coluna de cada vez e organizar como desejar. Depois Classificar a planilha pra excluir as celulas vazias e por ultimo Excluir os repetidos.... Por maior que seja a matriz nao é tão complicado fazer manualmente.

Ve se serve assim Veja A planilha Resumo Eu coloquei em uma planilha em separado mas pode perfeitamente ser colocada na mesma planilha. EFICIENCIA.xlsm

@Patropi se a planilha é disponibilizada gratuitamente qualquer um pode alterar é como um software de codigo aberto, que qualquer um pode utilizar o codigo fonte para atualizar o software e disponibilizar, o importante é que seja disponibilizado novamente gratuitamente e que os dados do autor principal, nao seja excluido. Agora respondendo ao autor do topico é so clicar na coluna dos valores onde você deseja que entre a coluna e botao direito do mouse inserir, vai inserir a coluna a esquerda do seu cursor.

Selecione a maquina me C1 e para limpar o filtro apague a celula EFICIENCIA.xlsm

Ve se assim funciona Em E33 coloquei uma validação que você pode deixar e excluir a tabela da coluna F ou exclui a validação e deixa a tabela, isso você decide. Pode ate mover a tabela para outro lugar desde que respeite os intervalos. EFICIENCIA.xlsx

Duas perguntas primeira qual o problema de filtrar a coluna D? E onde você quer o resultado?