Bikke

Esse problema já foi colocado aqui há já algum tempo e parece que foi resolvido. Vê se te ajuda também. Vê aqui: https://www.clubedohardware.com.br/forums/topic/10436-barra-de-menus-do-word-sumiu/

@João Paulo Lucas Faz assim: 1º - Clicas em Programador 2º - Clicas em Modo de Estrutura 3º - Clicas no Botão que queres mudar o nome 4º - Clicas em Propriedade 5º - onde diz Caption, á frente está o nome, mudas para o nome que queres Depois disso feito, clicas de novo em Modo de Estrutura, para desactivar o botão. E pronto Segue imagem para veres

Ao clicar para Gerar Cartelas, dava erro: Como mudaste o nome da planilha, o erro era aqui: Windows("Bingo.xlsm").Activate 'Ativar esta planilha Mudei o nome para o correcto: Windows("Bingo_Atualizado.xlsm").Activate 'Ativar esta planilha Agora sim, já funciona...

Boa noite Excelente @osvaldomp . Ficou cinco estrelas. Os meus agradecimentos, pela tua paciência e pela tua excelente ajuda. Continuação de uma boa semana. Cumprimentos.

E se em vez de Labels, for uma CheckBox ?? Queria evitar que se escrevesse, e sim, ao se clicar nas CheckBox aparecesse " Junta Médica Pedida " em uma célula á frente, neste caso poderia ser em N8. Ou colocar Caixas de Verificação.

Ups Já alterei e não aparece mais. Peço desculpa, pois não pensei que isso pudesse ter influência no resultado final, e tem. Corrigido. Peço-te então, que se pudesses ajudar nas Labels, que é o que me falta. Os meus agradecimentos e desculpa todo este transtorno. Cumprimentos

Planilha anexada para veres. Ou então é o meu excel que está marado.. Junta.medica_V0.xls

Estamos a falar da mesma planilha. Olhe a imagem que anexei. Formula: =SE(OU(E(G8=9;I8<>"";I8>=85);E(G8=188;I8<>"";I8>=55));"Pedir Junta Médica";"") Só devia aparecer quando aparecesse 85

Obrigado osvaldo, mas não resolveu. Eu coloco o número 9 G8, e depois coloco a data ( 20-12-2019 ) em I8, dá 30 dias, à data de hoje (19-01-2020), aparece logo a mensagem "Pedir....", não devia, pois só aos 85 dias. A tua formula: =SE(M9="Sim";"";SE(OU(E(G9=9;I9<>"";I9>=85);E(G9=188;I9<>"";I9>=55));"Pedir Junta Médica";"")) Retirei o que se encontra a vermelho em cima: =SE(OU(E(G8=9;I8<>"";I8>=85);E(G8=188;I8<>"";I8>=55));"Pedir Junta Médica";"") Pois sem o Sim a funcionar, não me interessava essa parte. E a mensagem aparece antes da data prevista, não devia. Quando às Labels, ao se clicar aparecer a palavra Sim, eu fiz-te um pedido de resolução nesse campo no Post #5, e até agora tenho estado à espera da tua preciosa ajuda. Se não for muito incomodo, gostaria que me desses uma ajuda aí. As Labels vão desde a Label 1 célula M8 até à Label 60 célula M67 Obrigado Cumprimentos

Boa noite osvaldo Osvaldo, coloquei a formula que tu disseste: =SE(OU(E(G8=9;I8>=85);E(G8=188;I8<>"";I8>=55));"Pedir Junta Médica";"") parecia estar tudo bem, mas pelo que eu agora vejo, não está. Eu coloco o numero 9 em G8 até G67, e aparece logo a mensagem "Pedir......", e assim que eu coloco a data em H8 até H67, a mensagem desaparece. Não estou a perceber nada disto. Só acontece com o número 9, se eu colocar o número 188, não aparece a mensagem "Pedir.....". Porque é que isto acontece??? Podes me ver isto, sff ?? Obrigado Cumprimentos Planilha anexada Junta.medica_V0.xls

