Este fórum está sendo desativado

[LeoHenrique]

Boa tarde a todos !!!

Pessoal, preciso criar um loop que dependendo da quantidade selecionada ( de 1 á 1200) a macro importe as referências até a quantidade selecionada pelo usuário !
Ex: A planilha tem uma lista de validação de dados na célula A5, onde o usuário selecionará a quantidade de 1 á 1.200 e após isso, no final do meu código ao invés de copiar as primeiras 50 referências de outra planilha e colar na atual "que é o que ela faz agora", gostaria de usar esse loop para importar a quantidade de referências que o usuário selecionar.
Se não ficou claro, enviarei a planilha, mas preciso de um código apenas que busque em outra planilha uma informação na quantidade escolhida pelo usuário.

Se alguém puder me auxiliar, ficarei agradecido !

Leandro Moreira

[eduardogrigull]

Seria isso? Nao sei os locais e valores

Código: Selecionar todos

Sub LoopGuru()

'Definir quantidade
    Dim Quantidade As Integer
    
    Quantidade = InputBox("Digite a quantidade de reg. p/ copiar: (1 a 1200)")
    If Quantidade <= 0 Or Quantidade > 1200 Then Exit Sub

'Definir variaveis (que eu nao sei)
    Dim PlanilhaAtual As Worksheet, PlanilhaReferencia As Worksheet
    
    Set PlanilhaAtual = Planilha1
    Set PlanilhaReferencia = Planilha2
    
'Loop, Nao sei os locais e valores de inicio
    
    For i = 1 To Quantidade
        PlanilhaAtual.Cells(i, 1).Value = PlanilhaReferencia.Cells(i, 1).Value
    Next i

End Sub

[LeoHenrique]

Bom dia a todos !!

Obrigado eduardogrigull, mas vou anexar uma parte da planilha para ficar mais fácil de saberem o que preciso...

Quem puder ajudar, agradeço !!

Leandro Moreira

[LeoHenrique]

Desculpe pessoal, na mensagem anterior é outra informação que preciso também... e na mensagem anexada abaixo é o loop que preciso na quantidade que o usuário solicitar...
Obrigado

Leandro Moreira