Bikke

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

Boa noite Uma pequena ajuda, se for necessário e se quiseres usar. Se colocares essas fórmulas pela coluna abaixo, e em F2 estiver em branco, vai te aparecer números em G2, ora, para isso não acontecer, usa os exemplos que coloquei em baixo. Fórmula do: @douglasdasilva2901 =PROCV(ESQUERDA(F2;6)&"*?";$A$1:$B$9;2;0) Fórmula para que não apareçam números em G2 quando em F2 estiver em branco =SE(F2="";"";PROCV(ESQUERDA(F2;6)&"*?";$A$1:$B$9;2;0)) Fórmula do: @osvaldomp =PROCV(ESQUERDA(F2;6)&"*";$A$2:$B$5;2;0) Fórmula para que não apareçam números em G2 quando em F2 estiver em branco =SE(F2="";"";PROCV(ESQUERDA(F2;6)&"*";$A$2:$B$5;2;0)) Foi colocado o SE(F2="";""; Tem me dado imenso jeito. Espero ter ajudado Cumps

Boa noite Saquei a planilha que se encontra no post #12: Cronograma.zip E coloquei os 3 códigos VBA do osvaldomp em EstaPasta_de_trabalho Em todos eles, se eu tentar fechar aparece a Msg para que eu preencha os Campos em B2 e B3, se fizer OK, a planilha não fecha, mas, se eu colocar dados em B2 e B3, e for fechar o Excel, aparece a mensagem a perguntar se deseja guardar as alterações feitas na planilha, e aí já fecha e salva. Agora, se se tentar fechar a planilha sem Preencher as células B2 e B3, a planilha não fecha, mesmo clicando no OK, a planilha fica sempre em aberto e não sai dali. Portanto, se o desejo do participante que postou o tópico é se só dá para gravar a planilha após preencher as células B2 e B3, o código VBA do osvaldomp, faz o desejado. Pelo menos comigo deu, e experimentei todos os códigos postados pelo Mestre osvaldomp no post #13 Espero que tenha sido útil. Cumps

osvaldomp Levei numa PEN à casa de um amigo e testei, agora sim, agora ficou cinco estrelas. Era isto que eu pretendia. Os meus agradecimentos pela excelente ajuda que me deste. Muito obrigado Bom fim de semana Cumps

Boa noite osvaldomp Peço desculpa de só agora responder, mas só no trabalho é que posso testar. Testei no trabalho e o código VBA faz com que sejam imprimidas 3 folhas, imprime a folha activa ( Escala ), a FolhaHoras e volta a imprimir a folha activa ( Escala ). Cliquei na outra Aba, Dia, e faz a mesma coisa, imprime 3 folhas. O que eu pretendo mesmo, é que só imprima a FolhaHoras quando a folha activa for a Aba Escala, se eu estiver em outras Abas, imprima só essa folha e não imprima a FolhaHoras. Este código VBA imprime sempre a folha activa mais a FolhaHoras em qualquer Aba, e eu não pretendo isso. Obrigado desde já pela tua ajuda osvaldomp. Se me puderes resolver este problema, agradecia. Bom fim de semana. Cumps

Boa noite Venho aqui pedir ajuda para algo que pretendo. Eu uso o Excel 2007 e Excel 2003 em Português de Portugal Gostaria que, estando numa Aba ( exemplo Escala ), ao clicar no botão impressora do próprio Excel ou mesmo fazendo Ctrl+P para imprimir os dados que estejam na Aba Escala, ele depois imprima os dados que estejam noutra Aba ( exemplo FolhaHoras ), automáticamente. Claro está, que deve ser necessário algum código VBA. Não pretendo colocar um botão na planilha levando o código VBA para esse efeito, mas sim quando eu clicar no botão do Excel com um simbolo de uma impressora ou clicando nas teclas CTRL+P na planilha da Aba Escala, para imprimir os dados que estejam nessa Aba e da Aba FolhaHoras também. Espero que me tenha explicado bem. Obrigado desde já pela vossa atenção. Cumps Escala_2019.zip

Resolvido

Boa noite Venho aqui com um pedido de ajuda. Tenho uma planilha na qual necessita de estar protegida para evitar precalços. Mas, gostaria, se for possivel, claro, que seja possivel mesmo com ela protegida de me deixar inserir um comentário em determinadas células. Células essas que serão: desde a E7 até à N39, e de AG7 até à CB39 Com a planilha desprotegida, faço click com o botão do lado direito do rato e aparece um menu onde eu posso clicar para inserir um comentário, conforme podem ver na imagem colocada em anexo. Depois de estar protegida, e ao fazer click com o botão do lado direito do rato, já não aparece essa opção no menu, conforme podem ver na imagem em anexo. Gostaria que alguém soubesse como dar a volta a isto, provavelmente com código VBA ou outra maneira, mas a planilha tem que estar protegida. P.S.- A planilha está protegida, mas é só clicar em Desproteger e já está... Obrigado desde já. Cumps Inserir.comentário.em.planilha.protegida_2019.xls adicionado 15 minutos depois adicionado 16 minutos depois adicionado 28 minutos depois Após pesquisa na net, problema resolvido P.S.- Já descobri, quando se está a proteger a planilha, escolher EDITAR OBJECTOS Cumps

Já me resolveram o problema, fica aqui o código VBA para quem precisar. Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False If Target.Count > 1 Then Application.ScreenUpdating = True Application.EnableEvents = True Exit Sub End If If Target.Address(False, False) = "GC48" Then If Target.Value <> "" And IsNumeric(Target.Value) Then Sheets("TARDE").Range("Q54").Value = "" Sheets("TARDE").Range("Q56").Value = "" Sheets("NOITE").Range("Q53").Value = "" Sheets("NOITE").Range("Q55").Value = "" Sheets("DISTRIBUIÇÃO").Range("B42").Value = "" Sheets("DISTRIBUIÇÃO").Range("B46").Value = "" Sheets("DISTRIBUIÇÃO").Range("F42").Value = "" Sheets("DISTRIBUIÇÃO").Range("F46").Value = "" End If End If Application.ScreenUpdating = True Application.EnableEvents = True End Sub Um resto de boa semana para todos. Cumps

Boa noite Venho solicitar ajuda no sentido de: após eu alterar os dados numa determinada célula de uma Aba, os dados que estejam em outras Abas e em determinadas células, sejam apagados. Exemplo: Quando se alterar os dados que estejam na Célula GC48 da Aba ESCALA Os dados da Aba TARDE, células Q54 e Q56, deverão ser apagados Os dados da Aba NOITE, células Q53 e Q55, deverão ser apagados Os dados da Aba DISTRIBUIÇÃO, células B42 e F42, deverão ser apagados Os dados da Aba DISTRIBUIÇÃO, células B46 e F46, deverão ser apagados Obrigado pela atenção Cumps Junho 2019_V1.xls

osvaldomp Já sei o que originou para que no meu excel não desse. Como MOD não funciona, como RESTO, já dá. Laranja =E(F$3>=$B6;F$3<=$C6;RESTO(LIN();2)=1) Verde =E(F$3>=$B6;F$3<=$C6;RESTO(LIN();2)=0) Obrigado ao osvaldomp e ao Patropi pela vossa ajuda. Os meus agradecimentos Um resto de boa semana Cumps

osvaldomp Eu coloquei a fórmula correcta e não deu, mudei para outra e mesmo assim não dá. Segue planilha com a fórmula que colocaste em primeiro, não dá nada na mesma. Não sei o que poderá estar a causar isto. Obrigado Escala de Férias_Maio_2019_V4.xls

Boa noite osvaldomp Obrigado desde já pela tua ajuda. Fiz como disseste, e fui colocar as datas para testar e nada aconteceu. Não sei o porquê. A planilha foi anexada com as formulas que deste para veres onde é que poderá estar o meu erro. Trabalho com o Excel 2007 Obrigado Cumps Escala de Férias_Maio_2019_V4.xls

Boa noite Patropi Fui testar e não faz o que pretendo. Eu pretendo as cores separadas, mas para cada Funcionário e não duas cores para cada um. Se fores ver na planilha que eu enviei, caa funcionário tem só uma cor. Se eu colocar só um Funcionário na planilha, só deverá aparecer a sua cor correspondente. O que fizeste está só nas celulas F6 a BN6 Fui colocar datas em B9 e C9, nada acontece. Obrigado na mesma pela tua disponibilidade Cumps

Boa noite Venho aqui solicitar ajuda. Tenho uma planilha na qual pretendo que ao se colocar uma Data ( Inicio ) em B6 e outra em C6 ( Fim ), as células desde F6 até GN6 fiquem com a cor Laranja, neste caso, as datas que eu coloquei na planilha foi: 02-05-2019 em B6 e 12-05-2019 em C6. Na célula B7 coloquei outra data e em C7 coloquei o fim com outra Data, aqui pretendo que seja colocada a cor verde, desde H7 a S7. Pretendo então, que sempre que se coloque uma data desde B6 a C173, seja colocada uma cor sim Laranja e na linha de baixo uma cor Verde, ficará linha sim linha não. Está na planilha o que eu pretendo, se calhar fica mais fácil perceber, peço desculpa. Obrigado desde já pela vossa atenção. Escala de Férias_Maio_2019_V2.xls

Já está resolvido Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("G7:G211"), Target) Is Nothing And Target.Value <> "" Then MsgBox " ATENÇÃO !!!!!.... ??" & vbLf & _ vbLf & "Só pode voltar a usar este número ao fim de 30 dias...." & vbLf & _ vbLf & " ..... Favor de consultar os números vagos ..... ", vbCritical, "Numeração Geral 2017" End If End Sub

