Boa tarde!
Procurei mas não encontrei..
Queria um código para centralizar verticalmente na tela a minha seleção atual (deve rolar a página até a seleção ficar no centro verticalmente), alguém sabe como fazer isso?
Desde já obrigado,
Olá, Não entendi direito. Você quer centralizar o conteúdo da sua seleção, por exemplo o Texto contido em A1 Ficar centralizado Verticalmente? Por favor explique melhor.
Opa, não, quero centralizar somente a visualização na tela, não o conteúdo como você mencionou. Digamos, selecionei 1 célula, quero essa célula fique centralizada verticalmente no meio da tela.
Ainda acho que não é bem o que você precisa, pois isto só se aplica a células fora da área de visualização, usei Z1 como exemplo, pode dar uma estudada neste código e ver se consegue adaptar a sua necessidade. O código centraliza o conteúdo da Célula "não visivel" Z1 no centro da tela.
Sub ScrollCentre()
Dim ColVisible As Single
ColVisible = ActiveWindow.VisibleRange.Columns.Count
Application.Goto Reference:=Range("Z1"), scroll:=True
ActiveWindow.SmallScroll ToLeft:=ColVisible 2
End Sub
Obrigado, mas não é bem isso que eu queria, acabei solucionando meu problema de uma forma bem diferente, mas que tem o mesmo resultado para mim. Mas valeu pela ajuda.