Boa noite Tens toda a razão osvaldo, peço desculpa pelo lapso. E sim, assim ficou resolvido esse problema na fórmula. Quanto à Caixa de Verificação, voltas a ter razão, é uma Label sim. Peço desculpa por este contratempo e pelo transtorno causado. Post editado Para não me dares nas orelhas, ( ) retirei as células mescladas, e assim, as Labels vão desde a célula M8 até à célula M67, ( são ao todo 60 ). Já agora, para ficar mais operacional, assim que clicasse na Label para fazer aparecer a palavra Sim em M8 até M67, desapareça ( oculte ) a frase "Pedir Junta Médica", que se encontra na célula L8 até L67. Os meus agradecimentos pela tua preciosa ajuda Cumprimentos Planilha actualizada anexada Junta.medica_V1.xls

Boa noite osvaldo Obrigado pela tua resposta. Dar deu, mas tem uma coisa, assim que eu coloco o número 9 ou o número 188 em G8, aparece logo a mensagem, e não deve aparecer, só deverá aparecer quando estiverem reunidas as duas condições, ou seja, quando tiver o número 9 em G8 e quando tiver o número 85 ou superior em I8, ou o número 188 em G8, e quando tiver o número 55 ou superior em I8 é que deverá aparecer a mensagem. O que está a acontecer é assim que eu coloco o Número 9 ou o Número 188 em G8, aparece logo a mensagem, e não deve acontecer. Já agora.. Venho pedir mais uma coisa para ficar completo este projecto. Gostaria que, assim que eu clicar na Caixa de Verificação que se encontra em M8 até M50 ( poderá vir a ter mais ), apareça a palavra Sim por baixo da Caixa de Verificação conforme está na planilha, e quando está desactivada a palavra Sim fica oculta. Obrigado desde já pela tua atenção. Cumprimentos P.S. Planilha anexada Junta.medica_V1.xls

Boa noite Venho solicitar ajuda numa fórmula, na qual não estou a conseguir acertar . Tenho duas células, G9 E I9 Na célula G9, poderá ter dois números, 9 ou 188 Na célula I9, deverá ser igual ou superior a 55 ou igual a 85 ou superior. Ou seja, se na célula G9 tiver o número 9 e na célula I9 tiver o número 85 ou superior, deverá aparecer a mensagem Pedir junta Médica em L9. ou se na célula G9 tiver o número 188 e na célula I9 tiver o número 55 ou superior, deverá aparecer a mensagem Pedir junta Médica em L9. Já tentei com a seguinte fórmula, mas não está a dar, provavelmente falta alguma coisa. =SE(E(G9="188";I9>="55 dia(s)";G9="9";I9>="85 dia(s)";"Pedir Junta Médica");"") Obrigado pela atenção Cumprimentos

Boa tarde osvaldo Resolveu sim senhor. Mais uma para aprender. Os meus agradecimentos Continuação de um bom fim de semana Cumprimentos

Em primeiro lugar quer desejar um Bom Ano 2020 para todos os usuários deste Fórum. Em segundo, venho solicitar um pedido de ajuda. Tenho uma planilha na qual tem 210 linhas, pois vai desde a célula A1 até BO210, e gostaria que ao clicar para imprimir fosse repartido as linhas de impressão em igualdade para cada página, sabendo eu que na ultima poderá não ter o mesmo número de linhas de impressão, mas isso é óbvio. E não está a acontecer isso quando clico para imprimir, mesmo eu mexendo nas configurações das margens, e depois dá-me páginas a mais. Página 1 e página 2, ficam iguais, conforme imagem em anexo... Página 3 fica diferente, conforme imagem em anexo... Página 4 fica igual à página 1 e página 2, conforme imagem em anexo... Página 5 é a última página, conforme imagem em anexo... Se levasse um código VBA, se calhar isso ficava resolvido, ( penso eu, claro ). Daí eu vir aqui solicitar ajuda. Desde já o meu obrigado pela atenção. Continuação de um bom fim de semana. Cumprimentos. Dezembro_linhas_V1.xls

Boa noite osvaldo Simplesmente genial, perfeito. Agora o meu projecto ficou completo. O meu muito obrigado. Continuação de um bom fim de semana. Cumprimentos