Boa noite Obrigado Funciona sim, só que eu não quero que apareça a Mensagem quando a data ou os dados que estiverem nessas células são apagados, só quando são inseridos. Dá para fazer isso?? Cumps

Boa noite Desejo que ao ser colocada a data em G7 até G211, apareça uma mensagem através de MsgBox. A mesma só deve aparecer quando se colocar a data e não quando se apagar essa mesma data nessa célula e nas restantes. Tenho este código VBA mas não estou a conseguir pô-lo a trabalhar. Private Sub Worksheet_Change(ByVal Target As Range) If Range("G7") > 0 Then MsgBox " ATENÇÃO !!!!!.... ??" & vbLf & _ vbLf & "Só pode voltar a usar este número ao fim de 30 dias...." & vbLf & _ vbLf & " ..... Favor de consultar os números vagos ..... ", vbCritical, "Numeração Geral 2017" End If End Sub Não consigo colocar mais células e não quero que o código intervenha ou tenha influência noutras células, só nas G7 até G211. Obrigado Cumps

É isso mesmo. Obrigado Cumps Tópico resolvido

Boa noite Eu coloquei as formulas aqui no Forum, e elas têm o SE

Boa noite Gostaria que me ajudassem a resolver um problema. Tenho uma planilha com duas abas. Aba data Aba livre Na Aba livre, tenho uma formula que vai buscar as datas à Aba data, só que quando as células estão vazias, apresenta a data 00-01-1900 Eu gostaria que isso não acontecesse, gostaria que a célula ficasse em branco. Em virtude disso, e como tenho uma formula para fazer a diferença entre a data Hoje e a data que possa estar nessa célula, vai fazer as contas à data 00-01-1900. O que eu pretendo também é, se a celula está em branco ( zero ), o resultado deverá ser também a celula ficar em branco e não aparecer: 117 anos, 11 meses e 22 dias A formula para ir buscar a data é esta: =SE(É.ERRO(CORRESP(LIN(A3);data!$K$7:$K$211;0));"";ÍNDICE(data!$F$7:$F$211;CORRESP(LIN(A3);data!$K$7:$K$211;0))) A formula para fazer a DADTADIF é esta: =SE(C9="";"";SE(E(DATADIF(C9;AGORA();"Y")=0;DATADIF(C9;AGORA();"ym")=0);DATADIF(C9;AGORA();"md")&" dias";SE(E(DATADIF(C9;AGORA();"md")=0;DATADIF(C9;AGORA();"ym")=0);DATADIF(C9;AGORA();"Y")&" anos";SE(DATADIF(C9;AGORA();"Y")=0;DATADIF(C9;AGORA();"ym")&" meses, "&DATADIF(C9;AGORA();"md")&" dias";SE(DATADIF(C9;AGORA();"md")=0;DATADIF(C9;AGORA();"Y")&" anos, "&DATADIF(C9;AGORA();"ym")&" meses";DATADIF(C9;AGORA();"Y")&" anos, "&DATADIF(C9;AGORA();"ym")&" meses, "&DATADIF(C9;AGORA();"md")&" dias"))))) Podem me ajudar, sff?? Obrigado Cumps

Assunto Resolvido Obrigado Cumps

Ser puder ser com o som que eu incluí no topico era o ideal. Mas se não for possivel, poderá ser um som do Windows, de nome "Tada.wav"

Boa Noite Venho aqui solicitar uma ajuda. Precisava que, quando na célula N3 à N30 tivesse o número 12, tocasse um som. Obrigado desde já a todos. Cumps P.S.- Segue em Anexo a planilha e o som Chimes.wav Numeros Certos_Toca Musica.xlsx