Este fórum está sendo desativado

[rit]

Bom dia amigos,

Eu tenho um arquivo que eu preciso imprimir alguns cartões todos os dias eu tinha feito uma "solução" com varios botões mas a demanda esta aumentando e cada vez eu tenho mais botoes e mais abas, eu gostaria de saber se tem como ser feito o seguinte:

Preciso seja feito um loop entre as OP"s e seja adicionado as informações nas outras duas ABAS e ele imprima cada uma com a quantidade que esta na coluna quantidade da primeira planilha, resumindo ele vai passa pela primeira linha inserir dados nas outras duas tabelas e imprimir com a quantidade que esta na coluna qtd, vai passar pela segunda linha e fazer a mesma coisa e assim sucessivamente.

Não ja tentei fazer mas nao consigo tentei inserir alguns FOR i de varias maneiras e nao deu certo, estou pedindo a ajuda de voces Obrigado!

[mprudencio]

Se eu entendi o que vc precisa!

Cole esse codigo em um modulo e associe a um botao.
Vai imprimir todas as etiquetas que estiverem na planilha romaneio.

Código: Selecionar todos

Sub ImprimirTudo()

Dim WS As Worksheet
Dim WSLinha As Long
Dim Qtd As Long
Dim WSEtiqueta As Worksheet


Set WS = Plan2
Set WSEtiqueta = Plan3
    WSLinha = 2
    
    Do While WS.Cells(WSLinha, 3).Value <> ""
    
    For Qtd = 1 To WS.Cells(WSLinha, 3).Value
    
    With WSEtiqueta
    
    .Range("A2").Value = WS.Cells(WSLinha, 8).Value
    .Range("D2").Value = WS.Cells(WSLinha, 4).Value
    .Range("J2").Value = WS.Cells(WSLinha, 2).Value
    .Range("C2").Value = WS.Cells(WSLinha, 3).Value
    .Range("O2").Value = WS.Cells(WSLinha, 1).Value
    .Range("B7").Value = WS.Cells(WSLinha, 5).Value
    .Range("E7").Value = WS.Cells(WSLinha, 6).Value
    .Range("J7").Value = WS.Cells(WSLinha, 7).Value
    
    End With

    WSEtiqueta.PrintOut
    
    Next Qtd
    
    WSLinha = WSLinha + 1
    
    Loop
    
End Sub

[rit]

Tem algum comando que eu coloco com esse código para eu conseguir configurar a impressão ? e ele fazer todos iguais ?dessa forma ele joga cada etiqueta em uma folha e fica uma coisa.

[rit]

Cara uma outra coisa, ele até imprimi mas ele não fez a função de preencher com o dado atual entendeu ? ali eu coloquei só uma OP ai OK ele pega a primeira imprimi ali na qtd até ai tudo bem, só que quando pula pra segunda linha vamos imaginar que fosse outra OP eu precisava que ele atualiza-se os dados na etiqueta
é complicado adptar isso ?

[mprudencio]

Eu editei o codigo e ja corrigi isso talvez vc tenha copiado antes da minha edição.

Confere novamente.

[rit]

Deu bom obrigado!