Este fórum está sendo desativado

[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 todos

Private 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

[wesleyribeiro123]

Rit
Bom dia,

Você tem que utilizar algum Laço de Repetição... Veja um exemplo:

Código: Selecionar todos

Private 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!

[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!

[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 todos

Dim tp As Range
    Set tp = Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell))
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

[babdallas]

Anexe o arquivo e diga exatamente o que você quer, com detalhes. Assim fica mais fácil de te ajudar.

[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!