Bikke

Boa noite DJunqueira Sim, fui testar e funciona sim. Obrigado Cumps ..............................................................................................................xxx.......................................................................................... Boa noite OreiaG É exactamente isso que pretendia. Obrigado Cumps

Boa noite Consegui resolver E como tal, coloco aqui a solução. Em Q1 e Q2, coloquei as fórmulas a não serem permitdas. ( podem ser colocadas mais fórmulas a não serem permitas, e alarga-se nas células Q ) E na Validação de dados, coloquei a seguinte fórmula: =SE(SE.ERRO(PROCV(J8;$Q$1:$Q3;1;0);"")="";VERDADEIRO;FALSO) Se o mesmo for possível fazer em VBA, agradecia. Obrigado P.S. - Segue em anexo a planilha Lançamento.de.Horas.xls

Boa tarde Venho solicitar ajuda para uma situação, sff. Pretendo que, na célula J8, só seja permitido colocar uma data, exemplo: 10-02-2024, não quero que coloquem texto ou mesmo fórmulas, como por exemplo: =HOJE(). Eu sei que =HOJE() pertence ao Excel, mas não quero que isso seja permitido. Já fui em Dados/Validação de Dados/Definições/etc/etc, conforme está na imagem abaixo Mas deixa colocar fórmulas na célula J8, e eu não quero que isso seja possível. É possível fazer isso em VBA e que só seja permitido colocar uma data e nada mais?? Se for possível fazer isto em VBA, pretendia também que, se não colocarem uma data, que apareça uma mensagem a dizer: "Dados inseridos não permitidos, favor de colocar uma data válida. Obrigado." E após isso que limpe os dados inseridos na célula J8. Obrigado desde já. Bom fim de semana Cumps Lançamento.de.Horas.xls

Boa tarde Desde já as minhas desculpas pela minha falha, e pela hora tardia e o sono a ajudar, não reparei correctamente na fórmula. Sim, agora já funciona correctamente. Os meus sinceros agradecimentos aos dois, ( Edson Luiz Branco e Patropi ), pela ajuda que me deram. Bom fim de semana Cumps

Bom dia Edson Obrigado desde já pela ajuda que me estás a dar. Coloquei a fórmula e deu erro: #NOME? Cumps

Boa noite Venho solictar ajuda na construção de uma fórmula que faça o seguinte. Pretendo que, a fórmula veja se existe um determinado número na Aba FeriasBaixasOutros desde a célula BQ8 a BX38 igual ao que estiver na célula A11, se existir, então, deverá aparecer as palavras: Acidente Serviço na célula G11, se não existir, então deverá ficar em branco. Já tentei com esta fórmula, mas dá erro, logo, não estou a fazer direito. =SE(A11=FeriasBaixasOutros!BQ8:BX38;"Acidente Serviço";"") Se me puderem ajudar, agradeço Obrigado desde já. Cumprimentos

Bom dia Perfeito É isto mesmo. Muito obrigado Cumprimentos

Boa noite Venho pedir ajuda para poder combinar três dados de três células numa só. Ou seja, na célula Z3 está o dia (01), na célula AA3 está o mês (Outubro) e na célula AB3 está o ano (2023). Gostaria que a célula AA4 ficasse assim: 01-10-2023. O que está nas células Z3, AA3 e AB3 tem que ser assim, pois preciso que fique como está para funcionar como pretendo, pois estão a ir buscar dados na Aba Escala. Obrigado Cumprimentos Dia do mês.xls

Agora sim, agora funciona cinco estrelas. Os meus agradecimentos. Muitissimo obrigado Bom fim de semana Boa Páscoa. Cumps

Não me refiro a esse código Mas sim a este Sub SEARCH() Dim wsM As Worksheet Dim ws As Worksheet Dim LR As Long Dim LRM As Long Dim r As Long Set wsM = Sheets("Mensal") For Each ws In ThisWorkbook.Worksheets With ws If Left(LCase(.Name), 3) = "ano" Then LR = LastRow(ws, 8) For r = 4 To LR If .Cells(r, 8) >= wsM.Range("A2") And .Cells(r, 8) <= wsM.Range("A3") Then LRM = LastRow(wsM, 3) + 1 .Range("B" & r & ":I" & r).Copy wsM.Range("B" & LRM) = .Name wsM.Range("C" & LRM).PasteSpecial xlPasteValues End If Next End If End With Next wsM.Range("B6:J" & LastRow(wsM, 3)).Sort wsM.Range("I6"), Header:=xlYes End Sub Function LastRow(ByVal ws As Worksheet, ByVal Col As Integer) As Long LastRow = ws.Cells(Rows.Count, Col).End(xlUp).Row End Function Eu o coloquei no módulo da Aba Mensal, e depois coloquei as datas, e ao as colocar, devia aparecer o resultado final, e não acontece nada.

Boa noite Obrigado desde já pela tua ajuda. Coloquei o código VBA do SEARCH no modulo da Aba Mensal e depois coloquei a data em A2 ( 01-03-2023 ) e em A3 ( 31-03-2023 ) E não acontece nada. Está alguma coisa errada aqui??

Boa noite Venho aqui solicitar ajuda para uma pesquisa em várias Abas numa planilha. A planilha que vai em anexo, tem várias Abas. Desde a Aba Ano2019 a Ano2030 O que eu pretendo é: Na Aba Mensal, na célula A2 e na célula A3 serão colocadas datas, em A2 eu coloco (exemplo, 01-03-2023 ) que é o primeiro dia do mês pretendido, e em A3 eu coloco o fim do mês pretendido, ( exemplo, 31-03-2023 ) e o código VBA deverá ir buscar a informação às Abas, Ano2019, Ano2020, Ano2021, Ano2022, Ano2023, Ano2024, Ano2025 até à Aba Ano2030. Os dados deverão ir para a Aba Mensal desde a célula B7 a J41, e deverá ter o nome da Aba, o Nº da pessoa, o Nome da pessoa, os serviços, os Turnos, a Data a gozar e o Periodo do dia a gozar, referente ao mês que escolhi de todas as pessoas que gozaram nesse mesmo mês e por ordem de data ( por ordem crescente ). Já coloquei um mês como exemplo para verem o que pretendo. Quando digo que é para colocar o inicio do mês em A2 e em A3 o fim do mês, também pode ser na célula A2 se colocar Março 2023 e o código VBA fazer a mesma função, ou outra função que faça o que pretendo, o que interessa é o resultado final ser o mesmo que se encontra na Aba Mensal. Pretendo também que, assim que se colocar a primeira data na Aba Mensal na célula A2, deverá limpar toda a área de B7 a J41. Espero que me tenha explicado bem. Obrigado desde já. Cumprimentos 1792435093_Compensaes_2023_V8.xls

Experimenta isto. - Clica em Opções do Excel - Depois clica nos locais conforme as imagens abaixo: Depois clica em OK e novamente em OK Salva o Excel e de seguida fecha-o. Abre-o de novo. Depois diz se resolveu o teu problema. Cumps

Boa tarde Aqui tens para ti e para quem quiser. Cumps Mundial_2022.xls

@Edson Luiz Branco Desculpe me meter no assunto, para o mês não ficar com a inicial em minúscula, coloquei a fórmula assim: =SE(A2="";"";INICIAL.MAIÚSCULA(TEXTO(A2;"mmmm")&TEXTO((MÊS(A2)-1)*300+SOMARPRODUTO( ($A$2:A2<>"") *(MÊS($A$2:A2)=MÊS(A2)));" 0000"))) E o mês fica assim Janeiro em vez de janeiro. Uma boa noite Cumps