Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Optimizar macros para tabla dinamica

Por gabotopuro7
el 18 de febrero en Macros y programación VBA

Recommended Posts

gabotopuro7

publicado el 18 de febrero

hola leia por internet estas ideas:

AL COMIENZO DE LAS MACROS

1. Apagar el parpadeo de pantalla

Lo hacemos con la instrucción: Application.screenupdating=False

Evita los movimientos de pantalla que se producen al seleccionar celdas, hojas y libros

2. Apagar los cálculos automáticos

Lo hacemos con la instrucción: Application.calculation=xlCalculationManualEvita que se recalcule todo cada vez que se pegan o modifican datos

3. Apagar los eventos automáticos

Lo hacemos con la instrucción: Application.EnableEvents=FalseEvita que se disparen macros de evento si las hubiere

4. Apagar visualización de saltos de páginaLo hacemos con la instrucción: ActiveSheet.DisplayPageBreaks = FalseSirve para evitar algunos problemas de compatibilidad entre macros Excel 2003 vs. 2007/2010

En resumen, siempre debemos comenzar las macros así:
Application.screenupdating=False

Application.calculation=xlCalculationManual

Application.EnableEvents=FalseActiveSheet.DisplayPageBreaks = False[/CODE]
.[/i]

[b]AL FINAL DE LAS MACROS

5. Borrar contenido de portapapelesLo hacemos con la instrucción: [i]Application.CutCopyMode = False[/i]Permite limpiar el portapapeles en caso de haber copiado datos

Además debemos volver a su estado original las instrucciones con las que comenzamos la macro.

En resumen, siempre debemos finalizar las macros así:[/b][/b]

[CODE]Application.screenupdating=True
Application.calculation=xlCalculationAutomatic
Application.EnableEvents=True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False[/CODE]

Entonces tenia dudas, uso office 2007 y mi macros es de tablas dinamicas,

1) me recomiendan usar eso?

2)que otros tips conocen para optimizar la velocidad de la macros? que a veces se relentiza en la ejecucion de la macros que cree que filtra los mejores 10 clientes, y es raro porque solo es lento por una columna que son valores de entre 1 y 44000 en numero, mientras que las columnas de ingresos con valores de millones es muy rapida, que

3)ideas me dan para usar en macros para acelerar el proceso?,

4) eso de que sea manual el calculo durante la macro perjudica para la macro de tabla dinamica?. saludos

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)
1. 1. ¿Te parecen útiles los tips de las funciones?
  - Sí
  - No
  - Ni me he fijado en ellos
- Por favor conéctate o regístrate para votar en esta encuesta.
- Ver tema
Ayúdanos a mejorar la comunidad
- Mantenimiento de la comunidad
  
  Donaciones recibidas este mes: 0.00 EUR
  Objetivo: 130.00 EUR
Archivos
- Un juego del Rabino en Excel
  Por pegones1
  2 1
- Agenda Calendario Lunar 2025
  Por pegones1
  4 0
- Calculadora de premios de la Lotería de Navidad española
  Por pegones1
  1 0
- Un juego solitario en Excel
  Por pegones1
  5 0
- XUtilities
  Por digitalboy
  4 0
Estadísticas de descargas
- Archivos
  
  187
- Comentarios
  
  97
- Revisiones
  
  29
Última descarga

Un juego del Rabino en Excel
Por pegones1
2 1
Mensajes
- Contar días Consecutivos desde el último día.
  
  Por Oscar_MRF · publicado hace 5 horas
  
  Que tal nuevamente, adjunto una solución alternativa: =MAX(A:.A)-BYROW(F4:.AK20,LAMBDA(r,BUSCAR(2,1/(r=0),F3:.AK3))) Cabe mencionar que esta solución requiere funciones nuevas como RECORTAR.RANGO. CONTADOR FINAL (Solucion).xlsb
- FORMULA MACRO PARA QUE LA FORMULA SIEMPRE TOME LA ULTIMA FILA Y COLUMNA DE UNA TABLA A PESAR QUE AUMENTE
  
  Por Tilin2023 · publicado hace 13 horas
  
  Adjunto excel CONTADOR FINAL.xlsb
- FORMULA MACRO PARA QUE LA FORMULA SIEMPRE TOME LA ULTIMA FILA Y COLUMNA DE UNA TABLA A PESAR QUE AUMENTE
  
  Por Tilin2023 · publicado hace 13 horas
  
  Buenos días, espero se encuentren bien de salud compañeros, Favor me podrían ayuda con lo siguientes como se podría hacer cuando tengo una tabla dinámica que amedida que se aumente las columnas fechas con data un formula que se coloco al final busque o analice siempre la ultima fila y columna de la fecha. Coloco un ejemplo
