Página 1 de 1

FIXAR OS BOTÕES DO MENU

Enviado: 05 Jun 2022 às 20:06
por Waltricke
Boa noite mestres!

Na planilha anexa, tenho um menu no topo onde irei ainda colocar os links e atribuir macros.

Mas percebam que, conforme eu vou avançando as células para a direita indo para os próximos anos, o menu vai "ficando para trás", ou seja, ele desliza junto com as células e por fim acaba sumindo completamente.

Eu preciso que esse menu fique "fixo" e que eu possa deslizar entre os anos sem que o menu se desloque. Não pretendo copiar esses botões no cabeçalho de cada ano.

É possível escrever um script e atribuir a esses botões para que fiquem fixos no lugar? Alguém me ajuda nisso?

Fico no aguardo. Grande abraço mestres!

Re: FIXAR OS BOTÕES DO MENU

Enviado: 06 Jun 2022 às 12:46
por Foxtri
Boa tarde.
Use essa macro.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim XMenus As Variant
XMenus = Array("Menu1", "Menu2", "Menu3", "Menu4", "Menu5")
With ActiveSheet.Shapes.Range((XMenus))
.Top = 8
End With
ActiveSheet.Shapes("Menu1").Left = Application.ActiveWindow.VisibleRange.Left + 100
ActiveSheet.Shapes("Menu2").Left = Application.ActiveWindow.VisibleRange.Left + 105 + ActiveSheet.Shapes("Menu1").Width
ActiveSheet.Shapes("Menu3").Left = Application.ActiveWindow.VisibleRange.Left + 110 + 2 * (ActiveSheet.Shapes("Menu1").Width)
ActiveSheet.Shapes("Menu4").Left = Application.ActiveWindow.VisibleRange.Left + 115 + 3 * (ActiveSheet.Shapes("Menu1").Width)
ActiveSheet.Shapes("Menu5").Left = Application.ActiveWindow.VisibleRange.Left + 120 + 4 * (ActiveSheet.Shapes("Menu1").Width)
End Sub

Até
Foxtri

Re: FIXAR OS BOTÕES DO MENU

Enviado: 06 Jun 2022 às 15:17
por Waltricke
@Foxtri

Tudo bem meu amigo?

Colei o script mas não deu.. segue um print do erro. Se tu testou na planilha e quiser me enviar ela, acho que seria bom..

Em tempo: recebeu meu último email?

Abração!

Re: FIXAR OS BOTÕES DO MENU

Enviado: 07 Jun 2022 às 13:13
por Foxtri
Boa tarde.
Segue a planilha.
Até
Foxtri