Renato Henrique Gurgel Mot
-
Posts
1 -
Cadastrado em
-
Última visita
-
Como repetir a macro x vezes?
Renato Henrique Gurgel Mot postou um tópico em Microsoft Office e similares
Prezados, Como faço para que essa macro1 que eu criei seja repetida por x vezes? Segue a macro1: Sub Macro1() ' ' Macro1 Macro ' ' ActiveCell.Offset(1, 0).Select Intersect(Selection.EntireRow, Range("A:XFD")).Select Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown ActiveCell.Offset(-1, 0).Select Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 2)).Select Selection.Copy Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(15, 0)).Select ActiveSheet.Paste ActiveCell.Offset(-1, 4).Select Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 15)).Select Selection.Copy ActiveCell.Offset(0, -1).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True ActiveCell.Offset(0, 18).Select Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 15)).Select Selection.Copy ActiveCell.Offset(0, -1).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True ActiveCell.Offset(16, -20).Select 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