Insertar fila, buscando y copiando en excel

[Ritg]

Que tal soy nuevo en esta web, tengo un problema cuento con un archivo de excel de 2 hojas hoja B es de datos que se buscaran y se almacenaran en A, en la hoja A cada vez que llega a mas de 1000 filas, cada vez que genero la macros se pone lento al momento de realizar la insercion de fila con copia de datos de la hoja B.
y solo he aplicado una linea como esta:

Rows("5:5").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("A5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C5:N5").Select
Selection.ClearContents
Range("Q5").Select
Selection.ClearContents
Range("R5").Select
Selection.ClearContents
Range("A5").Select

por favor me pueden indicar como puedo hacer para que se ejecute mas rapido en excel la insercion de fila, tengan en cuenta que trabajo siempre con mas de 1000 filas de datos...

espero su ayuda.

 

[John Davis]

Que tal soy nuevo en esta web, tengo un problema cuento con un archivo de excel de 2 hojas hoja B es de datos que se buscaran y se almacenaran en A, en la hoja A cada vez que llega a mas de 1000 filas, cada vez que genero la macros se pone lento al momento de realizar la insercion de fila con copia de datos de la hoja B.
y solo he aplicado una linea como esta:

Rows("5:5").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("A5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C5:N5").Select
Selection.ClearContents
Range("Q5").Select
Selection.ClearContents
Range("R5").Select
Selection.ClearContents
Range("A5").Select

por favor me pueden indicar como puedo hacer para que se ejecute mas rapido en excel la insercion de fila, tengan en cuenta que trabajo siempre con mas de 1000 filas de datos...

espero su ayuda.

They have a section for posting questions in other languages.

 

[MrKowz]

Bienvenidos a Mr. Excel.

Puedo habar espanol un poco, pero no es bueno. (Voy a tratar de utilizar Google Translate para ayudarle.) Intente quitar las declaraciones seleccionar y combinar métodos similares

With Rows("5:5")
    .Copy
    .Insert Shift:=xlDown
End With
Range("A5", "C5:N5", "Q5", "R5").ClearContents

Además, agregue Application.ScreenUpdating = False al principio de su código, y Application.ScreenUpdating = True a la final del código:

Application.ScreenUpdating = False
With Rows("5:5")
    .Copy
    .Insert Shift:=xlDown
End With
Range("A5", "C5:N5", "Q5", "R5").ClearContents
Application.ScreenUpdating = True