Ajuda com barra de rolagem_2

2024 - VBA & Macros

Post Recente por Fernando Fernandes 12 anos atrás

5 Posts

2 Usuários

0 Reactions

826 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

(@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

(@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