Ir ao conteúdo
  • Cadastre-se

RAIMUNDO LIMA DE ARAUJO

Membro Pleno
  • Posts

    104
  • Cadastrado em

  • Última visita

Tudo que RAIMUNDO LIMA DE ARAUJO postou

  1. Prezados, bom dia, É possível, enviar texto da celular destacada na planilha para grupo de whatsap ou numero pessoal? queria enviar a ordem pdf para o grupo de whatsap informando que o motorista x da placa y terminal x saindo para carreagmento em vosso terminal. ENVIAR WHATSAP.zip
  2. Boa tarde meus amigos(as). Se possível, poderia ajustar esse codigo para colar o intervalos da planilha que está na aba (ORDEM CARREGAMENTO), automaticamente no oultook? Ele até cria uma copia, porém, tenho que usar o CTRL+V para colar, veja o print abaixo. intervalo B1 A Q52 CODIGO: Sub Enviar_ORDEM() Dim WH As Worksheet Dim OutProg As Object Dim OutMail As Object Dim OutApp As Object Set WH = Planilha8 ' 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" Anexo = MaisRecentArq(ThisWorkbook.Path & "\") With OutMail .Display .To = WH.Range("D10").Value 'Para .CC = WH.Range("D11").Value 'Copia .Subject = WH.Range("D13").Value ' Assunto .bcc = "[email protected]" .Attachments.Add Anexo .Body = WH.Range("D15").Value ' Corpo e-mail '.Send End With Application.DisplayAlerts = True Set OutMail = Nothing Set OutApp = Nothing Set OutProg = Nothing Set WH = Planilha8 'o codigo abaixo, seleciona a ultima linha preenchida e dá print para ser enviado e-mail WH.Range("B4:Q" & Cells(Rows.Count, "Q").End(xlUp).Row).Select ' usamos a coluna E para localizar a ultima linha preenchida Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture WH.Range("Q2").Select ' Salva pasta de trabalho End Sub Function MaisRecentArq(caminho As String) Dim recenArq As String Dim recenDt As Date Dim nomeArq As String nomeArq = VBA.Dir(caminho & "*.*") If nomeArq <> "" Then recenArq = nomeArq recenDt = VBA.FileDateTime(caminho & nomeArq) Do While nomeArq <> "" With ActiveSheet If nomeArq Like "OR " & .[C11] & " - " & .[L11] & " - " & .[L14] & ".pdf" Then If VBA.FileDateTime(caminho & nomeArq) > recenDt Then recenArq = nomeArq recenDt = VBA.FileDateTime(caminho & nomeArq) End If End If End With nomeArq = VBA.Dir Loop End If MaisRecentArq = caminho & recenArq End Function Eu achei esse codigo aqui, que faz o que preciso, porém, não sei como adaptar no meu para colar automaticamente a imagem. Sub AdicionarImagemCorpoOutlook() Dim outlookApp As Object Dim outlookMessage As Object Set outlookApp = CreateObject("outlook.application") Set outlookMessage = outlookApp.createItem(olMailItem) With outlookMessage .htmlbody = "Aqui é o local onde será escrito o email" ExportarGrafico .Attachments.Add Environ$("temp") & "\" & "meuGrafico.jpg", olByValue, 0 .htmlbody = .htmlbody & "<br><B>Relatório Semanal:</B><br>" _ & "<img src='cid:meuGrafico.jpg'" & "><br>" _ & "<br>Atenciosamente,<br>Cristian Firmino</font></span>" .To = "[email protected]" .display End With End Sub Sub ExportarGrafico() Dim nomeArquivo As String Dim chartGrafico As Chart Set chartGrafico = Sheets("teste").ChartObjects("linha").Chart nomeArquivo = "meuGrafico.jpg" chartGrafico.Export Filename:=Environ$("temp") & "\" & nomeArquivo, Filtername:="jpg" End Sub
  3. Boa noite, pessoal, tudo bem? Estou usando o codigo abaixo para enviar e-mail e colar uma imagem que é copiado em um determinado intervalo, como faço, para ajustar o tamanho da imagem ao coloar no outlook? 'codigo abaixo seleciona esse intervalo e cola email WH.Range("B1:L11").Select Sub Enviar_INFORMATIVO() Dim WH As Worksheet Dim OutProg As Object Dim OutMail As Object Dim OutApp As Object Set WH = Planilha1 ' PRINT QUE VAI NO E-MAIL PARA COLAR TGL01 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 CONFIGURAAO EMAIL Dim Anexo As String 'Anexo = ThisWorkbook.Path ' NOME DO ARQUIVO PARA ANEXAR 'Anexo = Anexo & "\" & "ORDEM DE CARREGAMENTO.xlsm" Anexo = MaisRecentArq(ThisWorkbook.Path & "\") With OutMail .Display .To = WH.Range("D10").Value 'Para .CC = WH.Range("D12").Value 'Copia .Subject = WH.Range("D14").Value ' Assunto .bcc = "[email protected]" .Attachments.Add Anexo .Body = WH.Range("D16").Value ' Corpo e-mail '.Send End With Application.DisplayAlerts = True Set OutMail = Nothing Set OutApp = Nothing Set OutProg = Nothing Set WH = Planilha1 ' INFORMATIVO 'o codigo abaixo, seleciona a ultima linha preenchida e dá print para ser enviado e-mail ' WH.Range("B1:L" & Cells(Rows.Count, "L").End(xlUp).Row).Select ' usamos a coluna E para localizar a ultima linha preenchida 'codigo abaixo seleciona esse intervalo e cola email WH.Range("B1:L11").Select Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture WH.Range("A1").Select ' Salva pasta de trabalho End Sub
  4. @OreiaG quando eu colo a imagem desse intevalo no e-mail ela fica muito grande, é possível diminuir? WH.Range("B1:L11").Select Ah! fiz esse teste codigo acima deu certo, obrigado Boa tarde, Obrigado!
  5. Prezados, bom dia. Estou usando o codigo abaixo para enviar e-mail e copiar imagem da planilha localizamos a ultima linha preenchida, porém, gostaria de mudar, copiar apenas um intervalo dela. Que seria o intervalo print B1 A L11 Sub Enviar_ORDEM() Dim WH As Worksheet Dim OutProg As Object Dim OutMail As Object Dim OutApp As Object Set WH = Planilha1 ' PRINT QUE VAI NO E-MAIL PARA COLAR TGL01 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 CONFIGURAAO EMAIL Dim Anexo As String 'Anexo = ThisWorkbook.Path ' NOME DO ARQUIVO PARA ANEXAR 'Anexo = Anexo & "\" & "ORDEM DE CARREGAMENTO.xlsm" Anexo = MaisRecentArq(ThisWorkbook.Path & "\") With OutMail .Display .To = WH.Range("D10").Value 'Para .CC = WH.Range("D12").Value 'Copia .Subject = WH.Range("D14").Value ' Assunto .bcc = "[email protected]" .Attachments.Add Anexo .Body = WH.Range("D16").Value ' Corpo e-mail '.Send End With Application.DisplayAlerts = True Set OutMail = Nothing Set OutApp = Nothing Set OutProg = Nothing Set WH = Planilha1 ' INFORMATIVO 'o codigo abaixo, seleciona a ultima linha preenchida e dá print para ser enviado e-mail. Se possível, mudar o intervalo print B1 A L11 WH.Range("B1: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("A1").Select ' Salva pasta de trabalho End Sub
  6. Prezados, bom dia. é possível, enviar texto e pdf no whatassap? Tenho essa planilha e gostaria de compartilhar o pdf. texto está na aba(configurações e-mail), D13 O PDF salva na pasta onde está o excel ordem compactada.rar
  7. @Midori Na linha 16 eu não posso considerar 22:00, porque eu entrei no terminal as 23:35, por isso, o retorno tem que ser o horario de entrada. Isso se aplica ao turno da madrugada. Isso para Ad.Not.35% Nesse mesmo turno, O adcionar noturno 80 % retorno 1: seria o horario de saida do contrato:07:30, retornaria 07:30 - Na planilha eu coloquei 23:35 no ad.noturno 80% mas é 07:30 retorno 2:é o horario de saida do turno 08:40 para essa aplicação eu tenho 3 turno, ou seja, horarios variaveis. horario contratual da empresa: manha:07:30 a 16:30 tarde: 16:30 a 00:00 madrugada:00:00 a 07:30
  8. @Midori Estou com essa formula aqui na planilha,não consegui ajustar para os 3 intervalos de turno. Formula retorno 1 =SEERRO(SE(F17="";"";SE(F17>0;SE(E(TEXTO(F17;"HH:MM")>TEXTO("22:00";"HH:MM");TEXTO(F17;"HH:MM")<TEXTO("15:00";"HH:MM"));"";SE(TEXTO(F17;"HH:MM")>TEXTO("22:00";"HH:MM");F17; SE(E(TEXTO(F17;"HH:MM")>=TEXTO("15:00";"HH:MM");TEXTO(F17;"HH:MM")<TEXTO("22:00";"HH:MM"));TEXTO("22:00";"HH:MM");TEXTO("16:30";"HH:MM"))))));"") Formula retorno 2 =SE(E(TEXTO(F17;"HH:MM")>TEXTO("07:00";"HH:MM");TEXTO(F17;"HH:MM")<TEXTO("15:00";"HH:MM"));H17;"") copia folha ponto.xlsx
  9. @Midori Jornada trabalho Manha: 07:20 a 16:30 Tarde: 16:30 a 00:00 Madrugada:00:00 a 07:20 regra das horas extras Ad.Not 35% Iniciar a partir de 22:00 até o fim da jornada de trabalho,ou seja, saida. Hora extras 80 diurno% Iniciar a partir de 16:30 até o fim da jornada de trabalho,ou seja, saida. Hora extras Not 80 noturna% Iniciar a partir de 07:30 até o fim da jornada de trabalho, ou seja, saida. A tela abaixo é exemplo de como gostaria de fica-se. obrigado @Midori @Scofieldgyn
  10. @Scofieldgyn @Scofieldgyn @Scofieldgyn 07:35 a 17:48 EXEMPLO 35% vazio extra noturna 80% (Vazio) extra diurna 80% (coluna 1 retorna 16:30, coluna 2 horario de saida 17:48) 15:25 a 00:48 EXEMPLO 35% (coluna 1:retornar 22:00 coluna 2:retorna o horario de saida 00:48) extra diurna 80% (FICA VAZIO) extra noturna 80% (coluna 1:retornar 00:00 coluna 2:retornar o horario de saida 00:48 23:35 a 08:40 EXEMPLO 35% (coluna 1:retornar horario de entrada 23:35 coluna 2:retorna o horario de saida 08:40) extra diurna 80% (FICA VAZIO) extra noturna 80% (coluna 1:retornar 07:40 coluna 2:retornar o horario de saida 08:40 qualque coisa se possível, chamar 98 988623337 whatsapp, já tentei de varias formas e não achei solucão ainda. Obrigado!
  11. @Scofieldgyn Bom dia, Como estou usando a regra para 3 turno, daria certo apenas para o turno da manha, segue a simulação dos 3 horarios. regra dos intervalos de horario: Fiz simulação incluindo na horas extras os horarios manuais, creio que teria que aplicar a formula para os intervalos simulando varios turnos. O lançamento é por dia, então, pode varias os turnos.
  12. @Scofieldgyn Bom dia, Estava sem acesso ao portal, por isso, demorei para da um retorno. poderia me ajudar, incluindo uma condição? Gostaria que o adicional de 35% fica-se vazio, ou seja, se a entrada for menor que 16:40, ele fica vazio. caso contrario segue assim =SE(TEXTO(F13;"HH:MM")<TEXTO("22:00";"HH:MM");TEXTO("22:00";"HH:MM");F13)
  13. @Scofieldgyn o feriado 100% Sera manual mesmo. Vou realizar o testes
  14. Bom dia, Conseguem me ajudar? Fiz a planilha abaixo,porém, gostaria que ao preencher a entrada/saida as colunas (Ad.Not.35%,Horas extras 80% e Horas extras Not 80%),fossem preenchidas automaticas. Fiz tres simulações por turno. 1)Turno madrugada: inicia:00:00 a 07:40 Entrou ad.Not 35% que inicia de 22:00 até o fim da jornada de trabalho, nesse caso 08:45 Entrou Hora extras Not 80% que é hora excedida de sua jornada de trabalho ou seja 07:40 ate 08:45 2)Turno tarde: inicia:15:40 a 00:00 Entrou ad.Not 35% que inicia de 22:00 até o fim da jornada de trabalho, nesse caso 00:15 Entrou Hora extras Not 80% que é hora excedida de sua jornada de trabalho ou seja 07:40 ate 08:45 3)Turno manhã: inicia:07:40 a 16:00 Entrou Hora 80% que é hora excedida de sua jornada de trabalho ou seja 16:40 ate 16:58 (até saida) ESPELHO DE PONTO RZ.xlsx
  15. @Scofieldgyn FALA MEU AMIGO, beleza? VOU GRAVAR O vídeo E ENVIAR, FICA MAS fácil, CODIGO VBA.zip
  16. ola, tenho essa planilha, porém, não sei como calcular alguns intervalos em horas. Por exemplo: Minha escala é 16:00 a 00:00 se trabalho 16:00 a 00:00 ( horas trabalhadas) apos 22:00 e 06:00 entra (adcional noturno 35%) apos 00:00 também já entraria 80% hora extra (segunda a sábado) e 100 % aos domingos e sabados. Segue arquivo! Eu destaquei na planilha em laranja as observações. queria que retorna-se as horas nas colunas (35%,80% e 100%) AJUSTE PONTO.xlsx
  17. @Scofieldgyn olá, será se é problema na configuração do meu excel? o codigo para vagão TCC não removeu as linhas em brando, não tirou o traço e não deixou so os 4 ultimos numero. EX: TCC0311
  18. @Scofieldgyn O ARQUIVO EM ANEXO TEM 6 VAGÕES TCC, PODERIA FAZER TESTE? QUANDO É TCT, VI QUE DEU CERTO. ERRO FOTO 01 VAGOES TCC.xlsx
  19. Poderia me ajudar no ultimo ajuste? importei a planilha em anexo porém apresentou erro para os vagões que iniciam com TCC Gostaria que ficasse, se for TCC, tira o separador (-) e fica os 4 ultimos numeros se for TCT tira o separador (-), porém, mantem todos os numeros. VAGOES FTL SABBA 16.11.xlsx
  20. @Scofieldgyn A cada minuto em imprimo a ordem de carregamento. A ideia é, essa ordem no final do dia e fazer a leitura e na medida que eu ler, o codigo extrairia para essa sheet (MOVIMENTAÇÃO)
  21. @Scofieldgyn Obrigado meu amigo. Deus abençõe, resolvido!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...