Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda com barra de ...
 
Notifications
Clear all

Ajuda com barra de rolagem_2

 
2024 - VBA & Macros
5 Posts
2 Usuários
0 Reactions
819 Visualizações
RSS
 ilbeh morais
(@ilbeh-morais)
Posts: 51
Trusted Member
Topic starter
 

Bom dia
Esse código peguei aqui pertinho e tentei usar na minha plan (Excel 2010) mas não funcionou, Já na planilha exemplo baixada, funciona perfeitamente. O que pode ser? Tem como adicionar uma instrução acionada por botão para liberar outra vez as barras de rolagem?

Private Sub Workbook_Open()
Worksheets("ONomeDaPlanilha").ScrollArea = "B9:R50"
End Sub

Grato

 
Postado : 06/03/2013 8:36 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu teste 2010, e não tive problema.

Verifique se o nome da guia está correto

Worksheets("ONomeDaPlanilha")

Verifique se o código está dentro de Thisworkbook(EstaPaasta_de_Trabalho)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/03/2013 9:18 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Vc reparou que a sua duvida é mesma da postagem anterior?

Dessa maneira fica apenas duplicando postagem!

Doni

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/03/2013 10:12 am
 ilbeh morais
(@ilbeh-morais)
Posts: 51
Trusted Member
Topic starter
 

Boa noite
Doni, além fazer as alterações sugeridas:

"Worksheets("ONomeDaPlanilha")"
"Verifique se o código está dentro de Thisworkbook(EstaPaasta_de_Trabalho)"
Não tive a intenção de replicar o post, pelo contrario, até perguntei se tinha como acionar a macro por botão e outro para liberar as barras de rolagem?

Grato

 
Postado : 06/03/2013 3:34 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Seu tópico será movimentado para VBA & Macros

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/03/2013 3:38 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico