RAIMUNDO LIMA DE ARAUJO

Olá, Estou usando a planilha abaixo, e gostaria de anexar no e-mail o arquivo mas recente ou ultimo arquivo salvo em pdf. Eu não sei programar vba, segue o codigo que eu consegui. Sub Enviar_ORDEM() Dim WH As Worksheet Dim OutProg As Object Dim OutMail As Object Dim OutApp As Object Set WH = Planilha6 ' PRINT QUE VAI NO E-MAIL PARA COLAR Set OutProg = CreateObject("Outlook.Application") Set OutMail = OutProg.CreateItem(0) Application.ScreenUpdating = False WH.Select Application.ScreenUpdating = True Application.DisplayAlerts = False Set WH = Planilha5 ' ONDE PEGA OS E-MAIL PARA ENVIAR Dim Anexo As String Anexo = ThisWorkbook.Path ' NOME DO ARQUIVO PARA ANEXAR Anexo = Anexo & "\" & "ORDEM DE CARREGAMENTO.xlsm" With OutMail .Display .To = WH.Range("D10").Value 'Para .Subject = WH.Range("D12").Value ' Assunto .Attachments.Add Anexo .Body = WH.Range("D14").Value ' Corpo e-mail '.Send End With Application.DisplayAlerts = True Set OutMail = Nothing Set OutApp = Nothing Set OutProg = Nothing Set WH = Planilha6 'o codigo abaixo, seleciona a ultima linha preenchida e dá print para ser enviado e-mail WH.Range("B4:L" & Cells(Rows.Count, "L").End(xlUp).Row).Select ' usamos a coluna E para localizar a ultima linha preenchida Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture WH.Range("B2").Select ' Salva pasta de trabalho End Sub testes.xls.rar

Boa noite, Pessoal, alguém pode me ajudar ? Estou usando a planilha no formato tabela, gostaria de executar o comando para inserir uma nova linha, ou seja, o codigo identifica na tabela a ultima linha preenchida e insere uma abaixo.

Boa tarde, Podem me ajudar? Gostaria de enviar e-mail ness formato de baixo. Sheets (GRANEL T1,GRANEL T2,ULTRACARGO), formato PDF E em anexo o print da Sheet VISÃO GERAL. Obs: Já tem codigo nela, porém não sei como adaptar. BASE TESTE.xlsx Option Explicit Sub CriarEmailSimples() Dim olApp As Outlook.Application Dim janela As Outlook.MailItem Dim anexo01 As String, Anexo02 As String, Anexo03 As String, Anexo04 As String, Anexo05 As String, Anexo06 As String, Anexo07 As String, Anexo08 As String Dim assinatura As String 'localiza na pasta o arquivo e anexa no e-mail anexo01 = ThisWorkbook.FullName ' anexa a planilha no e-mail Anexo02 = ThisWorkbook.Path & "\MOVIMENTAÇÃO - GRANEL T1.pdf" 'anexa no e-mail o arquivo encontrado depois \ Anexo03 = ThisWorkbook.Path & "\MOVIMENTAÇÃO - GRANEL T2.pdf" Anexo04 = ThisWorkbook.Path & "\MOVIMENTAÇÃO - ULTRACARGO.pdf" Set olApp = New Outlook.Application Set janela = olApp.CreateItem(olMailItem) With janela '.BodyFormat = olFormatHTML .Display .To = "[email protected]" .CC = "[email protected]" .BCC = "[email protected]" .Subject = "CONTROLE DE CARREGAMENTO EM TERCEIROS" .Attachments.Add anexo01 ' essa atribuição anexa o arquivo no e-mail, conforme variavel anexo01 .Attachments.Add Anexo02 .Attachments.Add Anexo03 'anexa a planilha .Attachments.Add Anexo04 Sheets("VISÃO GERAL").Select Range("B4:J26").Select Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture Range("B4").Select Sheets("VISÃO GERAL").Select assinatura = .HTMLBody End With End Sub

@Patropi segue planilha original, gostaria de retornar a quantidade de operações nesse campo. Fique a vontade para fazer as alterações que for necessários, mas uma vez muito obrigado. base teste.xlsx

@PATROPI Para chegar nesse resultado é possível?

@Patropi Desculpa, vou tentar explicar. Segue exemplo, adicionei data/hora. No horario de 10h, o ct RDX9D68 foi agendado para carregar (s-500 & s10) por isso a placa se repetir. No horario de 15h o mesmo chegou para fazer a segunda viagem para carregar apenas GASOLINA C, por isso a placa não se repetiu. Segue ao lado o print. Obs: As mesma o CT pode levar varios produtos, por isso acabo repetindo para usar a segmentação de dados.

@Patropi Boa tarde, Na verdade a placa foi lançada duas vezes porque ele carregou duas vezes no terminal, por isso considerei 5 e não 4, como ficaria a formula nesse caso? Você trabalha com programação? Sabe muita coisa, parabéns. Quando criar canal no youtube eu vou te seguir.

segue planilha apenas exemplo @Patropi CONTAR VALORES UNICOS.xlsx

