Página 1 de 1
Loop de impressão
Enviado: 06 Fev 2018 às 07:21
por rit
Bom dia,
Como eu faço um loop com um código ?
por exemplo eu tenho esse código abaixo, eu preciso que ele verifique as quantidades em varias celulas "sequenciais" E4,E5,E6,E7 ETC.
Uma outra coisa é linkar a celula a uma ABA por exemplo se E4 ABA "A" se E5 ABA "B" "Sequencial".
Se alguem poder me ajudar agradeço obrigado!
Código: Selecionar todosPrivate Sub CommandButton1_Click()
Dim wbprincipal As Workbook, wbaberto As Workbook
Dim numeroCópias As Long
If VBA.IsNumeric(wbaberto.Worksheets(1).Range("e4").Value) And wbaberto.Worksheets(1).Range("e4").Value > 0 Then
numeroCópias = wbaberto.Worksheets(1).Range("E4").Value
wbaberto.Worksheets(1).PrintOut copies:=numeroCópias
End If
End Sub
Loop de impressão
Enviado: 06 Fev 2018 às 08:47
por wesleyribeiro123
Rit
Bom dia,
Você tem que utilizar algum Laço de Repetição... Veja um exemplo:
Código: Selecionar todosPrivate Sub CommandButton1_Click()
Dim wbprincipal As Workbook, wbaberto As Workbook
Dim numeroCópias As Long, uSheet as Integer
uSheet = Sheets.Count
For x=1 to uSheet
If VBA.IsNumeric(wbaberto.Worksheets(x).Range("e4").Value) And wbaberto.Worksheets(x).Range("e4").Value > 0 Then
numeroCópias = wbaberto.Worksheets(x).Range("E4").Value
wbaberto.Worksheets(1).PrintOut copies:=numeroCópias
End If
Next x
End Sub
Agora é necessário ver o entendimento e aplicação em tua planilha!
Sugiro que poste uma cópia de tua planilha para que a solução seja mais assertiva!
Loop de impressão
Enviado: 06 Fev 2018 às 08:58
por rit
Bom dia,
Até ai tudo certo, mas e quanto a vincular a celula que esta no "contador" a ABA "A", "B", "C" Etc.
é complicado isso ?
Só uma outra duvida eu preciso limitar a area de impressão, da seguinte forma ultima coluna escrita e ultima linha escrita isso é complicado ? (São muitas duvidas)
Na internet tem muita coisa, porem tem muita explicação pra quem ja manja pra quem ta iniciando e não tem tanto tempo para estudar o basico é meio complicado.
Obrigado!
Re: Loop de impressão
Enviado: 06 Fev 2018 às 10:28
por Reinaldo
quanto a vincular a celula que esta no "contador" a ABA "A", "B", "C" Etc
Supondo que suas sheets estejam em ordem ascendente, pode experimentar alterar onde têm : Range("E4")
De: Range("e4").Value Para Cells(x+3, 5).value
preciso limitar a area de impressão,
Experimente algo=/- assim
Código: Selecionar todosDim tp As Range
Set tp = Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell))
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Re: Loop de impressão
Enviado: 06 Fev 2018 às 10:30
por babdallas
Anexe o arquivo e diga exatamente o que você quer, com detalhes. Assim fica mais fácil de te ajudar.
Re: Loop de impressão
Enviado: 07 Fev 2018 às 07:16
por rit
Bom dia Pessoal,
Obrigado pelas linhas de código, estou tentando adaptar a minha melhoria.
Bem o que eu preciso são duas coisas (mudou um pouco), a aba "OUTRA COISA" tem um texto separado por "------" toda vez que muda de item, e eu gostaria de saber se tem como eu fazer um tipo de separação via vba para que toda vez que ele encontrar esse "-------" ele ajuste em uma folha toda a area de impressão , é tipo ajustar a escala como a gente faz manualmente, pra ficar legivel e que use toda a folha a4, por que disso as vezes fica grande o texto ali e sai em duas folhas eu gostaria que saisse em uma só usando aquele ultimo "------" como limitador de folha, ou uma area de impressão que pegue até a ultima linha digitada não sei a melhor forma.
A outra aba "ROMANEIO" eu preciso que aquelas quantidades na coluna E sejam vinculados as outras abas A B C, mas quero que seja feito um loop por exemplo ele passa pela E1 imprimi aquela quantidade de folha da aba A, passa pela E2 imprimi aquela quantidade da folha B, e quando não tiver valor no romaneio ele ignora.
Obrigado!