Página 1 de 1

Objeto acompanhar barra de rolagem

Enviado: 28 Set 2016 às 14:12
por rfmfoz
Boa tarde.

A minha planilha contém muitos dados e as vezes quero voltar ao topo dela, então eu iria criar um botão e inserir um hiperlink nele com a mensagem "VOLTAR AO TOPO", porém gostaria que acompanhasse a barra de rolagem.

A parte do botão já consegui fazer, mas gostaria que ele acompanhasse a barra de rolagem.É possível ?

Objeto acompanhar barra de rolagem

Enviado: 28 Set 2016 às 14:41
por FelipeMGarcia
Rfmfoz, toda vez que tiver uma dúvida, fica mais fácil das pessoas ajudarem, se anexar um modelo explicando o que deseja fazer.

Abs

Objeto acompanhar barra de rolagem

Enviado: 28 Set 2016 às 15:15
por rfmfoz
Desculpe, segue o arquivo em anexo para melhor entendimento.

Só rola a barra para baixo para encontrar o que gostaria de fazer.

Objeto acompanhar barra de rolagem

Enviado: 28 Set 2016 às 15:19
por FelipeMGarcia
No seu caso acho que tem que ser via macro, tem um cara muito bom no fórum que se chama @alexandrevba, veja se ele pode te ajudar, eu não manjo de macro.

Abs

Re: Objeto acompanhar barra de rolagem

Enviado: 28 Set 2016 às 16:00
por Kledison
Boa tarde,

verifica se o anexo ajuda, foi usado MACRO.

O botão irá se mover quando você clicar em qualquer célula.

Att

Objeto acompanhar barra de rolagem

Enviado: 28 Set 2016 às 16:23
por rfmfoz
Serve sim!

Como faço para utilizar esse macro em minha planilha oficial ?

Re: Objeto acompanhar barra de rolagem

Enviado: 28 Set 2016 às 16:36
por Kledison
Olá,

abra o VBA e cole a MACRO no módulo de sua planilha que tem o botão (shape).

Você deve colocar o nome do botão dentro da MACRO, no exemplo que postei usei o nome de MENU no botão.

Imagem

Código: Selecionar todos
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim lgLIN As Long, shFIG As Object
Set shFIG = ActiveSheet.Shapes("MENU")
    With ActiveWindow.VisibleRange
    lgLIN = .Row + .Rows.Count - 14
    End With
        With shFIG
        shFIG.Top = shFIG.Top + (lgLIN - .BottomRightCell.Row) * .BottomRightCell.RowHeight
        End With
End Sub

Objeto acompanhar barra de rolagem

Enviado: 29 Set 2016 às 08:32
por rfmfoz
Obrigado!