Boa noite osvaldo Peço desculpa de abrir o post de novo, mas gostaria de completar uma última coisa neste projecto. Gostaria de ao se colocar o Nº 4, quatro vezes seguido na vertical, desde a célula A6 até à A24, apareça a chaveta conforme está na planilha. Os meus agradecimentos desde já. O código existente é este: ' Código das Chavetas Dim cha As Shape, c As String, b As String, k As Long, x As Long If Intersect([A6:A24], Target) Is Nothing Then Exit Sub For Each cha In ActiveSheet.Shapes If Not Intersect(cha.TopLeftCell, Columns(2)) Is Nothing Then cha.Delete Next cha For k = 6 To 22 Step 2 x = k If Cells(k, 1).Value <> "" Then If Cells(k, 1).Value = 1 And Cells(k + 2, 1).Value = 1 Then c = Cells(x + 1, 1).Address & ":" & Cells(x + 2, 1).Address: k = k + 2 ElseIf Cells(k, 1).Value = 2 And Cells(k + 2, 1).Value = "" And Cells(k + 4, 1).Value = 2 Then c = Cells(x + 1, 1).Address & ":" & Cells(x + 4, 1).Address: k = k + 4 ElseIf Cells(k, 1).Value = 3 And Cells(k + 2, 1).Value = 3 And Cells(k + 4, 1).Value = 3 Then c = Cells(x + 1, 1).Address & ":" & Cells(x + 2, 1).Address b = Cells(x + 3, 1).Address & ":" & Cells(x + 6, 1).Address: k = k + 4 Else: GoTo prx End If Set cha = ActiveSheet.Shapes.AddShape(29, Cells(x, 1).Left + 27, Cells(x + 1, 1).Top, 18, Range(c).Height) With cha.Line .ForeColor.ObjectThemeColor = msoThemeColorText1 .Weight = 2.5 End With If b <> "" Then Set cha = ActiveSheet.Shapes.AddShape(29, Cells(x, 1).Left + 27, Cells(x + 1, 1).Top, 18, Range(b).Height) With cha.Line .ForeColor.ObjectThemeColor = msoThemeColorText1 .Weight = 2.5 End With End If End If prx: b = "" Next k End Sub Cumprimentos Diligencias ao exterior.rar

Boa noite osvaldo Maravilha, está na perfeição. Os meus sinceros agradecimentos. Uma boa noite Cumprimentos

