Este fórum está sendo desativado

[ThayKelly]

Olá Pessoal,

Sou nova por aqui e estou desesperada para resolver um problema com o excel que estou tendo, eu não sei fazer macro e preciso de uma ajuda.

Preciso de uma macro que insira a quantidade de linhas conforme o numero apresentado em uma célula, porém minha base tem mais de 10mil linhas ou seja fazer manualmente é fora de cogitação, e queria ver se alguém aqui poderia me ajudar .

# cliente fatura valor parcela
1 1010 101 100 10
2 2020 201 100 5
3 3030 301 100 2


Muito Muito Obrigada se alguém puder me ajudar

[Dieferson]

Thay, boa noite!

A princípio seria isso:

Sub CommandButton1_Click()

For a = 1 To Cells(1, 1).Value

Cells(2, 1).EntireRow.Insert

Next

End Sub

Ela vai inserir a quantidade de linhas do valor que estiver na célula A1, a partir da célula A2.

Porém tudo depende da sua necessidade, posição que quer iniciar a inclusão, endereço da quantidade a ser inserida, entre outros.

Qualquer dúvida estamos a disposição.

Abraços.

[babdallas]

Este código vai inserir o número de linhas digitada na célula "A1"a partir da última linha da base de dados de uma planilha cujo codename (nome VBA) é wshTeste. A base de dados também está nesta planilha, com cabeçalhos na linha 3 e dados começando a partir da linha 4.

Código: Selecionar todos

Private Sub Inserir_Linha()
    Dim lin_ini As Byte
    Dim lin_fim As Long
    
    lin_ini = 4 'Cabeçalhos estão na linha 3
    lin_fim = wshTeste.Cells(Rows.Count, 1).End(xlUp).Row
    
    With wshTeste
        .Range(.Cells(lin_fim + 1, 1), .Cells(lin_fim + .Cells(1, 1).Value, 1)).EntireRow.Insert
    End With

End Sub