Gerar etiquetas (código vba)

[Everton Rufino]

Boa tarde!

 

Preciso desenvolver através do Excel, algo onde eu possa gerar uma quantidade especifica de etiquetas através dos dados e layout de uma planilha.

Ex: Tenho a planilha Etiqueta com dados que são alterados (preenchidos manualmente) nas células A4:I61 e o layout das células K1:L12, onde algumas células do layout são fixas e outras extraídas das células A4:I61, porém tenho a coluna I4:I61 que me da a quantidade de etiquetas que tenho que gerar de cada linha com um botão gerar.

Já cheguei muito próximo, mais não tive sucesso na conclusão.

 

[Basole]

@Everton Rufinoseja bem vindo ao forum!

 

Post sua planilha ou um exemplo com alguns dados para uma análise, isso facilitará a quem possa ajuda-lo.

[Everton Rufino]

Estou enviando dois testes.

 

adicionado 10 minutos depois

O outro!

Não consigo enviar o outro!!!

[DiF]

@Everton Rufino Por gentileza, anexe o arquivo aqui ou use um servidor como o 4shared ou mega, Google drive... 

[Everton Rufino]

Gerar etiqueta.xlsx

 

Esse é um primeiro teste que tentei, a diferença deste para o da primeira conversa é que nesse eles estão em 3 abas diferente.

 

adicionado 3 minutos depois

Sub Gerar_Etiqueta()

Etiqueta.Activate

Etiqueta.DrawingObjects.Delete
U_L = Base.Range("A" & Rows.Count).End(x1Up).Row
Lin = 1: Col = 1

For i = 2 To U_L
    Valor = Base.Range("A" & i)
    Qtde = Base.Range("I" & i)
    Modelo.Activate
    Modelo.Range("A9") = Valor
    Modelo.Range("A1:B12").Copy
    
    
    Etiqueta.Activate
    
    For ik = 1 To Qtde
    
        Etiqueta.Cells(Lin, Col).Select
        Etiqueta.Pictures.Paste
        
        Col = Col + 1
        If Col = 5 Then
            Lin = Lin + 1
            Col = 1
        End If
    Next
Next

End Sub

Esse é o código que estou tentando usar.

[Everton Rufino]

Olá, temos alguma posição?

 

[Basole]

Até tentei lhe ajudar, mas minha maquina não conseguiu abrir sua planilha de 10MB.