Ir para conteúdo

A partir do dia 19/11/2018, o foco do Fórum do BABOO é apenas Windows e Segurança Digital conforme informado no início de 2018.
As áreas que não têm relação com esses dois assuntos foram arquivadas e seus tópicos estão disponíveis para consulta na área Tópicos Antigos.

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

×