Buenas tardes amigos!!

Con la nueva forma de pago de los parkimetros con el movil he descubierto que puedes bajarte como una base de datos con los tiempos, zona, importe gastado.... Me gustaría hacer una macro para ahorrarme tiempo con una base de datos resumida solo con los datos que me importan.

Me podéis echar una mano?? En la hoja gastos pongo como me sale de la pagina web y en resumen como me gustaría que quedara. Creo que es algo sencillo pero soy muy torpe para esto.

Gracias!!!

Si tenéis algún problema no dudéis en comentarme.

Un Saludo

Parkin.xls

Hola vic91am..

Te remito tu archivo con una macro que soluciona tu problema....

Parkin_RESUMEN.xls

Muchas gracias supervoro, mañana lo miraré y te comento.

Un abrazo

Buenas noches supervoro, no he tenido internet hasta hoy para poder escribir algunas cosillas que he visto. Te paso a comentar y te envio un fichero devuelta de como me gustaría que quedara.

En las horas cuando por ejemplo son las 10:02 al pasar al cuadro resumen aparece 10:2, se come el cero de los minutos.

En el precio aparece -1.25 EUR, al se posible me gustaría suprimir el EUR y el -, es decir, que quedase 1,25

Y por último me gustaría añadir la fecha en la última columna.

Cualquier problema o duda que no haya quedado claro dímelo.

Gracias

Un saludo

Parkin_RESUMEN-DEV.xls

Hola, una opcion con un codigo generado por la grabadora:

Sub Parking()

Application.ScreenUpdating = False

    With Hoja2

        .Columns(4).NumberFormat = "d-mmm"

        .Columns(1).Resize(, 4).HorizontalAlignment = xlCenter

        .[A2:A8].Formula = "=TEXT(gastos!H2,""H:MM"")&""-""&TEXT(gastos!I2,""H:MM"")"

        .[B2:B8].Formula = "=gastos!G2"

        .[C2:C8].Formula = "=MID(gastos!D2,8,1)"

        .[D2:D8].Formula = "=gastos!H2"

        .[A2].CurrentRegion.Value = .[A2].CurrentRegion.Value

        .[B2:B8].Replace " EUR", "", xlPart

        .[B2:B8].Replace "-", "", xlPart

    End With

Application.ScreenUpdating = True

End Sub[/CODE]

Bueno.... otra vez muy bueno... al final me vas a quitar todos los clientes.....jajajjaaja

Un saludo.

GRacias Armando Montes, una pregunta.. en este caso son 8 registros... en el caso que fueran mas, como lo tendría q cambiar para que lo hiciera directamente? Es decir.. en vez de A8 fuera A15

Gracias!!

En tu pregunta tienes la respuesta.

Creo que me explicado mal... digo automáticamente. Que el excel detecte si hay 15 filas o 5 o 35.

Una forma:

Sub Parking2()

Application.ScreenUpdating = False

    With Hoja2

        x = Application.CountA(Hoja1.Columns(1))

        .Columns(4).NumberFormat = "d-mmm"

        .Columns(1).Resize(, 4).HorizontalAlignment = xlCenter

        .[A2].Resize(x).Formula = "=TEXT(gastos!H2,""H:MM"")&""-""&TEXT(gastos!I2,""H:MM"")"

        .[B2].Resize(x).Formula = "=gastos!G2"

        .[C2].Resize(x).Formula = "=MID(gastos!D2,8,1)"

        .[D2].Resize(x).Formula = "=gastos!H2"

        .[A2].CurrentRegion.Value = .[A2].CurrentRegion.Value

        .[B2].Resize(x).Replace " EUR", "", xlPart

        .[B2].Resize(x).Replace "-", "", xlPart

    End With

Application.ScreenUpdating = True

End Sub[/CODE]

Esto te ayudara para lograr soluciones mas rapidas:

Cómo seleccionar celdas y rangos mediante procedimientos de Visual Basic

http://profearias.files.wordpress.com/2011/09/manual_modulo_macros.pdf

14 formas de acelerar y optimizar tus macros excel | TodoExcelTodoExcel

Mi primer macro en excel : Hojas de cálculo Excel

Instrucciones para vba y fórmulas | Ayuda Excel

Muchísimas gracias por el código y los enlaces Armando Montes, este finde lo miraré detenidamente.

Un abrazo!!

Gracias por avisar.

SOLUCIONADO