Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic para Aplicaciones - Problema con una Macro

Life is soft - evento anual de software empresarial
  Imprimir  
Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

Problema con una Macro

Autor:Guiomar Morillo Repiso (1 intervención)
Fecha: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
Responder
Imágen de perfil de JuanC
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

Problema con una Macro

Autor:JuanC juanc2942@gmail.com (394 intervenciones)
Fecha: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
Comentar