Loop em macros no excel

[gugafiel]

Boa tarde

Algum santo em excel poderia me informar como faço um loop em excel, eu criei uma macro que quando eu acionar o botão ele puxa data em b7 e hora em c7; fiz a macro e ficou perfeito, na mesma linha 7 eu criei mais 04 macros, na qual quando aciona um botão ele puxa a data e a hora que o serviço acabou, em k7 a data e l7 a hora, também funcionou perfeitamente, porém eu preciso que fique disponivél em 700 linhas, só que quando eu copio e colo ele puxa a botão e o comando se dá na macro de cima, gostaria de fazer um loop para que as demais linhas funcionem sem ter que eu fazer macro por macro.

- A macro para abrir a o/s é essa:

Sub ABRIR1111()

'

' ABRIR1111 Macro

' Macro gravada em 05/05/2010 por Usuário

'

'

ActiveSheet.Unprotect

Range("B3").Select

Selection.Copy

Range("B7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("C3").Select

Selection.Copy

Range("C7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("D7").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

- A macro para fechar O/S sem retorno:

Sub OSF()

'

' OSF Macro

' Macro gravada em 25/05/2010 por Usuário

'

'

ActiveSheet.Unprotect

Range("B3").Select

Selection.Copy

Range("K7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("C3").Select

Selection.Copy

Range("L7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("A8").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

- A macro para Fechar O/S sem retorno:

Sub OSR()

'

' OSR Macro

' Macro gravada em 25/05/2010 por Usuário

'

'

ActiveSheet.Unprotect

Range("B3").Select

Selection.Copy

Range("K7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("C3").Select

Selection.Copy

Range("L7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("F7").Select

Selection.Copy

ActiveWindow.SmallScroll ToRight:=2

Range("O7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 2

Application.CutCopyMode = False

Range("A8").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

- A macro para fechar O/S com vendas

Sub OSV()

'

' OSV Macro

' Macro gravada em 25/05/2010 por Usuário

'

'

ActiveSheet.Unprotect

Range("B3").Select

Selection.Copy

Range("K7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("C3").Select

Selection.Copy

Range("L7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("F7").Select

Selection.Copy

ActiveWindow.SmallScroll ToRight:=2

Range("P7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveWindow.SmallScroll ToRight:=-2

Range("A8").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

- A macro para deletar se errar em fechar O/S:

Sub DEL()

'

' DEL Macro

' Macro gravada em 25/05/2010 por Usuário

'

'

ActiveSheet.Unprotect

Selection.ClearContents

Range("K7").Select

Selection.ClearContents

Range("L7").Select

Selection.ClearContents

ActiveWindow.SmallScroll ToRight:=5

Range("O7").Select

Selection.ClearContents

Range("P7").Select

Selection.ClearContents

Range("J7").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Se alguém puder me ajudar, ficarei eternamente agradecido..

[Márcio Rodrigues]

Não ficou muito claro para mim o que você quer.

Para fazer um loop use isto:

For i = 1 to 700

"aqui você escreve os que você quer q acontece a cada incremento de i

Next