Ir ao conteúdo
  • Cadastre-se

Cleomirfl

Membros Plenos
  • Total de itens

    20
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Estarei no pernoite hj... aí quando chegar no serviço vou tentar fazer..
  2. Como faço isso amigo? Sou meio leigo nesse assunto...rsrs
  3. Estou com o mesmo problema, fiz a troca e não funcionou...continua apresentando o ERRO: Erro em tempo de execução '1004': O método 'EnvelopeVisible' do objeto '_WorkBook' falhou. O código que estou usando.... Sub EnviaIntervalo() Application.ScreenUpdating = False With Sheets("RECEBIMENTO DE CALES") .AutoFilterMode = False .Range("A5:P5").AutoFilter Field:=1, Criteria1:= _ ">=" & CDbl(Date - 4), Operator:=xlAnd, Criteria2:="<" & CDbl(Date + 1) Sheets.Add .Range("A5:P" & .Cells(Rows.Count, 1).End(3).Row).Copy [A1] .AutoFilterMode = False End With Columns("A:P").AutoFit Range("A1:P" & Cells(Rows.Count, 1).End(3).Row).Select ActiveWorkbook.EnvelopeVisible = True - ERRO NESTA LINHA! With ActiveSheet.MailEnvelope .Introduction = "Informações Apuradas as 06h" .Item.To = "cleomir.leite@lhoist.com" 'coloque o destinatário da mensagem .Item.Subject = "Relatório - Recebimento de Cales" .Item.Display End With Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
  4. Então meu amigo.... 1. Deixei a célula A5 selecionada...deu o mesmo erro... 2. Sim, existe Outlook no Note...vice e versa; 3. Conexão também tenho.... Fiquei perdido agora mano...tava tudo funcionando adicionado 14 minutos depois Anexei um teste..se você puder dar uma olhada aí...só tive que salvar como excel comum...excel com VBA não estava aceitando...rsrs Teste 1.xls
  5. @osvaldomp Boa tarde amigo! Preciso de um help seu...seguinte: esse código estava rodando de boa sem maiores problemas ,porém o pc que uso(..que é compartilhado com mais 5 pessoas) pegou vírus..então o pessoal do TI recolheu minha máquina e instalou um notebook no lugar, porém desde de que isso aconteceu não consigo mais rodar o código que você me ajudou...aparece o seguinte erro: Erro tempo de execução 1004 EnvelopeVisible do objeto_Workbook falhou... Sub EnviaIntervalo() Application.ScreenUpdating = False With Sheets("RECEBIMENTO DE CALES") .AutoFilterMode = False .Range("A5:P5").AutoFilter Field:=1, Criteria1:= _ ">=" & CDbl(Date - 4), Operator:=xlAnd, Criteria2:="<" & CDbl(Date + 1) Sheets.Add .Range("A5:P" & .Cells(Rows.Count, 1).End(3).Row).Copy [A1] .AutoFilterMode = False End With Columns("A:P").AutoFit Range("A1:P" & Cells(Rows.Count, 1).End(3).Row).Select ActiveWorkbook.EnvelopeVisible = True....ESSA É A LINHA DO ERRO! With ActiveSheet.MailEnvelope .Introduction = "Informações Apuradas as 06h" .Item.To = "cleomir.leite@lhoist.com;laboratorio.rio@lhoist.com" 'coloque o destinatário da mensagem .Item.Subject = "Recebimento de Cales" .Item.Send End With Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub ...Tô caçando na net algo parecido, porém não encontro..consegue me dar mais essa ajuda? Cleomir
  6. Boa tarde Pessoal! Mais uma vez venho recorrer a ajuda de vcs...rsrs Seguinte: ...tenho uma planilha de controle de recebimento de pesos(Ton) por nota fiscal..deixei ela preenchida como exemplo...o que necessito é o seguinte: Gostaria de manipular somente uma célula(...a célula C4) colocando o valor bruto que passa na balança e alguma fórmula que distribuísse o valor na nota fiscal correspondente, o que ocorre hoje é que toda NF que passa na balança o operador tem que ficar subtraindo da NF anterior para colocar o valor da NF que pesou...hoje tenho uma fórmula simples de soma de totais na coluna G14:G17... Teste Balança.xlsx
  7. Boa tarde Pessoal! Mais uma vez venho recorrer a ajuda de vcs...rsrs Seguinte: ...tenho uma planilha de controle de recebimento de pesos(Ton) por nota fiscal..deixei ela preenchida como exemplo...o que necessito é o seguinte: Gostaria de manipular somente uma célula(...a célula C4) colocando o valor bruto que passa na balança e alguma fórmula ou VBA distribuísse o valor na nota fiscal correspondente, o que ocorre hoje é que toda NF que passa na balança o operador tem que ficar subtraindo da NF anterior para colocar o valor da NF que pesou...hoje tenho uma fórmula simples de soma de totais na coluna G14:G17... Teste Balança.xlsx
  8. Osvaldo...olhando aqui o erro estava justamente na troca da data para 1904(para reconhecer datas negativas) ...percebi quando você mencionou acima sobre a data de 2015...quando enviei a planilha tinha enviado como 2019(..mas como sistema de data modificado para 1904)..aí quando você recebeu ela automaticamente converteu para 2015...retornei aqui e deu certo...o código está funcionando normalmente... Obrigado pelo apoio cara, desculpe a amolação...rsrs...acredito que agora não haverá mais problemas!!! Obrigado!!
  9. Coloquei o código de novo e inseri a data do dia de ontem(..dia 07/09)...continua puxando só o intervalo A5:P5 e não puxa o dia 07..o q será que houve? estava funcionando perfeitamente... adicionado 14 minutos depois @osvaldomp ...desculpa estar te incomodando em pleno domingo cara, mas é que preciso enviar esse relatório amanhã de manhã para a gerência...sou iniciante e VBA, ou seja...não domino o assunto...se puder me dar uma luz do que pode estar acontecendo...
  10. Então se eu retornar com esse código e tiver a data do dia de ontem por exemplo ele vai funcionar de novo?
  11. O intervalo A5:P5 e as datas de dois dias para trás + o dia atual
  12. Bom dia Osvaldo, vê se consegue me ajudar aê...depois que passei o sistema de data para 1904(...reconhecer horas negativas) o código não envia mais as linhas dos dias...tá enviando só o intervalo do título... Já voltei a data para o sistema antigo...mas não sei o que houve..o código não envia como estava programado; Recebimento - Cópia.xls
  13. Parabéns meu camarada...excelente resultado, tudo funcionando perfeito!!! Muito Obrigado!!
  14. Osvaldo uma última dúvida..rsrs...e se eu quisesse enviar o dia anterior e o atual juntos? Como ficaria o código?
  15. Cara, coloquei o código para rodar...só apareceu isso... adicionado 0 minutos depois Recebi por email, porém só o cabeçalho..rsrs adicionado 29 minutos depois Osvaldo, testei aqui de novo e quase deu certo..rsrs...quando coloco o código para rodar ele primeiro dá erro 400, depois abre uma nova guia e quando retorno para a planilha de recebimento ele está somente filtrada e não seleciona a parte filtrada para enviar por email...sinto que estamos chegando perto...rsrs adicionado 40 minutos depois Deu certo por aqui Osvaldo...tava colocando o código no lugar errado..rsrs...obrigado pela paciência e pela força cara...grande abç!!!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!