Excel - repetir instruccion macro

   
Vista:

repetir instruccion macro

Publicado por pedro (3 intervenciones) el 02/06/2008 07:50:47
Tengo la siguiente macro:

Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 31/05/2008 por .
'
' Acceso directo: CTRL+l
'
Range("F10001").Select
Selection.Copy
Range("H10001").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H10002").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H10003").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H10004").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H10005").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Como la celda F10001 está referenciada a un número aleatorio cada vez que se activa la función pegar cambia de valor y por tanto el valor de H10001 es diferente al de H10002, el de H10003 es otro,...
¿Como puedo repetir esta serie hasta H10100, por ejemplo? Tened en cuenta que no puedo seleccionar de una vez H10001:H10100, ya que me saldría el mismo número en todas las celdas.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:repetir instruccion macro

Publicado por Oscar Gabriel (13 intervenciones) el 02/06/2008 16:08:12
Usa una iteracion con un for...

ejemplo:

Sub Macro2()
Dim i, j as integer

i = 0
Range("F10001").Select
Selection.Copy
For i = 1 to 100
j = 10000 + i
Range( "H" & j ).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i

end sub

asi ya va a hacerlo para 100 filas, y te ahorras escribir tanto, Espero que te sirva de ayuda...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar