Copiando linhas com base em critério (vba)

Copiando linhas com base em critério (vba)#19060

Por flaviobdsti - 17 Jan 2017 às 17:08

- 17 Jan 2017 às 17:08 #19060

Com base no valor do índice preciso gerar as linhas (exemplo azul) e na sequência copiar os da linha que contém o índice (linha laranja). Conforme demonstrado na linha 3, 4 e 5 da imagem em anexo.

Eu já tenho um código que gera as linhas com base no critério ÍNDICE. Conforme abaixo:

Código: Selecionar todos


Sub fbds_inserir_linha()
Dim i As Integer
x = 1
For i = Cells(Rows.Count, "d").End(xlUp).Row To 2 Step -1
    If i = 1 Then Exit Sub
    For t = 1 To Cells(i, "d")
        Cells(i + 1, "d").EntireRow.Insert
        x = x + 1
    Next t
    x = 1
Next i
End Sub

Preciso saber como faço para copiar a linha de A até C e repetir o número de copias de acordo com o estabelecido no índice. Quando ele encontrar zero ele não faz nada, mas quando encontrar valor maior que zero, então copia a pinha do índice quantas vezes for estabelecida pelo índice.

Se alguém puder me orientar desde já agradeço.

Imagem