Ayuda con esta macro

[Luis Rivera]

Hola a todos, alguien me pudiera a yudar a reducir este codigo ya que el mismo lo aplico para muchos registros.

Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 17/06/2009 por LFRS
'...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ioyama]

Hola lrivera_07

Limpiando un poco

Sub Macro2()
'Registro 1
Range("I14").Copy
Sheets("Hoja2").Range("A1:A3").PasteSpecial Paste:=xlPasteValues
Range("J14:L14").Copy...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[varela_b]

hola
a ver si estoe te funciona

Sub CopiaRegistros()
Sheets("Hoja2").Activate
Range("A1").Select
Sheets("Hoja1").Activate
Range("I14").Select
While ActiveCell.Value <> ""

Selection.Copy...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[varela_b]

hola
a ver si estoe te funciona

Sub CopiaRegistros()
Sheets("Hoja2").Activate
Range("A1").Select
Sheets("Hoja1").Activate
Range("I14").Select
While ActiveCell.Value <> ""

Selection.Copy...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Luis Rivera]

Muchas gracias a ioyama y a varela_b por sus tan oportunas respuestas, en especial a varela_b ya que era exactamente lo que necesitaba.

Quedo a sus ordenes para cualquier cosa que requieran...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí