Heber,

Sua mensagem está muito genérica e sem anexar aqui o arquivo fica muito complicado entender o que você realmente quer.

De qualquer forma, aqui vai uma resposta igualmente genérica que talvez possa lhe ajudar:

Se a quantidade de linhas onde você busca os dados é variável, então você deve buscar a última linha com dados, por alguma coluna e armazenar em uma variável. Desse modo, você terá como saber quantas linhas tem sua planilha (que está na variável e aí é só atribuir à propriedade Mas da barra de rolagem.

Desse modo, se você fosse pegar a última linha com dados da coluna A, da aba chamada Plan1, você utilizaria esse comando:

Dim UltimaLinha as Long
UltimaLinha = Sheets ("Plan1").Cells(Cells.Rows.Count,1).End(XlUp).Row

Boa noite,

Obrigado pela resposta,

Então, reformulando, numa barra de rolagem(controle de formulário), com o botão direito do mouse, consigo acessar o item formatar controle. Nele possui o número máximo de linhas que é buscado numa outra tabela. Contudo, esse número máximo é alterado, e gostaria de saber, como posso alterar esse valor de acordo com a quantidade exata de linhas.

Obrigado.

Como o Wagner disse, está bem generica sua solicitação, então complementando a dica do Wagner, ele postou como obter a quantidade total de linhas preenchidas supondo-se a Plan1 Coluna A.

Coloque a macro abaixo em um modulo e depois clique com o Botão direito no Controle e escolha atribuir Macro e selecione a macro.

Nela é contado a qde de linhas na Variável UltimaLinha e depois é utilizado este valor para determinar o Valor Maximo da "Scroll Bar 1"

Sub AlteraValorMaximo()

    Dim UltimaLinha As Long
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
     
    ActiveSheet.Shapes("Scroll Bar 1").ControlFormat.Max = UltimaLinha
 
 End Sub

Se não for isto, anexe seu modelo reduzido para uma melhor analise

[]s