Ir ao conteúdo
  • Cadastre-se
Bikke

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

Posts recomendados

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

  • Curtir 1
  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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 2

Compartilhar este post


Link para o post
Compartilhar em outros sites
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

 

  • Haha 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro 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 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!