v_344

Asi quedaria el codigo, deberas insertar un boton de comando del menu programador del cuadro activex. Private Sub CommandButton1_Click() While ActiveCell.Value <> "" ActiveCell.Offset(4, 0).Select Selection.EntireRow.Insert num1 =...

Suponiendo que el valor 20100120 esta en la celda A1, entonces escribe la siguiente formula en la celda que kieras la fecha:=FECHA(EXTRAE(A1, 1,4), EXTRAE(A1, 5,2), EXTRAE(A1, 7,2))lixto!... cualquier duda x por aki voy a vagar