Visual Basic para Aplicaciones - Problema con una Macro

Life is soft - evento anual de software empresarial
   
Vista:

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
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
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Buscador para Excel
- Formulario de Access
- Metodos Numéricos
Imágen de perfil de JuanC

Problema con una Macro

Publicado por JuanC juanc2942@gmail.com (424 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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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...

1
2
3
4
5
Sub main()
For j=1 to n_repeticiones
      Call copiarcells()
next j
end sub


Saludos, desde Baires, JuanC
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