Visual Basic para Aplicaciones - Problema con una Macro

Problema con una Macro

Publicado por Guiomar Morillo Repiso (1 intervención) el 18/05/2012 20:42:59

Hola!

Tengo un problema con una macro que no me funciona, espero que alguien me pueda ayudar :)
Antes que nada quiero decir, que llevo como una hora "aprendiendo" visual basic, hasta ahora lo desconocía por completo, así que perdón por ineptitud.

Lo que necesito hacer es que el programa me copie lo que hay en una celda x, hasta la siguiente celda escrita, para ello he conseguido que me lo haga una vez, con el código de más abajo, pero soy incapaz que este procedimiento me lo repita más de una vez.

Si alguien me puede ayudar se lo agradecería mucho :)
Gracias por la atención!!

Sub copiarcells()

For i=1 to 6

range("E5").select
activecell.copy
selection.end(xldown).select
activesheet.paste
application.cutcopymode=false
selection.end(xldown).select

next

end sub

Problema con una Macro

Publicado por JuanC (565 intervenciones) el 18/05/2012 23:28:21

hay algo que no me gusta en ese código... pero bue...
para repetir agregale otro bucle For...Next

Sub copiarcells()

For j=1 to n_repeticiones

For i=1 to 6

range("E5").select

activecell.copy

selection.end(xldown).select

activesheet.paste

application.cutcopymode=false

selection.end(xldown).select

next

next j

end sub

también podrías hacer un bucle en otro procedimiento...

Sub main()

For j=1 to n_repeticiones

      Call copiarcells()

next j

end sub

Saludos, desde Baires, JuanC