James Bond

Si dices que tienes una macro que dura una hora, ni de chiste vas a a usar Excel al mismo tiempo esto es así o usas el Excel o usas la macro, lo que debes arreglar es la macro, 1 hora de duración de una macro es la locura !, yo las he hecho para...

Prueba con esta macro, solo cambia la palabra password por la de tu preferencia ActiveWorkbook.SaveAs Filename:="C:\archivos excell\Libro1.xlsm", FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, Password:="password", CreateBackup:=False

Si no existe te marcara un error, yo tengo un código similar a lo que quieres hacer, si la hoja no existe el mismo error mandara llamar a un programa de creación de hojas. On Error Resume Next Ext = (Worksheets("Datos_Resumen").Name <> "") If...

Checa los resultados de esta macro, proceso casi 16000 filas en 1 segundo y esta es la macro Sub poner_fechas() inicio = Time Set datos = Range("a10").CurrentRegion Range("b2").Resize(1, 4).EntireColumn.Insert With datos r = .Rows.Count .Columns(2) =...

Este es el resultado de la macro y esta es la macro Sub numerar_por_meses() meses = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12) Set datos = Range("a1").CurrentRegion With datos .Sort key1:=Range(.Columns(2).Address), order1:=xlAscending,...

Usa esta macro, solo cambia los valores de disminución a tu gusto Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Application.EnableEvents = False With Me.Image1 .Height = 150 * 1.1...

Usa esta macro es más corta Sub Copia2() Set h1 = Worksheets("hoja1") Set h2 = Worksheets("hoja2") h2.Range("h1:f1").Copy With h1 .Select With Range("f8") r = .CurrentRegion.Rows.Count c = .CurrentRegion.Columns.Count If r = 1 And c = 1 Then...

Pega este código enn el modulo de la hoja en la que quieras que no aparezca el menu contextual o bien el el modulo thisworkbook para que lo desactive en todas las hojas Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As...

Este es el resultado de la macro y esta es la macro Sub sumar() Set datos = Range("c1").CurrentRegion With datos r = .Rows.Count With Range("L1").Resize(r, 1) .Value = datos.Value .RemoveDuplicates Columns:=1 Set unicos = .CurrentRegion r =...

Primero lo que quieres que el texto se busque en otra hoja a medida que lo vas texteando en una hoja de Excel no es posible (al menos yo lo he intentado y no he encontrado más que algo aproximado) por la simple razón que necesitas salirte de la celda...