LucasExcel

@Muca Costa ja me ajuda bastante. Agora eu só faço a quebra de texto na imagem e ponho do lado da tabela, porém eu perdi os dizeres ( "Prezados" -> pula duas linhas -> xxxxxxxx). E quando tentei colocar no campo Email.HTMLBody deu erro na hora de inserir o gráfico. Segue a imagem, em anexo com dizeres.. Três duvidas, 1° tem diferença de modelo do excel, porque no excel 2016 eu consegui utilizar porém deu erro no excel 2010 (e o computador no meu local de trabalho utiliza 2010) 2°Em algumas tentativas de utilização da macro a tabela era colada no local onde ponho o e-mail (destinatários), é algo que estou fazendo errado? Isso costumava acontecer se em algum momento que eu enviei um e-mail anterior e cliquei pela ultima vez nos destinatários. 3° Como eu coloco os dizeres no começo do corpo do email? Ps: se tiver como na macro quebra de texto na imagem e ponho do lado da tabela, se não for possível também já tem me ajudado muito

Então eu alterei o código inicial ( que enviei no primeiro post) e inseri o complemento abaixo que ficou posicionado antes de criar o e-mail. Ele copia o intervalo porém não consigo um código que cole e com a largura 46 e altura 12,67 Sheets("Tabela dinamica - Volume").Select ActiveSheet.Range("f3:AL31").Select Application.CutCopyMode = False Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

@Muca Costa Obrigado pela ajuda, porém não consigo utilizar o código, mostra o erro abaixo.

Relatório de expedição rodoviário.zipEstou enviando o arquivo comprimido em anexo, para ajudar na visualização. e uma imagem como ficará o e-mail.Não sei se é possível que o gráfico fique do lado, se for possível eu diminui um pouco o tamanho do mesmo, se não for possível ok. Obrigado pela ajuda Relatório de expedição rodoviário.zip

Bom dia Gostaria de enviar o corpo do e-mail o intervalo da célula G4 até I23 (copiar o intervalo e colar no e-mail) contido na aba "Tabela dinamica - Volume" e o Grafico 6 como imagem (o gráfico está na aba "Tabela dinamica - Volume") Obs: Para o grafico 6 o comprimento é de 12,55 cm e a largura é de 40 cm No momento eu tenho o código abaixo onde ele envia via e-mail com os destinatários ja informados e com o texto ja informado. Sub MacroEmail() ' ' Macro17 Macro Set objeto_outlook = CreateObject("Outlook.Application") Set Email = objeto_outlook.CreateItem(0) Email.Display Email.CC = "xxxx" Email.To = "xxxxx" Email.Subject = "xxxxx" Email.Body = "Prezados," & Chr(10) & Chr(10) & "Segue em anexo " & Chr(10) _ & Chr(10) & "" & ActiveWorkbook.Sheets("Dash").Range("b2").Value & "" & ":" & "" & ActiveWorkbook.Sheets("Dados").Range("s3").Value & "" _ & "" & ActiveWorkbook.Sheets("Dados").Range("Q7").Value & Chr(10) & Chr(10) & "" 'troque o diretorio do documento que queira enviar 'add' anexo. Email.Attachments.Add "\\xxxxxxxxxxxxxxxxxxxxxxxx" Email.Display

Obrigado

Bom dia, Como faço para selecionar todos os itens do filtro "data" na tabela dinâmica1, exceto quando o item do filtro "data" estiver vazia ou nulo ou "" ? No código abaixo eu consigo atualizar a tabela dinâmica e desmarcar o item "" no filtro "data" na tabela dinâmica mas não consigo marcar todos os outros itens da mesma tabela. Range("AI4").Select ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Data") .PivotItems("").Visible = False End With

Beleza, obrigado e desculpa a indiscrição. Esterei tentando remover o conteudo dessas mensagens,não tinha me atentado para aquela informação.

.

@Eder Neumann

@Eder Neumann Seria isso ? ><sheetPr codeName="Plan4"/><dimension ref="A1:CR65536" Planilha_controle_estoque.zip adicionado 0 minutos depois @Midori Enviei e-mail para o criador e para o site mas nenhum deles me responderam. Mas obrigado pela sugestão

Alguém sabe?

Boa noite, Eu baixei essa planilha da internet do site dicas do Excel porém está bloqueada para modificações, é possível desbloquear? gostaria que ao clicar em "vendas" e "confirmar venda" fosse gerado um recibo e quando eu clicar em "consulta" fosse possível excluir registro apenas se o tipo de usuário for "Administrador" ( não será possível quando for "usuário padrão" - Na aba cadastro). Link com a planilha https://www.sendspace.com/file/9j3tc4 Obrigado

@Midori Só com a dica de buscar o minimo na tabela dinâmica já me atendeu em 50%. Esse modo que você disse que seria mais fácil com fórmula ou macro, poderia me enviar a planilha por gentileza, pois não sei como usar fórmulas UNICO nas datas (Excel 2010) Obrigado

