Ir ao conteúdo
  • Cadastre-se

WODIANER

Membro Júnior
  • Posts

    1
  • Cadastrado em

  • Última visita

Tudo que WODIANER postou

  1. Boa tarde, desenvolvi um etiqueta e agora preciso arrumar a macro que eu fiz, para imprimir a quantidade de cópias de acordo com a célula D2. MACRO BOTÃO 1CLIQUE Dim x As Variant Sub Botão1_Clique() x = Val(Range("i2")) While Val(x) <= Val(Range("i3")) Range("i2").Select ActiveCell.FormulaR1C1 = x ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True x = x + 1 Wend End Sub ___________________________________________________________________________________________________________________________________________________ MACRO 1 Sub Macro1() ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub Sub Macro2() Range("D4").Select ActiveCell.FormulaR1C1 = "1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("D4").Select ActiveCell.FormulaR1C1 = "2" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("D4").Select ActiveCell.FormulaR1C1 = "3" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!