Agilizar macro que presenta lentitud

Preguntas y respuestas relacionadas

Mejorar el tiempo de ejecución de un For Each c In Me.Controls

Tengo un formularios con varios objetos y 231 son txt que les quiero pasar por parámetro un valor. Esto lo consigo pero la ejecución es de 4 seg. Se podría agilizar el tiempo de ejecución os envío el código. 'Congelamos la pantalla hasta que termine...
1 respuesta

¿Macro para bloquear un rango de celdas por medio de un botón y que tenga contraseña?

Pido ayuda por favor para desarrollar una macro que, cuando yo presione un botón me bloquee un rango de celdas, (por ejemplo a11:a20) y que cambie de color, a un color gris oscuro,(como en las páginas web cuando algo no se puede diligenciar en un...
1 respuesta

Animaciones gif en formularios.

Quiero poner alguna animación gif en los formularios, pero no se como. ¿Me puedes solucionar el problema?
1 respuesta

Copiar fila a otra hoja antes de eliminarla

Para dante amor Buena tarde, Te molesto con esta question. Quiero copiar una fila de una hoja a otra antes de eliminarla, para quitarla de los datos activos y mantenerla en otra hoja como referencia. Uso esta macro para eliminar 'Eliminar el registro...
1 respuesta

Macro en Excel extraer de .txt y separar en hojas

Tengo que estraer un texto de un fichero txt y pegarlo en excel separado por columnas. La MACRO que he usado es la siguiente: Sub ejemplo() mio = ActiveWorkbook.Name ruta = ActiveWorkbook.Path ChDir ruta & "\" archi = Dir("*.txt") Do While archi <>...
1 respuesta

Macro recorre columna !urgente!

En la columna A desde A1 hasta A100 hay números, celdas vacías y ceros, necesito una macro que recorra el rango y me elimine unicamente los ceros que el resto del rango quede igual... Muchas gracias x tu ayuda Ya me habías mandado una macro pero lo...
1 respuesta

Ayuda VLOOKUP usado con VBA

Tengo el siguiente código en un modulo Sub buscar() On Error GoTo ERROR2: '=================================== Reporte de linea 501 Reporte.Range("C6") = Application.WorksheetFunction.VLookup(Reporte.Range("B2"), L501.Range("A3:R4500"), 2, False)...
1 respuesta

Macro borrar datos de hoja sin borrar formato

Tengo una macro con la que me ayudaron, trabaja muy bien la cual busca datos en un libro y los anota en una hoja llamada buscador, pero a esta hoja no puedo darle formato ya que se elimina al usarlo, es decir por ejemplo si le pongo un fondo a la...
1 respuesta

Error 1004 en tiempo de ejecución error definido por la aplicación o el objeto

No encuentro el error de acuerdo al código para comenzar en la fila 31 lo hace sin problemas pero a la hora de cerrar el formulario y abrirlo de n huevo con los datos insertados genera el error toca borrar y comenzar de la fila 31 de nuevo y ese no...
2 respuestas

Macro para proteger una celda de excel inmediatamente después de entrar (copiar) algún contenido en ella

Me gustaría me ayuden a completar esta macro Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E13:J13")) Is Nothing Then ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End If End Sub Lo que hace es...
2 respuestas
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas de los temas