Copiando linhas com base em critério (vba)
Enviado: 17 Jan 2017 às 17:08
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:
Se alguém puder me orientar desde já agradeço.
Eu já tenho um código que gera as linhas com base no critério ÍNDICE. Conforme abaixo:
Código: Selecionar todos
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.
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
Se alguém puder me orientar desde já agradeço.