- COMO ELIMINAR FILAS CON FECHA QUE NO APARECEN AL SIGUIENTE DIA
  
  Por Tilin2023 · publicado hace 14 horas
  
  @JSDJSD Excelentes, GRACIAS POR TU SOPORTE , me ayudo demasiado es exactamente lo que quería. 5 ESTRELLAS
- COMO ELIMINAR FILAS CON FECHA QUE NO APARECEN AL SIGUIENTE DIA
  
  Por JSDJSD · publicado hace 15 horas
  
  'Opción 1 Sub FiltrarSKUPorFecha(): Application.ScreenUpdating = False Dim ultimaFila As Long, fila As Long Dim diccionarioSKU As Object Dim listaEliminar As Object Dim fechaActual As String, fechaSiguiente As String Dim f As Variant With Sheets("Consolidado") ultimaFila = .Cells(.Rows.Count, 1).End(xlUp).Row ' Crear diccionarios para comparar SKU y almacenar filas a eliminar Set diccionarioSKU = CreateObject("Scripting.Dictionary") Set listaEliminar = CreateObject("Scripting.Dictionary") ' Recorrer desde la primera fila hasta la penúltima For fila = 2 To ultimaFila - 1 fechaActual = .Cells(fila, 1).Value fechaSiguiente = .Cells(fila + 1, 1).Value ' Solo comparar la fecha actual con la siguiente (inmediatamente superior) If fechaActual <> fechaSiguiente Then diccionarioSKU.RemoveAll ' Limpiar el diccionario antes de llenarlo ' Guardar los SKU de la fecha siguiente (solo de la siguiente) For f = fila + 1 To ultimaFila If .Cells(f, 1).Value <> fechaSiguiente Then Exit For diccionarioSKU(.Cells(f, 2).Value) = 1 Next f ' Revisar los SKU de la fecha actual y marcar los que deben eliminarse For f = fila To 2 Step -1 If .Cells(f, 1).Value <> fechaActual Then Exit For ' Solo eliminar si el SKU no está en la fecha siguiente If Not diccionarioSKU.exists(.Cells(f, 2).Value) Then listaEliminar(f) = 1 ' Marcar fila para eliminar después End If Next f ' Ya no es necesario seguir buscando después de comparar la primera y la siguiente fecha Exit For End If Next fila ' Eliminar las filas marcadas sin afectar el bucle principal For Each f In listaEliminar.keys .Rows(f).Delete Next End With MsgBox "Completado correctamente.", vbInformation End Sub 'Opción 2 Sub FiltrarSKUPorFecha1(): Application.ScreenUpdating = False Dim ultimaFila As Long, fila As Long Dim listaEliminar As Collection Dim fechaActual As String, fechaSiguiente As String Dim f As Variant, i As Long Dim SKUExiste As Boolean With Sheets("Consolidado") ultimaFila = .Cells(.Rows.Count, 1).End(xlUp).Row ' Inicializar la colección para marcar las filas a eliminar Set listaEliminar = New Collection ' Recorrer desde la primera fila hasta la penúltima For fila = 2 To ultimaFila - 1 fechaActual = .Cells(fila, 1).Value fechaSiguiente = .Cells(fila + 1, 1).Value ' Solo comparar la fecha actual con la siguiente (inmediatamente superior) If fechaActual <> fechaSiguiente Then ' Revisar los SKU de la fecha actual y marcar los que deben eliminarse For f = fila To 2 Step -1 If .Cells(f, 1).Value <> fechaActual Then Exit For ' Comprobar si el SKU está en la fecha siguiente SKUExiste = False For i = fila + 1 To ultimaFila If .Cells(i, 1).Value <> fechaSiguiente Then Exit For If .Cells(i, 2).Value = .Cells(f, 2).Value Then SKUExiste = True Exit For End If Next i ' Si el SKU no se encuentra en la fecha siguiente, marcar para eliminar If Not SKUExiste Then listaEliminar.Add f ' Marcar fila para eliminar después End If Next f ' Ya no es necesario seguir buscando después de comparar la primera y la siguiente fecha Exit For End If Next fila ' Eliminar las filas marcadas sin afectar el bucle principal For Each f In listaEliminar .Rows(f).Delete Next f End With MsgBox "Completado correctamente.", vbInformation End Sub TABLA ELIMINAR.xlsm
Visualizado recientemente
- No hay usuarios registrado para ver esta página.