Notifications
Clear all

Travar barra de rolagem

8 Posts
4 Usuários
0 Reactions
2,856 Visualizações
 jvs
(@jvs)
Posts: 0
New Member
Topic starter
 

Boa Tarde!

Preciso de um código para travar a barra de rolagem horizontal e vertical, para que possa mostrar da coluna "A ate AR94" por exemplo.

Obs.: o código terá que ser inserido em planilhas individuais pois cada uma tem uma limitação diferente de colunas e linhas.

Achei aqui no "Planilhando" códigos parecidos com oque eu procuro mas não funcionaram.

viewtopic.php?f=10&t=1529
viewtopic.php?f=10&t=7294

Se alguém tiver algo diferente, agradeço.

 
Postado : 09/02/2015 11:07 am
 jvs
(@jvs)
Posts: 0
New Member
Topic starter
 

alguma dica pessoal

 
Postado : 10/02/2015 9:59 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde jvs

Dá para fazer sem usar Macro.

E é muito fácil.
Se você quiser que a sua planilha não exiba as linha abaixo da linha 94, basta clicar sobre a linha 21, teclar CTRL+Shift+SetaParaBaixo (para se deslocar, selecionando, até a linha 65536 no 2003 ou 1048576 no 2007 ou superior) --> ir ao menu Formatar -> Linha -> Ocultar.

Para fazer o mesmo com a s colunas, use o mesmo procedimento: selecionar a coluna AS, por exemplo, clicar CTRL+Shift+SetaParaDireita e Formatar-Coluna-Ocultar.

Para reexibir, basta selecionar a última linha (ou coluna) em exibição e Formatar - Linha (ou Coluna) - Reexibir.

Se a dica foi útil, clique na mãozinha que fica do lado da ferramenta Citar.

[]s

 
Postado : 10/02/2015 1:11 pm
 jvs
(@jvs)
Posts: 0
New Member
Topic starter
 

Sim, mas fica aparecendo em azul o resto das colunas, gostaria que a barra de rolagem fosse só ate a ultima linha e coluna.

 
Postado : 10/02/2015 5:23 pm
(@miguel-70)
Posts: 0
New Member
 

'ESTA PASTA DE TRABALHO
Private Sub Workbook_Open()
LimitarVisualizaçãoMenu
End Sub

'MODULO
Public Sub LimitarVisualizaçãoMenu()
'sheets("NomePlan")
Sheets("MENU").ScrollArea = "A1:E20" 'limita a área que pode ser vista
Dim wks As Excel.Worksheet
Dim w As String
Set wks = ActiveSheet
With wks
Select Case .Range("H3").Value
Case 1: w = "A29"
Case 2: w = "A79"
Case 3: w = "A129"
Case 4: w = "A271"
End Select
End With
End Sub

 
Postado : 10/02/2015 6:56 pm
 jvs
(@jvs)
Posts: 0
New Member
Topic starter
 

Miguel, desta maneira que vc postou, tem que criar um botão para limitar a visualização?

 
Postado : 11/02/2015 8:36 am
(@miguel-70)
Posts: 0
New Member
 

Não precisa criar botão, más se deseja é só criar e ligar no código.

'ESTA PASTA DE TRABALHO copie o código
Private Sub Workbook_Open()
LimitarVisualização1
'LimitarVisualização2
'LimitarVisualização3
End Sub
'MODULO crie um modulo e cola o código
Sub LimitarVisualização1()
Plan3.ScrollArea = "A1:AR94" 'limita a área que pode ser vista
Dim wks As Excel.Worksheet
Dim w As String
Set wks = ActiveSheet
With wks
Select Case .Range("H3").Value
Case 1: w = "A29"
Case 2: w = "A79"
Case 3: w = "A129"
Case 4: w = "A271"
End Select
End With
End Sub

 
Postado : 11/02/2015 7:40 pm
(@diegohbm)
Posts: 0
New Member
 

Bom dia!

Select Case .Range("H3").Value
Case 1: w = "A29"
Case 2: w = "A79"
Case 3: w = "A129"
Case 4: w = "A271"

Não entendi essa parte do código.
Meu intervalo é de A1: AX71. Quais seriam os valores adotados?
A minha barra de rolagem horizontal quando chega ao fim ela volta ao início. Já a barra de rolagem vertical está ok!

Obrigado!

 
Postado : 13/05/2015 7:07 am