Victor Rodriguez

En la macro que dices que tarda tanto, has incluido al principio Application.ScreenUpdating = False y al final: Application.ScreenUpdating = True Prueba y me cuentas, se mejora mucho el tiempo de ejecución

Yo siempre he usado la función SUMACOLOR, que la puedes encontrar en: https://exceltotal.com/sumar-por-colores-en-excel/

Prueba con esta macro: Sub copiar() If Sheets(7).Range("C447").Value = "0" Then Sheets(7).Range("B2:G345").Copy Sheets(3).Range("B56") Else End If End Sub

Prueba con If Not Intersect(Target, Range("B10:B1002")) Is Nothing Then

Esta macro sirve para abrir archivos que están en el mismo directorio usando Activeworkbook. Path. Espero te sirva Sub abrir() Workbooks.Open Filename:=ActiveWorkbook.Path & "\EJEMPLO.xlsx" End Sub

Supongo que tu macro lanza IE y el tiempo de carga entre diferentes PC es diferente, por eso debe fallar. Pon: Application. Wait "00:00:05" Después de la línea que lanza IE

Esta pregunta viene de este hilo Insertar un checkbox por cada celda con datos Esta macro te debería servir Sub Validation() Dim cell, LRow As Single Application.ScreenUpdating = False LRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row...

Prueba esto: Sub listas() Application.ScreenUpdating = False Sheets("Generador").Activate Range("A8:A1000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("X1"), Unique:=True Sheets("Generador").Activate Columns("X:X").Select...

Es mejor buscar V00 y reemplazar por V. De este modo no te eliminará 00 no deseados como en V002568003

Esto te servirá: Sub guardar() libro = ActiveWorkbook.Name nombre = Left(libro, Len(libro) - 4) ActiveWorkbook.SaveAs Filename:="C:\users\usuario\desktop\" & nombre & ".xls", FileFormat:=xlExcel8 End Sub Deberás cambiar la ruta en negrita por la que...