Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

A área de Remoção de Malwares está aberta na Comunidade BABOO. LEIA AQUI

Ir para conteúdo

Mensagem Recomendada

Bom Dia, pessoal.

Eu tenho uma macro para imprimir automático varias etiquetas diferentes apertando apenas um botão, e agora precisaria alterar e começar a imprimir varias etiquetas iguais mudando apenas o volume. Exemplo: Nf com 5 volumes, imprimir 5 etiquetas alterando o campo 1/5, 2/5, 3/5....... será que conseguem me ajudar?

Base Impressao Etiquetas Processo.xlsm


Livy Wodianer Sena

Compartilhar este post


Link para o post
Compartilhar em outros sites
2 horas atrás, Livy Wodianer disse:

... imprimir varias etiquetas iguais
Onde estará a informação de quantas etiquetas iguais serão impressas? Em qual célula, de qual planilha ?

... imprimir 5 etiquetas alterando o campo 1/5, 2/5, 3/5...
Alterando qual campo? Suponho que seja na planilha Etiqueta. Qual a célula ?

Você imprime somente uma etiqueta por folha A4 ?

Se sim, já cogitou de imprimir múltiplas etiquetas em cada folha A4 ?


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
8 horas atrás, osvaldomp disse:

Onde estará a informação de quantas etiquetas iguais serão impressas? Em qual célula, de qual planilha ? Esta na aba base, na coluna volume.

Alterando qual campo? Suponho que seja na planilha Etiqueta. Qual a célula ?

R.: Está na aba Etiqueta célula C6

Essa etiqueta é impressa em uma impressora Zebra

Editado por Livy Wodianer

Livy Wodianer Sena

Compartilhar este post


Link para o post
Compartilhar em outros sites

Na planilha Etiqueta, célula C6, há uma fórmula que retorna o valor da coluna D (Volume) da planilha Base, então vou me basear nesse valor para determinar a quantidade de etiquetas a serem impressas.

Porém a sua segunda resposta, para colocar 1/5, 2/5, 3/5 , gera conflito, pois você indicou a mesma célula C6 da planilha Etiqueta, que tem fórmula, conforme comentei acima.  Podemos colocar em C2 ?


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Então Osvaldo, eu não manjo nada de Macro. Eu quero que a informação 1/5 seja impressa na celula C6. Se não for necessário colocar formula, pode excluir.

A etiqueta precisa das seguintes informações da aba Base: NF e HUB
Não sei se deu para compreender


Livy Wodianer Sena

Compartilhar este post


Link para o post
Compartilhar em outros sites

1. formate para Texto a célula C6 da planilha Etiqueta

2. apague tudo que está no Módulo1

3. cole o código abaixo no Módulo1

Sub Botão1_Clique()
 Dim k As Long, v As Long, s As Long, t As Long
  For k = [H2] To [H3]
   s = Sheets("Base").[A:A].Find(k, lookat:=xlWhole).Row
   t = Sheets("Base").Cells(s, 4)
    For v = 1 To t
     [C6] = v & "/" & t
     ActiveSheet.PrintOut
    Next v
   [H2] = [H2] + 1
  Next k
 End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...