Boa tarde, a muito tempo venho procurando uma solução pra esse problema, porém nunca achei. eu lanço nessa planilha as placas dos cts que eu direciono para carregamento, porém as formulas que eu começo ele contar que carregaram 10 carros, na verdade seria apenas 5. Segue exemplo para entender; quando o ct vai carregar 3 produtos eu lanço tres vezes a placa por isso gerar essas quantidades a mas, na verdade queria que retornar-se apenas 1.

Olá, Pessoal. Podem me ajudar? Um amigo fez a programação vba dessa planlha, porém estou com problemas, ela está duplicando as informações e ele não sabe como resolver. Só para vocês entenderem, ele colocou um botão para importar a base de dados que eu baixei do terminal onde carregou os cts, o grande problema é que todos os turnos precisam importar os dados (manha,tarde e noite), nesse codigo especifico se eu já importei 06/11 pela manha e a tarde eu fizer a mesma coisa, ele está duplicando as informações. A minha ideia é: Clica no botão para importar os dados, e o excel perguntar, deseja substituir a base de dados toda ou apenas a data de hoje. O codigo substituindo a data de hoje creio que resolveria o meu problema, ou seja, se o turno da manha baixou a base e importou, a planilha vai trazer 00:00 até o horário atual, o turno da tarde, quando ele fizer o mesmo, o excel excluiria os lançamento da data atual de 00:00 em diante e substituiria pela base 06/11 trazendo as informações atualizadas de 00:00 até o horario atual, assim não duplicaria as informações. Vou anexar a base de dados e eu baixei e o DASHBOARD com o codigo. @Patropi PERFOMANCE DE CARREGAMENTO.xls.rar base de dados que importo carregamento terceiros.xlsx

@Patropi Obrigado, você é 10 fera demais

@Patropi Muito obrigado pela ajuda de sempre, tem aprendido muito com você.

@Patropi Deu certo, e como seria para o excel contar quantos status em andamento tem para GRANEL T1?

Olá, gostaria de contar quantas (TRANSF), tem em andamento para GRANEL T1,GRANEL T2 e ULTRACARGO, segue base. Como estou usando formato tabela, tentei usar cont.ses não deu certo teste2.xlsx

Olá, Estou tentando contar quantos carros carregaram durante esse horários conforme tabela a baixo. Estou com dificuldades para ajustar na tabela dinâmica essa informação. Quando agrupei, ela contou 11 carros sendo cts 00:00 á 00:30. Porém queria que conta-se exatamente a grades abaixo pois não altera. Vou mandar a base quem poder ajudar agradeço. Tem como mudar as cores das grade de acordo com o crieterio? Exemplo, se for maio que 0 fica verde e iqual 0 fica vermelho GESTÃO DE PRODUÇÃO OFICIAL 20-03-2021.xlsx

Olá, pessoal. Alguém pode me ajudar? Eu baixei a planilha abaixo para lançar as minhas horas trabalhadas, porém não está contabilizando as horas reais. Na maioria das vezes eu saiu do dia seguinte, talvez por isso não está calculando corretamente. ex: entrei dia 13/09 as 15:30, intervalo 17:00 retorno 18:00 e saiu geralmente 00:24 a 00:40 do outro dia. escala de trabalhado: 16:00 as 00:00 segunda a sexta sábado: 12:30 até fechamento domingo folta Controle-de-Horas.xls

Bom dia, Se possível, criar outra macro!

@Midori Boa noite, tudo bem? Criar outra macro para incluir os dados da planilha (lançar CACL), para Movimentação. E criar a possibilidade para consultar os dados cadastrados e editar.

@Midori Boa tarde, Gostaria de cadastrar esse dados do print,editar e buscar o banco de dados.

@Patropi@Midori

Bom dia a todos! Preciso de ajuda, fiz algumas modificações na planilha, porém não consigo ajustar o codigo vba. Vou passar abaixo mas informações do que preciso. 1) Gostaria de cadastrar todas as informações da planilha (LANÇAR_CACL) e copiar para a planilha (MOVIMENTAÇÃO).Lembrando que tenho informações da medição inicial e medição final. O Volume em litros do liquido correspondente à altura verificada, eu busco na tabela de arqueação cadastrada usando a formula procv. Geralmente nós conferimos os CACL's de terminais de terceiros, as vezes eles são os expedidores ou recebedores. Creio que baixando a planilha e verificando as formulas, vocês entendera. 2) Gostaria de buscar no bando de dados as informações cadastras, usando como criterio; Terminal/produto e tanque, ai ele traria todas as informações pra mim. 3) Gostaria de alem de buscar tem a possibilidade de editar o CACL. 4) apos esse todos lançamentos a planilha gera-se um comparativo entre os terminais expedição e recepção. Observação: Eu utilizo muito essa planilha, então posso dá um bonus por isso se conseguirem melhorar mas ainda. Segue meu e-mail: [email protected] | 98 988623337 (zap) MODELO NOVO EM CONSTRUÇÃO.xlsx

@Patropi Planejamento Carga e Descarga Marítima.xlsx

Ola,pessoal. Eu fiz planilha com grafico porém não estou conseguindo ajustar o eixo para visualização de 02 em 02 horas. É possivel do eixo data/hora ajustar automaticamente? no arquivo em anexo vocês irão entender, toda vez que a data muda eu pego o numero correspondente a data e ajusto no eixo. Planejamento Carga e Descarga Marítima.xlsx

Obrigado!

@Patropi