Bikke

Osvaldo Eu pensei que esse código VBA retornasse o mês pretendido e que não seria necessário eu dizer que era só o mês que se encontra em L4, porque é o óbvio. Pensei também, que tu mesmo pensasses nessas possibilidades, mas, as minhas desculpas pela falta das palavras nesse sentido. Sendo assim, coloquei registos referentes ao mês de Maio ( 05 ) até ao mês de Setembro ( 09 ) de 2019, para teres uma ideia. O código VBA, deverá ter opções para os meses de Janeiro até Dezembro, conforme estiver na célula L4 na Aba Compensações2018 e em L4 da Aba Compensações2019 Obrigado Cumprimentos Compensações_2019_V5.xls

Osvaldo Obrigado, assim já funciona direitinho. Mas, tem uma coisa que verifiquei agora. Se eu, na Aba Compensações2018 ou Compensações2019, alterar em L4 o mês que pretendo ver, aparece-me esse mês e todos os outros meses que lá estiverem, e não é isso que eu pretendo, mas sim só o Mês que estiver em L4. Vê-me isso, sff. Obrigado desde já pela ajuda Cumprimentos

Boa noite osvaldo Provavelmente não percebi o que querias dizer, e sendo assim, alterei a ordem dos nomes para ficar tudo igual, porque interessa-me que a data fique no fim da ordem. Não sei se, com isso, mexeu com o código VBA que deste, se aconteceu isso, peço desde já as minhas desculpas, pois não sabia. Coloquei o teu código VBA, mas as Datas não ficaram por ordem crescente. Peço que dês uma vista de olhos, sff. Segue a planilha anexada, para melhor se entender. Obrigado desde já pela tua disponibilidade. Bom domingo Cumprimentos Compensações_2019_V5.xls

Bom dia Vê lá agora se está como pretendes. 30_08_19_LotoFácil_Patropi (1).xlsx

Boa noite Venho solicitar uma pequena ajuda. Tenho uma planilha na qual se regista os dias de determinado mês que o funcionário pretende gozar de folga ( Compensação ), que se encontram na Aba Ano2018 e Aba Ano2019. Depois, escolhe-se o mês que se pretende ver os dias desse mesmo mês, na Aba Compensações2018 e Aba Compensações2019. O que é que eu pretendo?? Que nas Abas Compensações2018 de J4 a J47 e Compensações2019 de J4 a J47, fiquem por ordem crescente de Data. Dados esses que veem das Abas Ano2018 e Ano2019 respectivamente. Assim, sempre que se faça um registo, o mesmo seja actualizado automaticamente nas Abas que referi em cima. De referir que, nas Abas Ano2018 e Ano2019, os dados estão ordenados por Ordem de Nome, e pretendo que se mantenham assim, por causa da organização pessoal e funcional. Obrigado desde já. Cumprimentos Compensações_2019_V5.xls

Coloca uma planilha no Forum com aquilo que pretendes, pois assim já te podem ajudar. Cumps

Boa noite osvaldomp Excelente, excelente, excelente Nem mais, era isto que eu queria mesmo. Usei a segunda opção, Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target.ClearComments Target.AddComment 'sem texto SendKeys "+{F2}" Cancel = True End Sub Não me desactivou o NumLock Experimentei tanto dentro do Comentário como fora, e ficou a funcionar bem. Eu já não tenho adjectivos para qualificar o teu magnífico trabalho. Bem haja pessoas como tu que perdem um pouco do seu tempo para ajudar aqueles que necessitam de ajuda. Que Deus te dê, toda a Sorte, Saúde e Felicidade, pois bem mereces. Os meus agradecimentos por mais uma ajuda. Continuação de uma boa semana. Cumprimentos

Sim Patropi Testei, ao fim de inserir os Comentários que quero, clico num botão e a Macro faz acionar uma ImputBox e tenho que inserir o nome antigo e coloco depois o nome que quero e ele altera todos os comentários que existirem. E assim sucessivamente, eu pretendia era que ao inserir um Comentário o código VBA me faça isso automáticamente, onde eu já tenho o nome que quero ao inserir o dito Comentário, e não o tenha que fazer manualmente. Entendes?? Cumps

Boa tarde Patropi Eu já andei a vasculhar na Net e encontrei isso, obrigado pela atenção. Isso faz com que eu tenha que fazer manualmente cada Comentário que inserir, ( e por vezes faço 50 a 60 comentários num só arquivo mensalmente ), o que eu pretendo é, sempre que for inserir um Comentário, o nome mude automáticamente para o pretendido. Obrigado na mesma pela atenção. Cumps

Boa noite Venho pedir uma ajuda para um arquivo que uso no trabalho. Pretendo o seguinte, sempre que inserir um comentário no arquivo, o nome que estiver no registo do Office quando foi feita a instalação, seja substituído automáticamente por outro ou algo diferente a meu gosto. Exemplo, quando instalei o Excel 2007 coloquei o nome do Bikke, assim, sempre que inserir um comentário o nome desaparece e aparece automáticamente em seu lugar 6 pontinhos, ...... Eu sei que bastava ir ás opções do excel e trocar o nome pelos pontinhos, mas eu transporto o arquivo para outros computadores, e cada um tem um nome de registo colocado, e outros não posso alterar o nome do Registo no Excel, pois é Proibido, pretendo assim, ao inserir um comentário esse nome seja alterado sempre para os tais 6 pontinhos ( ...... ) Calculo que tenha que levar um código VBA que faça isso automaticamente. O arquivo é para ser usado tanto no Excel 2003 como no Excel 2007. Obrigado Bom fim de semana Cumprimentos Nome.Comentário_2019.xls

