DenisJeronimo

Ola Amigos. Tenho uma dúvidas para compartilhar. Eu fiz alguns comandos para o envio de um email para meu outlook, associei a esse envio o application.speech.speak... mas nada roda nos outros usuarios do mesmo pc. Somos em 3 pessoas 91 em cada turno) e eu gostaria que a Macro rodasse 24h, ou seja, nos 3 usuarios de rede que faça log in nesse pc O que estou fazendo de errado? Por favor me digam (sou novo no VBA) Seguem códigos <>Sub AutoSuperAcao() 'DIMensionei as variaveis Plan e PasTrab Dim Wb As Workbook Dim WsP1 As Worksheet 'Desligo a tela Application.ScreenUpdating = False 'declarei as 3 variaveis acima (com SET quando é Objeto) Set Wb = Workbooks("Posição Hora Hora - Entressafra.xlsm") 'Ativo a Pastrab com os dados do Superação Wb.Activate Set WsP1 = Worksheets("Entressafra") 'Seleciono a plan com os dados WsP1.Select 'Seleciono a range com os dados WsP1.Range("a1:g40").Select 'Ligo o "outlook no Excel" ActiveWorkbook.EnvelopeVisible = True 'A mágica acontece With WsP1.MailEnvelope .Introduction = "E-mail enviado automaticamente" .Item.To = WsP1.Range("i11") .Item.Subject = WsP1.Range("i10") .Item.send ' MsgBox "E-mail enviado com sucesso as " & Hr, vbOKOnly, "Parabéns " & Range("i7") & "!!!" End With WsP1.Range("i2").Select 'Ligo a tela Application.ScreenUpdating = True End Sub<> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' <>Public Sub TesteOnTime() 'Avisar quanto tempo falta para o envio Call Application.OnTime(TimeValue("00:57:00"), "ChamarAtencao") 'Avisar que está enviando Call Application.OnTime(TimeValue("00:59:52"), "UltimoAviso") 'Chamar a SUB para enviar Call Application.OnTime(TimeValue("01:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("01:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("01:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("02:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("02:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("02:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("03:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("03:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("03:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("04:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("04:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("04:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("05:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("05:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("05:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("06:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("06:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("06:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("07:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("07:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("07:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("08:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("08:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("08:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("09:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("09:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("09:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("10:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("10:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("10:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("11:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("11:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("11:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("12:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("12:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("12:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("13:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("13:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("13:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("14:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("14:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("14:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("15:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("15:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("15:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("16:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("16:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("16:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("17:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("17:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("17:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("18:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("18:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("18:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("19:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("19:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("19:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("20:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("20:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("20:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("21:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("21:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("21:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("22:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("22:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("22:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("23:05:00"), "AutoSuperAcao") Call Application.OnTime(TimeValue("23:57:00"), "ChamarAtencao") Call Application.OnTime(TimeValue("23:59:52"), "UltimoAviso") Call Application.OnTime(TimeValue("00:05:00"), "AutoSuperAcao") End Sub<> ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' <>Sub ChamarAtencao() 'DIMensionei as variaveis Plan e PasTrab Dim Wb As Workbook Dim WsP1 As Worksheet 'declarei a variavel workbook (com SET porque é Objeto) Set Wb = Workbooks("Posição Hora Hora - Entressafra.xlsm") 'Ativo a Pastrab com os dados do Superação Wb.Activate 'declarei a variavel worksheet(com SET porque é Objeto) Set WsP1 = Worksheets("Entressafra") 'Seleciono a plan com os dados WsP1.Select Application.Speech.Speak Range("i5") End Sub<> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' <>Sub UltimoAviso() Application.Speech.Speak ("Enviando e-mail em 5 segundos") End Sub<> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' <>Sub testeBomDia() Select Case Time$ Case "00:00:01" To "11:59:59" Application.Speech.Speak "Bom dia " & Application.UserName Case "12:00:00" To "17:59:00" Application.Speech.Speak "Boa tarde " & Application.UserName Case Else Application.Speech.Speak "Boa Noite " & Application.UserName End Select End Sub<> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

@Basole eu sei, complicado sim, rs. É que de dia (horario normal, rs) eu durmo e ajudo minha Esposa no trabalho dela (sem falar nas crianças). Mas ta beleza, agradeço pelo feedback Amigo. Se puder, vamos trocando uma ideia por whatsapp, pode ser? Me passsa o seu no [email protected]. Abraço, fica com Deus

Pessoal, bom dia. Sou novo aqui então não sei ainda como começar mas vamos la. Eu trabalho de madrugada (23h-07h) em uma Empresa e consigo ter uma certa flexibilidade para tentar aprender algo. Como noto que o VBA é uma grande ferramenta e AMO o Excel, resolvi focar no VBA e me aprimorar mais na ferramenta. Eu gostaria de saber se tem aqui algum usuario que poderia trocar uma figurinhas comigo durante esse horario da madrugada (em 6x1) (a gente combina o canal, whatsapp, skype, sei la) para conversar sobre VBA e assim eu puder pegar o jeito da coisa mais fácil. Claro, trocar experiencia sim e não apenas ensinar. Gostaria de poder contar com a atenção de vcs, desde já agradeço.