Boa noite JPerez

Se tivesse usado a ferramenta de pesquisa do fórum iria encontrar os tópicos abaixo;

viewtopic.php?f=10&t=4750
viewtopic.php?f=10&t=8197
viewtopic.php?f=10&t=6680

Se foi útil, clique na mãozinha.

[]s

Patropi, bom dia

Perdão se não fui especifico.... mas usei sim pesquisa no forum e google, porem todas fazer o ajuste em userform...
mas como não uso mesmo são apenas dashoboard e/ou tabelas dinamicas não consigo ajustar a planilha de acordo...
O mais perto que encontrei e a que ajusta o ZOOM porem ao ajustar ele perde a configuração das paginas ou seja as celulas ficam "apertadas"...

mesmo assim obrigado

Perdão Novamente....
achei aqui e funcionou ...

So que não encotrei /Não sei como "ativar"

viewtopic.php?f=10&t=4750

Private Sub Worksheet_Activate()
'Declaração de objetos e variáveis
Dim rngSelection As Range
Dim lRow As Long
Dim lCol As Long

'Verificando se a seleção atual é de uma célula (poderia ser uma imagem ou um gráfico, não tratados nesse código)
'Se a seleção for uma célula, registrando que célula é essa no objeto rngSelection
If TypeName(Selection) = "Range" Then Set rngSelection = Selection

With ActiveWindow
'ScrollRow e ScrollCol são propriedades do objeto window, que indicam qual a primeira linha e coluna da janela ativa, sendo vistas pelo Excel, respectivamente.
'Guardei seus resultados atuais nestas variáveis, só para poder recuperá-los mais tarde
lRow = .ScrollRow
lCol = .ScrollColumn

'Alterei os ScrollRow e ScrollCol para 1, garantindo que a primeira célula visível à esquerda é a célula A1
.ScrollRow = 1
.ScrollColumn = 1

'Selecionar de A a J
ActiveSheet.Range("A1:ab1").Select
'Esta é a "mágica" do código. que acerta o zoom para a área selecionada acima
.Zoom = True


'Pronto, tudo feito, agora é hora de recuperar o posicionamento de tela para aonde estava antes
.ScrollRow = lRow
.ScrollColumn = lCol
End With

If Not rngSelection Is Nothing Then
'e pra finalizar, agora que a tela voltou aonde estava, mas com outro zoom, hora de selecionar de volta aquela célula q estava selecionada
rngSelection.Select
'destruindo as referencias ao objeto, em memória.
Set rngSelection = Nothing
End If

'FIM
End Sub

Boa tarde

Não testei, mas tem que inserir esse código em: Em esta pasta de trabalho, em um módulo comum ele não funciona.
Worksheet_Activate --> Quer dizer que é ativado na planilha ativa.
Tem que ajustar no código o intervalo A1 :J1 para o intervalo que você deseja.

[]s