Ir ao conteúdo

Excel Imprimir noite só com a data do dia seguinte inserida, Excel 2007 e 2003


Ir à solução Resolvido por Visitante,

Posts recomendados

Postado

Boa noite

 

Venho aqui solicitar ajuda para o seguinte:

 

- Quero que, a planilha só seja permitida imprimir se a data for superior ao dia de hoje em C9, quando tiver a hora de Entrada ( E11 até E34 ) às 00:00 e a hora de Saída ( F11 até F34 ) ás 08:15, ou quando tiver a letra n em H11 até H34

 

Exemplo, hoje é dia 21-06-2019, se eu quiser imprimir as horas das 00:00 ás 08:15, em C9 terá que estar a data de 22-06-2019, ( dia seguinte ) se não, não imprime e deverá aparecer uma MsgBox a avisar-me para colocar a data do dia seguinte para imprimir.

 

Se for para imprimir outro tipo de horas que não seja das 00:00 às 08:15, deverá ser permitido fazê-lo.

 

Espero que tenha conseguido me explicar direito.

 

Planilha para ser usada em Excel 2003 e no Excel 2007 em Português de Portugal

 

Obrigado pela atenção

 

Bom fim de semana

 

Cumps

Lançamento.de.Horas_V1.zip

Postado

Olá, Cumps.

Veja se entendi corretamente.

O código abaixo não irá imprimir somente se :

E11:E34 = 00:00 e F11:F34 = 8:15 e C9 <> data +1

nos demais casos irá imprimir.

 

Sub IMPRIMIRHORAS()
 Dim R As String
   R = MsgBox("  QUER IMPRIMIR AS HORAS DO SEU TURNO ????" & Chr(13) & _
   vbLf & "                             " & _
   vbLf & "   VERIFIQUE O PAPEL NA SUA IMPRESSORA!!", vbYesNo + vbInformation, "Atenção")
   If R = vbNo Then
   MsgBox "Impressão Cancelada!!", vbInformation, "Atenção"
   Exit Sub
  End If
    
    With Sheets("MapaHoras")
     If Application.CountIf(.[E11:E34], "00:00") = 24 And _
      Application.CountIf(.[F11:F34], "8:15") = 24 And .[C9] <> Date + 1 Then
      MsgBox "COLOQUE A DATA CORRETA EM C9": Exit Sub
     Else
      .PrintOut Copies:=1, Collate:=True
     End If
    End With
    
End Sub

obs. acrescentei a parte entre With ... End With, o restante mantive cópia do seu código

Postado

Boa tarde osvaldomp

 

Obrigado desde já pela tua ajuda.

 

Copiei e colei o código em três sitios e em nenhum ele faz o que pretendo.

 

Colei no módulo 3, e cliquei no botão para imprimir e ele imprimiu imdependentemente, se em E11 até E34 tivesse a hora que tivesse e em F11 até F34 tivesse a hora que tivesse, mesmo eu colocando a hora 00:00 e 08:15 e colocasse a data de 24-06-2019 em C9, ele imprime na mesma e não devia.

 

Ele imprimir fora daquele horário é normal, agora das 00:00 e 08:15 sem ter a data do dia seguinte é que não devia.

 

Porque se eu pretendo que, se hoje é dia 24-06-2019, e pretendo que imprima as horas de 00:00 e 08:15, em C9 tem que ser inserida a data de 25-06-2019, mas não, imprime na mesma.

 

O mesmo se passa quando coloquei o código em:  no módulo MapaHoras e no módulo EstaPasta_de_trabalho

 

Já agora, peço desculpa por não o ter mencionado antes no meu primeiro Post, que a folha a imprimir é a FolhaImprimir e não a MapaHoras.

 

Junto em anexo a planilha para veres, sff

 

Obrigado pela atenção

 

Cumps

 

 

Lançamento.de.Horas_V2.xls

  • Solução
Postado

Olá, Cumps.

O módulo no qual você instalou o código (Module3) está correto.

Fiz os testes no arquivo que você disponibilizou e está funcionando exatamente como eu comentei antes, isto é, não imprime se E11:E34 = 00:00 e F11:F34 = 8:15 e C9 <> data +1. Nas demais situações irá imprimir.

Veja os prints abaixo. No primeiro C9 = 24/06/2019, então não imprime, já no segundo C9 = 25/06/2019, então imprime.

E veja uma cópia do seu arquivo que anexei já com alteração da planilha a ser impressa e coloquei uma Caixa de Mensagem no lugar do comando que imprime somente para efeitos dos seus testes. Se ainda não funcionar experimente desfazer a mesclagem de células em C9:G9.

 

  image.png.3db6cdc1ef23fdaf31e24e6ffc699c49.png

image.png.3337474e3f9c70241424e5f62df040f1.png

Lançamento.de.Horas_V3.xls

Postado

Boa noite osvaldomp

 

Sinto-me envergonhado, pois eu colei e não deu, agora você me devolve e já dá, nem sei o que dizer.

 

Tenho que lhe pedir desculpas, pois não sei responder o que aconteceu.

 

O meu muito obrigado por me teres resolvido o meu problema.

 

Graças a Deus que existem pessoas como tu, para dar uma mão a quem precisa.

 

Mais uma vez obrigado.

 

Continuação de uma boa semana.

 

Cumps

  • Curtir 1
Postado
10 minutos atrás, Bikke disse:

 

 ... pois não sei responder o que aconteceu.

 

 

Algum Duende infiltrado no Excel :tw_tounge_wink:

image.png.aa9e4f763e71eccfe7536069b437f826.png

 

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

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!