Problemas resumir columnas con una macro

vic91am · el 23 de junio

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

supervoro · el 24 de junio

Hola vic91am..

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

Parkin_RESUMEN.xls

vic91am · el 24 de junio

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

Un abrazo

vic91am · el 29 de junio

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

Armando Montes · el 30 de junio

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]

supervoro · el 30 de junio

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

Un saludo.

vic91am · el 30 de junio

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!!

Armando Montes · el 1 de julio

En tu pregunta tienes la respuesta.

vic91am · el 2 de julio

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

Armando Montes · el 3 de julio

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