Boa noite Venho solicitar ajuda para completar o código VBA. Gostaria que, ao se colocar o Nº 3, três vezes seguidos na vertical desde a célula A6 até A24, aparecesse a chaveta correspondente, conforme está na planilha. Já possuo o código VBA para a chaveta 1 e para a 2. Como foi o osvaldo que fez o código VBA, venho aqui solicitar ajuda para a chaveta 3. Obrigado Cumprimentos Código VBA das chavetas 1 e 2 Private Sub Worksheet_Change(ByVal Target As Range) Dim s As Shape Dim shp As Shape Dim rng As Range Dim OleObj As OLEObject '''''''''''''' Código VBA das Chavetas '''''''''' Dim cha As Shape, c As String, k As Long, x As Long If Intersect([A6:A24], Target) Is Nothing Then Exit Sub For Each cha In ActiveSheet.Shapes If Not Intersect(cha.TopLeftCell, Columns(2)) Is Nothing Then cha.Delete Next cha For k = 6 To 22 Step 2 x = k If Cells(k, 1).Value <> "" Then If Cells(k, 1).Value = 1 And Cells(k + 2, 1).Value = 1 Then c = Cells(x + 1, 1).Address & ":" & Cells(x + 2, 1).Address: k = k + 2 ElseIf Cells(k, 1).Value = 2 And Cells(k + 2, 1).Value = "" And Cells(k + 4, 1).Value = 2 Then c = Cells(x + 1, 1).Address & ":" & Cells(x + 4, 1).Address: k = k + 4 Else: GoTo prx End If Set cha = ActiveSheet.Shapes.AddShape(29, Cells(x, 1).Left + 27, Cells(x + 1, 1).Top, 18, Range(c).Height) With cha.Line .ForeColor.ObjectThemeColor = msoThemeColorText1 .Weight = 2.5 End With End If prx: Next k End Sub Diligencias ao exterior.rar

Após pesquisar na net e testar na minha planilha, encontrei o correcto e o que pretendia. Aqui deixo o código VBA para quem necessitar. Sub PRINT_ESCALA() Sheets("ESCALA").Unprotect "123" Columns("O:AF").Hidden = True Sheets("ESCALA").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("ESCALA").Select Columns("O:AF").Hidden = False Sheets("ESCALA").Protect "123" End Sub Cumprimentos

Boa noite Venho solicitar ajuda. Pretendo que, ao clicar num botão, o código VBA me oculte algumas colunas e imprima o restante. A área a imprimir é de A3 a CB46, mas, pretendo que antes de imprimir me oculte as colunas de O a AF. Informo também que, essa planilha estará protegida, se o código VBA necessitar de desproteger a planilha, deverá levar também um código para a Desproteger e após imprimir deverá Proteger a planilha e repor as colunas que foram ocultadas. Obrigado desde já. Cumprimentos Novembro 2019.xls

O meu problema já foi resolvido. Quero aqui agradecer a todos os que, de certa forma me tentaram ajudar. Quero pedir desculpa pela maçada que dei, e pelo tempo gasto em me tentar me ajudar. Não esqueço isso, fico eternamente agradecido. Os meus agradecimentos do fundo do coração ao osvaldomp e ao Patropi E como não quero só a solução para mim, aqui fica a planilha com as fórmulas colocadas para quem precisar. Bom fim de semana Cumprimentos Compensações_2019_V11.xls

osvaldo Há qualquer coisa de estranho mesmo, pois eu fui ao teu arquivo e escolhi o Agosto, e devolveu-me todos os registos que estão no Ano2019, ( desde o 10-05-2019 a 18-08-2019 ) Não sei o que será que está a causar isto, pois nunca me aconteceu. E como estou a ver que não está a ver solução para o que pretendo, peço que este tópico seja dado como encerrado. Quero agradecer-te por tudo o que fizeste para me ajudar. Os meus mais sentidos agradecimentos. Continuação de um bom Domingo Cumprimentos

Osvaldo Aqui fica o printscreen para veres que eu ao selecionar o mês de Agosto, devia me mostrar só o mês de Agosto e não, mostra tudo o que lá estiver registado em Ano2019, e não é o que pretendo. Quanto ao à ordenação por nome, quero manter assim mesmo. Quando estou a fazer o registo, coloco o nome por último, após preencher todos os outros campos, aí coloco o nome para que os registos fiquem por ordem Alfabética.

Boa tarde osvaldo Obrigado desde já pelas dicas. Formatei em L4 para mmmm-aaaa Coloquei o teu código VBA e fui em L4 escolher o mês, ficou igual ao que estava, isto é, mostra-me na mesma os meses de Maio, Junho, Julho e Agosto, e não é isto que pretendo. Pretendo que eu ao clicar em L4 ( que é uma caixa de Listagem que tem datas desde 01 de Janeiro de 2018 a 31 de Dezembro de 2020 ) possa escolher o mês e é só esse mês que quero ver em Compensações2019. Com esse teu código VBA, perdi o que quero manter, isto é, sempre que eu fizer algum registo em Ano2019, os mesmos não ficam por ordem de nome, e quero manter isso assim, pois é necessário para melhor organização ( saber quantas folgas tem esse mesmo funcionário ), se os registos ficarem soltos, fica confuso, e tenho que andar para baixo e para cima à procura. Com o formato data em mmmm-aaaa, não se sabe a que dia se refere esse registo, pois só aparece o mês e o ano, coisa que não quero, quero que apareça sempre o dia, mês e o ano. Qual o objectivo?? Pretendo saber quando vou a Compensações2019, saber quantos funcionários estão de folga no mesmo dia, isto se houver mais que uma pessoa a pedir esse mesmo dia. Peço desculpa por te estar a dar esta maçada, mas com este código VBA não dá para o que pretendo. Os meus agradecimentos na mesma pelo teu trabalho. Cumprimentos