Excel vba criar etiquetas de Produtos

[deejaywesley]

Boa Noite amigos!

 

Preciso de mais uma ajudinha com VBA 

 

anexei uma planilha com o ex do que preciso!

 

Muito obrigado desde já! 

 

Live - Etiquetas Produtos.zip

[OreiaG]

Fala @deejaywesley.

 

Parabéns pelas explicações e pelo arquivo anexado. Ficou super fácil para entender o que você quer.

 

Apenas uma dica, não é necessário compactar arquivos sem macro para anexar aqui no fórum.

 

Veja se o código abaixo faz o que você quer. Considerei que a Plan1 já estará convenientemente formatada (células, linhas e colunas).

 

Sub Etiquetas()
 Dim wsO As Worksheet, wsD As Worksheet, r, k As Long, x As Long, v As Long, m As Long
  Set wsO = Sheets("Plan2"): Set wsD = Sheets("Plan1")
  If wsO.[A3] = "" Then Exit Sub
  wsD.Columns("A:F") = ""
  For k = 3 To wsO.Cells(Rows.Count, 1).End(3).Row
   With wsD
    .Cells(x + 1 + m, v + 1).Resize(4) = Application.Transpose([{"CÓDIGO:", "PREÇO:","QNTD:" , "PRODUTO:"}])
    For Each r In Array(wsO.Cells(k, 1), wsO.Cells(k, 8), wsO.Cells(k, 7), wsO.Cells(k, 2))
     .Cells(x + 1 + m, v + 2) = r: x = x + 1
    Next r
    x = 0: v = v + 1
    If v < 4 Then
     v = v + 1
    Else: v = 0
     x = 0: m = m + 5
    End If
   End With
  Next k
End Sub

 

[deejaywesley]

Boa Noite Amigo @OreiaG

 

Cara! Funcionou redondinho...

Você é top de mais...

 

 

13 horas atrás, OreiaG disse:

Apenas uma dica, não é necessário compactar arquivos sem macro para anexar aqui no fórum.

Então, eu tentei mas não quis subir, acho que é porque já tinha salvo o arquivo habilitado pra macro, ai o código do fórum reconheceu a extensão do arquivo. 

 

13 horas atrás, OreiaG disse:

Considerei que a Plan1 já estará convenientemente formatada (células, linhas e colunas).

Você acertou...

já esta formatada para ocupar a pagina inteira, sem cortar as ultimas.

 

Muito Obrigado!

Ficou top