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

Bikke · 21 de junho de 2019

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

**osvaldomp** · 24 de junho de 2019

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

Bikke · 24 de junho de 2019

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

**osvaldomp** · 24 de junho de 2019

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