none
DUVIDA MACRO INSERIR LINHAS RRS feed

  • Pergunta

  • Olá, sou muito leigo no assunto, porem procurando bastante na internet, achei uma planinha em macro, que supre minhas necessidades, que no caso é: adicionar um número de linhas, baseado no valor que foi preenchido. Exemplo:

    COLUNA (A)

    1 (Adiciona uma linha abaixo)

    2 (Adiciona duas linhas abaixo)

    3 (Adiciona três linhas abaixo)

    4 (Adiciona quatro linhas abaixo)

    23 (Adiciona vinte e três linhas abaixo)

    etc...

    A planilha que encontrei, possui o código que está abaixo, funciona perfeitamente para minha necessidade, o único problema, é que ela só lê as primeiras ONZE linhas, o resto é ignorado, e para ser útil para mim eu preciso que fosse sem limites, onde eu pudesse explorar do A1 ao A1000000 ... alguém me da uma luz, muitíssimo obrigado.

    Sub Inserir_numero_linhas_valor_celula_anterior()
    Dim I As Double, J As Integer
    '[:] na frente do código significa - como se fosse linha debaixo (próxima linha).
    If [a].Value = "" Then MsgBox "copie os números para teste botão copiar...", vbInformation, "Saberexcel": Exit Sub
    
    For I = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        For J = 1 To Range("A" & I)
            Rows(I + 1).Insert shift:=xlDown
        Next J
    Next I
    [C4].Value = "Observe que foi inserido o número de Linhas vazias correspondente ao valor que está na célula"
    End Sub
    
    Sub copiar_teste()
    limpar_teste
    [b].Copy [a]
    [C4].Value = ""
    End Sub
    Sub limpar_teste()
    [g,C4].Clear
    End Sub
    


    domingo, 19 de fevereiro de 2017 22:08

Todas as Respostas

  • Analisando o código, a única forma da macro percorrer apenas 11 linhas é se você tiver apenas 11 linhas preenchidas na coluna A.

    Tem certeza que na coluna tem mais de 11 linhas preenchidas? Você não tá olhando para uma coluna diferente?


    http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG

    segunda-feira, 20 de fevereiro de 2017 12:07
    Moderador