knephk

Obrigado pela resposta Alyson Ronnan. A macro funcionou, mas eu não fui claro sobre o meu problema. E por isso, ela não conseguiu atingir o meu objetivo. A Célula A1 atualiza constantemente, sem necessidade de nenhum comando. É um link DDE. O que eu preciso é que quando essa célula A1 mude de valor, que o excel role e encontre o valor de A1 no intervalo entre A3:A102 e centralize a página nesse valor. Eu já testei esse código abaixo: Sub Find_First() Dim FindString As Long Dim Rng As Range FindString = Sheets("Planilha2").Range("A1").Value If Trim(FindString) <> "" Then With Sheets("Planilha2").Range("A2:A103") Set Rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not Rng Is Nothing Then Application.Goto Rng, True End With End Sub Ele encontra o valor. O problema é que deixa o valor encontrado entrte a3:a100 na primeira linha da página.

Muito obrigado pela ajuda, de antemão! vamos lá! 1) A célula A1 muda de valor constantemente, pois é um link externo. Vai de 1 a 100. 2) A tabela vai de 1 a 100. Da célula A3 até A102. 3) Eu gostaria que sempre que o valor de A1 mudasse, o valor correspondente na tabela de A3:A102 ficasse centralizada no meio da tela. 4) Se o valor de A1 mudar para 70, o 70 ficar centralizado na tela. Será que você consegue me ajudar? MUITO OBRIGADO!

Esqueci de dizer que o número de amarelo está entre 0 e 100 e ele é puxado de outra tabela. Então, quando o número em amarelo mudar, digamos que fosse 58. Eu gostaria que a tabela atual centralizasse o número 58. Eu encontrei esse código em outro fórum, mas não consigo dar certo... Dim VisRows As Integer Dim VisCols As Integer Application.ScreenUpdating = False ' ' Switch over to the OnCell's workbook and worksheet. ' OnCell.Parent.Parent.Activate OnCell.Parent.Activate ' ' Get the number of visible rows and columns for the active window. ' With ActiveWindow.VisibleRange VisRows = .Rows.Count VisCols = .Columns.Count End With ' ' Now, determine what cell we need to GOTO. The GOTO method will ' place that cell reference in the upper left corner of the screen, ' so that reference needs to be VisRows/2 above and VisCols/2 columns ' to the left of the cell we want to center on. Use the MAX function ' to ensure we're not trying to GOTO a cell in row <=0 or column <=0. ' With Application .Goto reference:=OnCell.Parent.Cells( _ .WorksheetFunction.Max(1, OnCell.Row + _ (OnCell.Rows.Count / 2) - (VisRows / 2)), _ .WorksheetFunction.Max(1, OnCell.Column + _ (OnCell.Columns.Count / 2) - _ .WorksheetFunction.RoundDown((VisCols / 2), 0))), _ scroll:=True End With OnCell.Select Application.ScreenUpdating = True End Sub

claro. o que deseja saber?

Olá, Estou começando há poucas semanas em VBA. Tenho um dúvida; Nessa aba, o valor da célula A1 muda constantemente. Eu gostaria que toda vez que ela mudasse, o excel encontrasse (dirigisse a tabela) para o valor correspondente na tabela que vai de A6:A107. Tentei alguns códigos de VBA, mas não obtive sucesso. Alguém poderia me ajudar? valeu!