Dante Amor

Tienes que poner tu macro en los eventos de tu hoja. Así cada vez que modifiques la celda donde tienes el código la macro se ejecute Pon la siguiente macro en los eventos de worksheet Private Sub Worksheet_Change(ByVal Target As Range) 'Mod.Por.DAM...

Puede ser así, sigue las instrucciones, si tus datos empiezan en la celda E1 En la celda F1 pon el número 1 En la celda F2 pon la siguiente fórmula =F1+4 Copia la fórmula hasta el final de tus datos En la celda G1 pon la siguiente fórmula...

Te anexo la macro Sub macro12() 'Por.DAM Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row).TextToColumns _ Destination:=Range("D2"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 2), Array(2, 2), Array(4, 2), Array(6, 2), Array(8, 2),...

Prueba con esta macro Sub abrearchivo() 'Por.Dam ruta = ThisWorkbook.Path Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione archivo de excel" .Filters.Clear .Filters.Add "Todos",...