@djacy.neto ainda sim não ajuda. Acho que me expressei mal, vamos tentar de outra forma. O que eu queria por favor é uma tabela dinâmica com o menor valor da coluna L (titulo saldo) separado por dia, ou seja, ficaria de forma automática em uma tabela dinâmica os dados conforme eu preenchi manualmente (coluna AF até AJ) ,esse saldo vai ser a minha barra azul no gráfico dinâmico, conforme no exemplo (coluna AF até AJ) Obs: A meta de Arcos é igual a 30.000 - (800 * quantidade de dia que ja passaram do mês) e Volta Redonda 5000 - (50 * quantidade de dia que ja passaram do mês) Pasta2.xlsx Lembrando dessa obs: Muito importante: Caso eu não tenha nenhuma linha referente a data na tabela da coluna A até M o saldo na tabela AF até AJ será igual ao ultimo saldo (na própria tabela AF até AJ) para que quando eu faça o gráfico eu tenha barras preenchidas até o fim do mês independente se tem linha referente a data na tabela da coluna A até M ou não. O meu principal objetivo é fazer o gráfico com saldo, se não tiver a meta tudo bem. Obs: Quando tentei fazer o grafico manualmente percebi que os valores organizados da forma que está na coluna AF até AJ facilita a montagem do grafico, melhor que da coluna AB até AD.

@djacy.neto Na verdade não, o arquivo que você me mandou considera o valor de 30.000 para qualquer destino, uma das premissas é considerar 30.000 para Arcos e 5.000 para Volta Redonda. O gráfico não atualiza a meta, por exemplo se a meta no dia 01 é de 30.000 para Arcos e no dia 10 ja foi somado de peso liquido (coluna F) 10.000 a meta então seria 20.000. Mas o principal para mim é ajustar os valores de saldo, tudo bem ficar sem a meta. O saldo por exemplo, no dia 07 é de 103403,18 ou seja, muito maior do que os 30.000 iniciais, como eu estou tirando saldo a tendencia é que esse valor seja decrescente, na tabela dinâmica acho que você somou, o correto desse saldo seria 29.899,62 para Arcos e 4.591,59 para Volta Redonda conforme a tabela da coluna AB até AD, que eu preenchi manualmente. Obs: no gráfico o saldo que é a barra azul sempre será crescente e a meta que é a linha verde sempre será decrescente.

Bom dia, Poderiam me ajudar por favor Pasta2.xlsx O meu objetivo é fazer um gráfico dinâmico (anexo 1 ) e tabela dinâmica (anexo 2) como as informações do gráfico abaixo, porém eu quero uma segmentação de dados para poder separar por destino. Na tabela da coluna A até a coluna N eu tenho uma tabela que puxarei os dados, cada linha nessa tabela refere-se a um peso liquido (coluna F) e outras informações, porém tenho mais de uma linha de informações para uma mesma data ( coluna I), acredito que se eu conseguir na tabela da coluna AB até AD colocar o saldo ( é o menor valor da coluna L de acordo com a data, coluna I) para cada destino em seu determinado dia, eu consigo criar o gráfico que eu quero. Obs: Para Arcos inicialmente eu tenho um saldo de 30.000 e a cada dia estou diminuindo esse saldo com o peso acumulado do dia referente a cada destino. Obs: Para Volta Redonda inicialmente eu tenho um saldo de 5.000 e a cada dia estou diminuindo esse saldo com o peso acumulado do dia referente a cada destino. Muito importante: Caso eu não tenha nenhuma linha referente a data na tabela da coluna A até M o saldo na tabela AB até AD será igual ao ultimo saldo (na própria tabela AB até AD) para que quando eu faça o gráfico eu tenha barras preenchidas até o fim do mês independente se tem linha referente a data na tabela da coluna A até M ou não. Eu preenchi na tabela referente a coluna AB até AD manualmente como exemplo. O gráfico e a tabela são apenas ilustrativos.

@deciog Ficou incrível, eu tive umas dificuldades para passar para minha tabela original e na utilização da primeira linha quando toda a planilha está em branca. Quando isso acontece eu só preciso jogar a formula novamente na célula e arrastar para a planilha, assim depois de preenchido a primeira linha não é preciso fazer novamente. Ficou ótima a fórmula, muito obrigado pela ajuda.

Bom dia, @deciog Teste.xls Segue a planilha em anexo. Fiz algumas modificações: eu inclui as observações na coluna Z até AF apenas para conhecimento(é a descrição q esta nesse site do meu pedido) Inclui a linha 33 e 34 para sinalizar a necessidade de continuidade na fórmula Pus os valores da coluna K e L da linha 31,32,33,34 manualmente ( para fazer manualmente, por exemplo, eu para a coluna K, linha 31 fiz "=K29+F31" e para coluna L, linha 31 "=L29-F31")

