Macro muy lenta

Hola expertos por favor necesito de su ayuda urgente, sucede que tengo una macro que es muy lenta cuando se ejecuta; esta macro me permite pasar los datos de un formulario en una hoja de excel a una base de datos (otra hoja en excel), la macro con la que cuento es la siguiente:
Sub ingrdata()
    Dim linea_libre As Long
    Application.ScreenUpdating = False
    Sheets("BDControl").Select
        linea_libre = WorksheetFunction.CountA(Range("A:A")) + 1
        Cells(linea_libre, 1).Value = Sheets("ModAsistencia").[A37]
        Cells(linea_libre, 2).Value = Sheets("ModAsistencia").[B37]
        Cells(linea_libre, 3).Value = Sheets("ModAsistencia").[C37]
        Cells(linea_libre, 4).Value = Sheets("ModAsistencia").[D37]
        Cells(linea_libre, 5).Value = Sheets("ModAsistencia").[E37]
        Cells(linea_libre, 6).Value = Sheets("ModAsistencia").[F37]
        Cells(linea_libre, 7).Value = Sheets("ModAsistencia").[G37]
        Cells(linea_libre, 8).Value = Sheets("ModAsistencia").[H37]
        Cells(linea_libre, 9).Value = Sheets("ModAsistencia").[I37]
        Cells(linea_libre, 10).Value = Sheets("ModAsistencia").[J37]
        Cells(linea_libre, 11).Value = Sheets("ModAsistencia").[K37]
        Cells(linea_libre, 12).Value = Sheets("ModAsistencia").[L37]
        Cells(linea_libre, 13).Value = Sheets("ModAsistencia").[M37]
        Cells(linea_libre, 14).Value = Sheets("ModAsistencia").[N37]
        Cells(linea_libre, 15).Value = Sheets("ModAsistencia").[O37]
        Cells(linea_libre, 16).Value = Sheets("ModAsistencia").[P37]
        linea_libre = WorksheetFunction.CountA(Range("A:A")) + 1
        Cells(linea_libre, 1).Value = Sheets("ModAsistencia").[A38]
        Cells(linea_libre, 2).Value = Sheets("ModAsistencia").[B38]
        Cells(linea_libre, 3).Value = Sheets("ModAsistencia").[C38]
        Cells(linea_libre, 4).Value = Sheets("ModAsistencia").[D38]
        Cells(linea_libre, 5).Value = Sheets("ModAsistencia").[E38]
        Cells(linea_libre, 6).Value = Sheets("ModAsistencia").[F38]
        Cells(linea_libre, 7).Value = Sheets("ModAsistencia").[G38]
        Cells(linea_libre, 8).Value = Sheets("ModAsistencia").[H38]
        Cells(linea_libre, 9).Value = Sheets("ModAsistencia").[I38]
        Cells(linea_libre, 10).Value = Sheets("ModAsistencia").[J38]
        Cells(linea_libre, 11).Value = Sheets("ModAsistencia").[K38]
        Cells(linea_libre, 12).Value = Sheets("ModAsistencia").[L38]
        Cells(linea_libre, 13).Value = Sheets("ModAsistencia").[M38]
        Cells(linea_libre, 14).Value = Sheets("ModAsistencia").[N38]
        Cells(linea_libre, 15).Value = Sheets("ModAsistencia").[O38]
        Cells(linea_libre, 16).Value = Sheets("ModAsistencia").[P38] 
    Sheets("ModAsistencia").Select
    Application.ScreenUpdating = True
    MsgBox "Asistencia Ingresada con Éxito"
        borrarplaning
End Sub
Nota: Se repite la misma sentencia hasta [A44]...[P44]
Por favor me es muy imprescindible su apoyo, necesito que esta macro se ejecute de una manera más rápida.
Respuesta
1
Esto no tarda, ¿qué hace borraplaning?
Cuando sepas que hace borrarplaning, lo haremos más rapido, tengo tu solución, pero mira esto y hablamos.
Muchas gracias por tomarte la molestia de responder, en verdad te estoy muy agradecido, para que tengas una mayor referencia, esta macro pertenece a un modulo de control de asistencia en la empresa en la que laboro, si deseas te puedo enviar el archivo, mi correo es: [email protected], dejame ahí un mensaje y te envío el archivo mencionado.
Lo que hace "borrarplaning", es borrar todos los datos del formulario de ingreso después de haber sido almacenado los datos en la base de datos; hay que tener muy en cuenta que así como esta el ejemplo que puse en el blog (guardar los datos de la fila A37 hasta P37 y de A38 hasta P38) la sentencia sigue secuencialmente hasta llegar a la fila 44, lamentablemente no pude copiar toda la sentencia debido a lo extenso de la macro.
Espero tu respuesta, una vez más muchas gracias por tu valiosa ayuda.
Te envíe un mail.
Muchas gracias por tu valiosa ayuda, con unas cuantas modificaciones más el archivo que me enviaste quedo genial.
Saludos cordiales, hasta una nueva oportunidad.
Miguel Angel

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Celda Activa, presionar enter para disparar Macro

Quiero hacer una macro que al dar ENTER en una celda dispare una macro, en la hoja "AL 1-MAR-08" en la columna A escribo un código, lo que hace la macro es buscar ese código en otra hoja "CATALOGO PROD", al encontrarlo, brinca 1 columna y el valor de...
1 respuesta

Crear cronometro excel 2010

He estado intentando crear una macro para cronometrar con excel y no lo consigo, lo que necesitaría sería el cronometro en si, que cuando le de a un botón comience, con otro botón pare y con otro resetee a "0". También estoy intentando poner una...
1 respuesta

Agregar los datos ingresados en un userform a una celda vacía de la tabla

Estoy haciendo una tabla en excel con un userform. En el mismo ingreso un par de datos que quiero q me los copie en la tabla pro debajo del anteriormente ingresado. Realice un código pero el mismo me copia los datos siempre en la misma fila.
1 respuesta

Buscar con un dato y copiar filas enteras que lo contengan

A5:D20, Tab_Facturas) con datos repetidos (que está en la Hoja1), necesito buscar todas las filas que tengan por ejemplo el numero dos que se encuentran en la columna "C" que es el N°. De vendedor, la columna "A" contiene el N°. De Factura, la...
1 respuesta

Contador para ejecutar setencia macro

La siguiente sentencia me permite copiar una fila de una hoja a otra Dim filaUlt As Long 'ejecutamos setencia Sheets("Hoja1").Select 'seleccionamos hoja filaUlt = Sheets("Hoja1").Range("A65536").End(xlUp).Row + 1 ' y buscamos la última fila Range("A"...
1 respuesta

Copiar datos de una columna a otra hoja

Primero que todo felicidades por la pagina muy bonita. La pregunta es esta en mi hoja 1 capturo como 20 datos en la columna b1 hasta b20 y con un botón mandarlos a la hoja 2 que es mi base de datos solamente que en la fila 1 tengo los títulos y deseo...
2 respuestas

Macro buscar ultima fila con datos y copiar rango

Necesito una macro que me permita averiguar cual es la última fila con datos y a partir de ahí me copie todo el rango hacia arriba. Me explico quisiera que el macro me averigüe la ultima fila con datos por ejemplo en la columna "A", por ejemplo que...
1 respuesta