Ir ao conteúdo

Posts recomendados

Postado

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

Visitante
Este tópico está impedido de receber novas respostas.

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...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!