Ir ao conteúdo

Ismael Souza

Membro Pleno
  • Posts

    31
  • Cadastrado em

  • Última visita

Reputação

2
  1. @AfonsoMiraObrigado pela resposta rápida ! Desconheço o VBS.
  2. Bom dia pessoal ! Tudo bem? Gostaria de solicitar ajuda para a seguinte ajuda : Preciso criar um agendamento para as call Call AbrirPlanoSop.AbrirSOP Call ArrumaPlano.Arruma Call Planejar.Plano Essas call devem rodar a cada duas semanas, toda sexta feira da segunda semana, sendo a primeiro semana (ou semana 1) , a semana do dia 03/01/2021, ou seja, 03/01/2021 à 09/01/2021 corresponde a semana 1, 10/01/2021 à 16/01/2021, corresponde a semana 2, na sexta feira dia 15/01/2021, eu deveria rodar essas calls. Eu nao tenho a minina ideia como criar uma macro agendando essas call Alguém poderia me ajudar com isso ? por favoor
  3. @basole Perfeito, deu certo ! Obrigado mais uma vez !
  4. @Basole Não me expressei direto... O codigo abaixo é um agendamento, abre o arquivo (sUFile) as 6hs e deve fechar o mesmo que está aberto as 23hs. AbreArquivo = 6hs (o que você me ajudou com o sUFile FechaArquivo = 23hs (preciso burscar o arquivo com o mesmo nome do sUFile) Seria u Sub executa() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim dayWeek As Integer dayWeek = Weekday(Date) If Not dayWeek = 6 Or dayWeek = 7 Then scheduleTime = nightTime If CInt(Hour(Now)) < nightTime Then ' Se ainda não é 23h Call scheduleVBA(scheduleTime) ' agenda execução para 23h Call AbreArquivo.AbrirPainel Exit Sub ' não tem motivo pra continuar... sai da macro Else ' Agora é 23h Call scheduleVBA(scheduleTime, stopSchedule) Call FechaArquivo.FechaPainel End If End If 'agenda execução para 6h scheduleTime = morningTime Call scheduleVBA(scheduleTime) Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub entendeu?
  5. @Basole As 23 horas eu preciso atraves do "windows.activate" ir nesse arquivo que estara aberto e fechalo, mas ele estará com esse nome variável.. como faço isso?
  6. @Basole Levando em consideração o código abaixo em junção ao código que você propos, a String sUFile está ficando vazio na ultima parte do loop ! Fiz a depuração e não está funcionando, não abre nada por essa string ficar vazio ! Dim PathTgt As Variant PathTgt = ano & "\" & mes1 & ". " & mes & "\W" & semana & "\" & dia ' ex = '2021/1. JANEIRO/W2/01 Dim sFile As String Dim sUFile As String Dim sPath As String Dim dDLmd As Date Dim dUdDate As Date sPath = "\\105.103.12.249\OQC\11. PLANOS DIÁRIOS\3. PAINEL DE DEMANDA\" & PathTgt If VBA.Right(sPath, 1) <> "\" Then sPath = sPath & "\" sFile = VBA.Dir(sPath & "*.xlsm", VBA.vbNormal) If VBA.Len(sFile) = 0 Then Exit Sub End If Do While VBA.Len(sFile) > 0 If VBA.Left(sFile, 14) = "Painel Demanda_" Then dDLmd = VBA.FileDateTime(sPath & sFile) If dDLmd > dUdDate Then sUFile = sFile dUdDate = dDLmd End If End If sFile = VBA.Dir Loop If sUFile <> "" Then Workbooks.Open sPath & sUFile
  7. Alguem poderia me ajudar com o seguinte caso ? Com o código abaixo eu salvo um arquivo excel, em uma determinada pasta. Dim filePathName As String filePathName = rootPath1 & "\" & "Hardware Plan" & ".xlsm" If Dir(filePathName) = "" Then ActiveWorkbook.SaveCopyAs filePathName Else filePathName = rootPath1 & "\" & "Hardware Plan" & "_" & Format(Now(), "yyyymmwwddhhmmss") & ".xlsm" ActiveWorkbook.SaveCopyAs filePathName End If Depois com um outro arquivo eu tenho que que abrir esse arquivo mais atual salvo mas não estou conseguindo fazer isso. Poderiam me ajudar com um codigo que abre a planilha mais atual (filePathName = rootPath1 & "\" & "Hardware Plan" & "_" & Format(Now(), "yyyymmwwddhhmmss") & ".xlsm") dentro da pasta? Tambem, em um agendamento que tenho preciso ir até esse arquivo que está aberto e fechar, mas ele vai estar com o nome variado, não tenho ideia como fazer. Obrigado pessoal !
  8. Ola @InforMira Obrigado pela resposta ! Dim fso As Scripting.FileSystemObject Nessa definição, está aparecendo uma mensagem que que o tipo definição não foi definido Sendo abaixo o código completo : Sub AbrirPainel() Dim dia As String dia = Format(Day(Date), "00") Dim mes As String mes = UCase(Format(Date, "MMMM")) mes1 = Month(Date) Dim ano As String ano = Year(Date) Dim tgtDay As Integer Dim DayName As Variant tgtDay = Weekday(Date, [vbSunday]) Select Case tgtDay Case 1 Case 2 Dim DDS As String DDS = "MONDAY" DayName = DDS Case 3 Dim DDT As String DDT = "TUESDAY" DayName = DDT Case 4 Dim DDQ As String DDQ = "WED" DayName = DDQ Case 5 Dim DDQT As String DDQT = "THURSDAY" DayName = DDQT Case 6 Dim DDST As String DDST = "FRIDAY" DayName = DDST Case 7 Dim DDSB As String DDSB = "SATURDAY" DayName = DDSB End Select Dim semana As Variant semana = WorksheetFunction.IsoWeekNum(Date) Dim PathTgt As Variant PathTgt = ano & "\" & mes1 & ". " & mes & "\W" & semana & "\" & dia Dim sFldr As String Dim fso As Scripting.FileSystemObject Dim fsoFile As Scripting.File Dim fsoFldr As Scripting.Folder Dim dtNew As Date, sNew As String Const sCSVTYPE As String = "Microsoft Office Excel Comma Separated Values File" Set fso = New Scripting.FileSystemObject sFldr = "\\105.103.12.249\OQC\11. PLANOS DIÁRIOS\3. PAINEL DE DEMANDA\" & PathTgt Set fsoFldr = fso.GetFolder(sFldr) For Each fsoFile In fsoFldr.Files If fsoFile.DateLastModified > dtNew And fsoFile.Type = sCSVTYPE Then sNew = fsoFile.Path dtNew = fsoFile.DateLastModified End If Next fsoFile Workbooks.Open sNew Dim wbk As Workbook Set wbk = ActiveWorkbook With wbk Sheets("PAINEL DEMANDA").Select ActiveSheet.combobox1.Text = DayName End With End Sub Como posso resolver isso? Obrigado mais uma vez pela ajuda ! grande ajuda ! Erro: Tipo definido pelo usuário não definido
  9. Olá pessoal ! Alguem poderia me ajudar com o seguinte caso ? Com o código abaixo eu salvo um arquivo excel, em uma determinada pasta. Dim filePathName As String filePathName = rootPath1 & "\" & "Hardware Plan" & ".xlsm" If Dir(filePathName) = "" Then ActiveWorkbook.SaveCopyAs filePathName Else filePathName = rootPath1 & "\" & "Hardware Plan" & "_" & Format(Now(), "yyyymmwwddhhmmss") & ".xlsm" ActiveWorkbook.SaveCopyAs filePathName End If Depois com um outro arquivo eu tenho que que abrir esse arquivo mais atual salvo mas não estou conseguindo fazer isso. Poderiam me ajudar com um codigo que abre a planilha mais atual (filePathName = rootPath1 & "\" & "Hardware Plan" & "_" & Format(Now(), "yyyymmwwddhhmmss") & ".xlsm") dentro da pasta? Obrigado pessoal !
  10. @Midori obrigado pela ajuda.. eu coloco numa Sub comum e chamo essa sub?
  11. Bom dia pessoal ! Alguém teria um código simples para que eu selecione uma sheet a cada um minuto, quando eu chegar na ultima volte pra sheet 1 ? Obrigadi
  12. Alguem pode me ajudar, por favorrrrrrrrrrrrr ?
  13. ola pessoal.. Na tabela em anexo tem um arquivo onde, tem um rawdata e na segunda aba tem o resumo, como fosse uma tabela dinamica.. Gostaria de pedir, qual o codigo que vocês usariam para fazer essa tabela da aba resumo, sem ser tabela dinamica... obrigado desde ja PLANO DE PRODUÇÃO.xlsx
  14. Obrigado @midori deu certo !
  15. Ola @Midori ! O Código enviado por você criou uma pasta com o mes "JANEIRO" e não "AGOSTO". Como posso arrumar?

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...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!