Boa noite Resolvi fazer de outra maneira. Coloquei o dia do inicio das férias Coloquei o fim das férias Coloquei os dias gozados ( e é aí que entra a fórmula do Patropi, excepto o -1 E coloca-se à mão o dia da apresentação. Foi assim, eliminado da fórmula o dia da apresentação, continuando a fórmula a não contabilizar os Sábados, Domingos, Feriados. Obrigado pela ajuda Patropi. Continuação do resto de uma boa semana. Cumps

Já sei porque é que dá aquele erro A planilha é para estar protegida, mas, tem que estar activado o Editar objectos, conforme mostra na imagem. Assim, isto já está resolvido. Obrigado por tudo osvaldomp. Sem ti, não conseguiria resolver este meu projecto. Muito obrigado Bom semana de trabalho. Cumps

Sim, é verdade, mas devia dar 1 e não 0.

Não entendo o que se está a passar. Agora clico para apagar, os números desaparecem, ,mas as chavetas continuam lá. Basta colocar o numero na primeira e apaga tudo. Grrrrrrrr

Osvaldomp Coloquei o código que deste, e já funciona direitinho, mas, quando vou apagar o 1 ou o 2, aparece a mensagem que está na imagem.

Após uma maior observação às datas, verifiquei que em alguns casos, o resultado dá zero. Exemplo, Inicio das Férias em 26-04-2019 e Apresentação a 27-04-2019, devia dar 1, e o resultado está a dar 0. Peço então a alguém que me possa dar uma ajuda neste projecto. E neste momento ele não foi resolvido, continua em aberto. Obrigado Cumps

Boa tarde Patropi Sim, é isso mesmo. Assim já funciona. Acrescentei isto à tua fórmula, pois não gosto de ver nada estranho quando as células estão em branco: =SE(H106="";"";(DIATRABALHOTOTAL(H106;I106;$S$3:$S$30))-1) Assim, quando estiver em branco, no outro lado também não aparece nada. Obrigado Patropi E obrigado também para o deciog Continuação de um Bom Domingo Cumps

Boa tarde osvaldomp Copiei e colei o primeiro código, testei, funcionou direito, copiei e colei o segundo, começou a dar erros. If Not Intersect(cha.TopLeftCell, Columns(2)) Is Nothing Then cha.Delete Fica com a cor amarela o que coloquei em cima e está com a cor vermelha Outra coisa que acontece é: se eu colocar a chaveta e depois quiser que colocar o x para que eu saiba que ficou sem efeito, aparece a linha vermelha e a dizer sem efeito, mas, a chaveta desaparece...

Boa tarde deciog Fui espreitar a coluna J2 e a formula inserida está assim: =_xlfn.NETWORKDAYS.INTL(H2; I2;;$S$3:$S$30) O meu Excel 2007 é em Português de Portugal, e não sei o que é isto: _xlfn.NETWORKDAYS.INTL E isto é para trabalhar também no Excel 2003 Coloquei em H105 a data de 28-06-2019 e em I105 a data de 01-07-2019, e em J105 apareceu isto : #NOME? Aliás, em toda a coluna J, aparece assim: #NOME? Tanto no Excel 2003 e no Excel 2007 em Português de Portugal, aparece #NOME? Eu não uso o Excel em Inglês, tanto em casa como no trabalho, é tudo em Português de Portugal Podes ver isso, sff?? Obrigado desde já pela tua ajuda Cumps

Bom dia Venho solicitar ajuda no seguinte. Gostaria que, em J2 a J124 aparecessem os dias de férias gozados, mas não fossem contabilizados os Sábados, Domingos, Feriados de cada mês e o dia da Apresentação também não conta, só os dias úteis serão contabilizados. A data que inicia as Férias está na célula H2 a H124 A data em que se apresenta de Férias está na célula I2 a I124 Os feriados estão inseridos em nas células S3 a S30 Obrigado Cumps Livro de Férias_2019_V1.xls

Boa Noite osvaldomp Sim, é através desse recurso que eu pretendo, ou outro que faça o mesmo efeito. Neste momento falei que, através de números inserido o 1 apanha duas células distintas, e se colocar o 2 apanha duas também, mas com uma de intervalo ( célula ), e isso ao longo da coluna. Mas, se houver outro critério que faça o mesmo, excelente. Cumps

Boa noite Venho solicitar ajuda no seguinte A usar em Excel 2003 e Excel 2007 em Português de Portugal Tenho uma planilha que, ao se colocar o 1 na célula A6 e A8, aparece automáticamente uma chaveta preta a apanhar as duas células C6 e C8 O numero pode ser colocado desde a célula A6 à A24, porque posso querer o mesmo efeito em A18 e A20, ou em outras células, é conforme o planeado. Se colocar o 2 na célula A10 e A14, aparece automáticamente uma chaveta preta a apanhar as duas células C10 e C14 O numero pode ser colocado desde a célula A6 à A24, porque posso querer o mesmo efeito em outras células, é conforme o planeado. Segue planilha para verem e perceberem o que pretendo. Na planilha já vai com outra opção do x em N6 a N24, feito pelo Mestre osvaldomp na altura que foi solicitado. Obrigado pela atenção Bom fim de semana Cumps Diligencias._V2.xls

Boa tarde evertonportela Um conselho de amigo. Se queres que te ajudem, coloca uma planilha aqui no Forum com dados e o que pretendes. Porque assim sem nada fica mais difícil as pessoas saberem e perceberem o que pretendes. Ok?? Cumps

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

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