VBA PARA REPETIR "X" VAZES DETERMINADAS CÉLULAS

[jorge24]

olá,

Preciso de uma ajuda com um código VBA.

Preciso que ao inserir um número na célula "F" as células dessa linha sejam repetidas para as linhas abaixo esse determinado numero de vezes.

Ou seja, se colocar na célula "F" o numero 20, automaticamente são preenchidas 20 linhas com os valores da linha original.

Será que alguém me pode dar uma ajuda. obrigado

[Patropi]

Boa noite

Seja bem-vindo ao fórum!

Copie e cole o código abaixo em um módulo e instale um botão para comando da macro abaixo:

Sub teste()

    Dim iLinha As Integer
    Dim Qtde As Integer
    
    Range("G1:G" & Rows.Count).ClearContents
        
    Qtde = Range("F1")
        
    For iLinha = 1 To Qtde
                    
        Plan1.Cells(iLinha, 2).Value = 1
                
    Next iLinha
    
    
End Sub

Dê retorno.

[]s