Ir ao conteúdo
  • Cadastre-se
Leonardo Torres

Excel VBA EXCEL - Replicar Linhas através de um parâmetro

Recommended Posts

Olá pessoal tenho um seguinte problema e preciso urgentemente de uma ajuda no excel, seguinte tenho uma planilha com duas coluna A(Código) e B(Quantidade), preciso replicar o código na quantidade que ele possui. 

Exemplo tenho código 2345678 com quantidade 15 então tenho que ter 15 linhas com o código 2345678, todos o códigos são diferente e as quantidade também.

Alguma forma de fazer isso para o Excel?

Obrigado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Consegui resolver meu problema usando esta função. Ela insere o dado da coluna um pela quantidade da coluna 2.

 

 

Sub Funcao()
Dim l As Long
Dim cont As Long
Dim sngValor As Single
Dim sngNum As Long
Dim sngCaixa As Long
l = 2
cont = 2
sngNum = 0
sngValor = 0
sngCaixa = 0

Do While Cells(l, 1) <> “”
    sngValor = Cells(l, "B")
    sngNum = Cells(l, "A")
    sngCaixa = Cells(l, "C")
    cont = 2
    Do While cont <= sngValor
        If Cells(l - 1, 1) <> “” Then
        Cells(l, 1).EntireRow.Insert
        cont = cont + 1
        Cells(l, 1) = sngNum
        Cells(l, 2) = sngValor
        Cells(l, 3) = sngCaixa
        End If
    Loop
    l = l + sngValor
    
Loop
End Sub
 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×