@Patropi tem alguma ideia ?

@Patropi Vamos lá, na tentativa de utilizar a fórmula vi alguns detalhes que impossibilitarão a utilização 1° Para a coluna K - > Na célula K31 deve-se somar F31 ao invés de F30. Sempre o ultimo valor da coluna "Acumulado" (coluna K) + peso liquido da própria linha ( na coluna F), nesse caso peso liquido é a célula F31 porque estou preenchendo a célula K31 (linha 31) 2° O mesmo acontece para o coluna L - > Na célula L31 deve-se subtrair F31. Sempre o ultimo valor da coluna "Saldo" (coluna L) - peso liquido da linha (na coluna F), nesse caso peso liquido é a célula F31 porque estou preenchendo a célula L31 (linha 31) Obs: Atualmente a célula F31 diminui 1000 da célula F30, ao invés de subtrair com base na coluna F. 3° Eu preciso arrastar essa célula para que a fórmula funcione de acordo com o meu novo preenchimento (fórmula funcione nas células abaixo K31,K32,K33...), eu tentei destravar as células na barra de fórmula mas deu erro, por exemplo, na linha 32 eu preenchi o peso liquido (coluna F) e o destino (coluna M) porém quando arrasto a fórmula da o erro #Valor ou #NUM!. Eu estou usando o excel 2013, tem algum problema? 4° Eu estou preenchendo a célula K31 eu preciso que a fórmula procure na coluna M, caso o destino seja Volta Redonda o ultimo acumulado, na coluna K referenciando ao destino,Volta Redonda coluna M e faço o mesmo caso para o destino Arcos. Porque o valor Acumulado ou Saldo são diferentes de acordo com o destino. Isso na mesma célula. Peço desculpa pela correção do enunciado, pois percebi com a utilização da fórmula. Caso seja feito com VBA, para mim não faz diferença. Obrigado pela ajuda

Bom dia, Preciso de uma ajuda por favor. Com a fórmula ÍNDICE(K2:K31;CORRESP(M30;M2:M31;0);CORRESP("Volta Redonda";M2:M31;0));"") eu consigo procurar na coluna L o valor referente a cada destino, porém a fórmula não me mostra o ultimo valor preenchido. Acredito que o meu grande problema é "procurar ultimo valor preenchido que seja com cada destino". Para a coluna K - > Se a célula M29 for igual a "Arcos" então eu vou somar F29 com o ultimo valor da coluna K que for com destino a "Arcos" (por exemplo, K28), se a célula M29 for igual a "Volta Redonda" então eu vou somar F29 com o ultimo valor da coluna K que for com destino a "Volta Redonda" (por exemplo K17) Para a coluna L - > se M29 for igual a "Arcos" então a fórmula vai procurar na coluna L o ultimo valor que for com destino a "Arcos" e vai subtrair com a célula F29, se M29 for igual a "Volta Redonda" então a fórmula vai procurar na coluna L o ultimo valor que for com destino a "Redonda" e vai subtrair com a célula F29 Teste.xls adicionado 12 minutos depois Obs: a partir da linha 32,coluna K e L eu vou começar utilizar a fórmula de modo que a cada preenchimento da coluna F e M seja automatizado o preenchimento da linha 32,coluna K e L

@Midori Deu certo, obrigado pela ajuda.

@Midori Acredito que o problema de linha não terei porque a planilha será verificada diariamente e com poucos valores de erros. Mas o código na hora que está sendo gerado, caso não tenha nenhuma célula com "Verificar Nfe" aparece uma caixa de mensagem, como faço para não aparecer caixa de mensagem caso não tenha nenhuma célula com "Verificar Nfe" ?

Boa tarde Preciso fazer o seguinte, tenho uma tabela que será preenchida diariamente, mas queria fazer com que se uma destas células estiverem escrita "Verificar Nfe" apareça uma mensagem informando. O problema é que eu não consigo fazer com que a macro leia a tabela, por exemplo no código abaixo mostra que se a célula M247 estiver o valor "Verificar Nfe" aparecerá a MsgBox "Verificar preenchimento", mas eu preciso que ao invés de ler só a célula M247 leia todas as células (da coluna) de M2 até M247 e que como eu preencho a planilha diariamente, ao rodar o código, o código leia automaticamente caso a célula M260 e assim sucessivamente esteja o o valor "Verificar Nfe" Se alguém puder me auxiliar agradeço. Sub Teste() ' ' Teste Macro ' ' If Worksheets("Dados").Range("M247").Value = "Verificar Nfe" Then MsgBox "Verificar preenchimento" End If End Sub adicionado 18 minutos depois Esqueci de algo, não sei se é possível. Informar na mensagem (MsgBox "Verificar preenchimento da célula M5"...por exemplo), ou seja, qual ou quais células estão com o valor "Verificar Nfe".