CasaDoHardware

Abra sua planilha Exclua as somas atuais Não deixe linhas em branco no meio da tabela Item 01 e Item 03 Selecione toda a tabela Dados > Sub Total Siga as instruções da ferramenta Item 02 você faz a primeira celula e da dois cliques na alça de preenchimento vai calcular o restante Item 4 Selecione os dados e Classifique conforme necessario.

Tudo o que eu disse acima você faz com poucos cliques. A unica formula que você precisa digitar vai ser a que calcula a porcentagem.

Item 01 sugiro usar uma Tabela Dinamica ou Subtotal. Isso resolve seu item 01. Subtotal vai te dar a aparencia que você quer. Item 02 nao esta claro se é com relação a toda a planilha ou apenas na familia. Normalmente é feito de toda a planilha para verificação da curva ABC. Item 03 tb você nao diz se é de toda a planilha ou por familia de qualquer maneira a sugestão do sub total no item 01 resolve tb Item 04 depende da resposta do item 02 para saber se é por familia ou na planilha inteira. Normalmente se faz de toda a planilha para verificar a Curva ABC.

Então poste uma planilha de exemplo com os dados nao reais mas a planilha é de grande importancia que seja exatamente igual a que você usa. Em especial o formato e como esta planilha que você deseja é alimentada. Mostre todas as possiveis variaveis que acontecem no seu dia a dia e em quais a data de contagem deve ser interrompidas. Pelo que você diz essa planilha que você usa só é atualizada com formulas, nao ha dados digitados.

O ideal seria postar a planilha e nao a imagem dela. Mas você pode fazer assim: =Somase(A3:AG3;1;A4:AG4)/cont.se(A3:AG3;1) O que a formula acima faz ela soma todos os valores de codigo 1 e divide pelo numero de vezes que o codigo 1 aparece

Coisas que nao entendi! A data da Coluna B você vai digitar somente na final da produção? O valores da coluna A vão ser atualizados caso a data da coluna B seja maior que hoje? Ou vai parar de atualizar apos a informação da data na coluna B Outra coisa na sua planilha original o nome das guias, e as colunas são exatamente o que esta no seu exemplo?

Esta parte abaxo você pode deletar do codigo ActiveWindow.ScrollRow = 20 Pode apagar todas linhas iguais. Qto a sua duvida esperimente Trocar esta linha Windows("Atividades-CO_FAC_07_05_18.xml").Activate Por esta importWorkbook.Activate

Possivel é mas sugiro que poste o arquivo ao invés da imagem

porque nao digitar direto no textbox desejado?

Este ajuste você devera fazer manualmente, porém qto mais centralizado for seu fluxo de caixa melhor. Uma tabela dinamica consegue separa os resultados mensais.

Aproveitando o codigo como eu faço se quiser usar mais de 1criterio? Primeiro a coluna A depois a coluna C por exemplo

Tenta colocar a data em uma celula.

Poste seu arquivo. Nao entendi a que bordas você se refere.

Possivel é mas se precisar de bola de cristal nao vai dar. Poste seu arquivo com alguns dados demonstrando o resultado esperado.

Ficaria mais fácil se deisponibilizasse o arquivo.

Disponibilize um modelo de sua planilha.

Sim é possivel! Uma busca no forum você encontar mais topicos sobre o assunto. De uma olhada neste https://www.clubedohardware.com.br/forums/topic/1231712-enviar-email-pelo-excel/?tab=comments#comment-6769779

você esta usando outlook ou o excel para o envio destes emails? Em tempo o excel usa sua conta do outlook para isso. você pode criar uma lista no excel que faça o que você quer.

@Patropi Entendo sua saida da moderação, mas desculpe se é este mesmo o motivo, é o pior argumento que se possa ter para tal coisa. Mas enfim vida que segue. Zipar para anexar é um porre.

Pesquise sobre listbox e rotinas de repetição.

você tentou do jeito que eu falei? Pelo jeito você nem testou. porque nao é ctrl+C Ctrl+V E se quiser uma macro basta usar o gravador de macros seguindo os passos que indiquei.

Clique na guia com o botao diretio no mouse Selecione Mover ou Copiar Marque Criar Copia Se for na mesma pasta basta dar OK Se for em uma nova pasta basta selecionar Nova Pasta.

@Patropi Eu questionei uma vez (tem mais de um ano),o porque do forum de nao aceitar arquivos xlsm, não tive respostas e pelo jeito o assunto é ignorado ate hoje Desculpe mais isso nao faz o menor sentido, e é bem fácil resolver.

Sua planilha tem formulas por isso esta copiando as linhas em "branco". Esta parte você vai precisar ver um modo de nao ter essas linhas com formulas e que retornam o valor 0 Qto a limpar a planilha eu fiz confusão com outro codigo que estava escrevendo aqui, Procure no codigo esta linha for each ..... escreva a linha que citei acima dela Ficando como abaixo: Sheets("Consolidado").Range("A2:E" & Rows.Count).ClearContents For Each Planilha In FSO.GetFolder(Pasta).Files

Não da para baixar o arquivo. Fica o tempo todo reiniciando a contagem