Bando Municipal del Ayuntamiento de Almonte para las Navidades

 En la web  del Ayuntamiento de Almonte podemos encontrar el Bando Municipal publicado para estas navidades.

Por supuesto hay que resaltar las medidas previstas por la Junta de Andalucía por el Covid. El Bando nos dice exactamente:

1.- Las mascarillas son de uso obligatorio para todas las personas desde seis años en adelante que se encuentren en la vía pública (incluidas las terrazas), en los espacios al aire libre y en cualquier espacio cerrado de uso público o que se encuentre abierto al público (bares, cafeterías, restaurantes y establecimientos de ocio y esparcimiento), aunque pueda garantizarse la distancia interpersonal de seguridad de 1,5 metros.

2.- Así mismo, las mascarilla es de uso obligatorio en los medios de transporte públicos y privados complementarios de viajeros en vehículos de hasta nueve plazas si los ocupantes de los vehículos de turismo no conviven en el mismo domicilio. 

Del mismo modo, las personas que utilicen carruajes, caballos u otro equino como medio de transporte estarán de igual modo obligados al uso de mascarilla.

3.- La mascarilla deberá mantenerse puesta en todo momento en el que no sea incompatible con la actividad que se realiza, incluso sentados en la mesa, mientras no se consuma.

* Las terrazas son consideradas vía pública y, por lo tanto, la mascarilla será de uso obligatorio.

* Se recomienda el uso de la mascarilla en los espacios abiertos o cerrados privados (viviendas, casas de Hermandades, etc), cuando existan reuniones o una posible confluencia de personas no convivientes, aun cuando pueda garantizarse la distancia de seguridad.

4.- Se debe mantener una distancia social de dos metros siempre que sea posible.

5.- Se debe mantener una correcta ventilación de todos los espacios en los que se encuentren personas para evitar elevar la carga viral en el entorno. Esto es, mantener abiertas puertas y ventanas de todos los espacios cerrados mientras haya agrupación de personas, así como con posterioridad a esta.

También hay que resaltar el comienzo, por parte del ayuntamiento, para tomar medidas contra la clandestinidad del uso de las viviendas de la Aldea con fines comerciales como casas rurales, alojamientos turísticos u otros fines similares. El Bando nos dice exactamente:

Se hace especial mención a la prohibición de hacer uso de las Casas Hermandades diferente al fin contemplado en el PGOU. De igual modo, queda expresamente prohibido destinar viviendas particulares con fines comerciales como casas rurales, alojamientos turísticos u otros fines similares.

El resto de medidas consideradas por el Ayuntamiento de Almonte las tenéis en el propio Bando Municipal.

Séptima Parte Crud - Botón Actualizar

 Continuamos con la siguiente entrada al Blog con el objeto de insertar un botón para actualizar un registro con los datos introducidos en el formulario. Por supuesto, lo que haremos será copiar nuestro botón, y le insertaremos el icono que más nos guste para este botón.

Primero, tenemos que tener en cuenta que solamente podemos buscar por el id. Una vez que hemos encontrado el registro, podremos variar todos los datos menos el Id, y una vez modificado el apartado, le daremos al botón Actualizar.

Crearemos una macro llamada actualizar y se la asignaremos a nuestro botón.

Sub Actualizar()

With BBDD

'recuperando el codigo actualizar

'recuperamos las variables

    Dim Id As Long

    Dim Fecha As Date

    Dim Tipo, Musculo, Ejercicios, Repeticiones, Peso As String

    Dim Series As Integer

     'capturamos los datos obtenidos de la busqueda

    Id = Formulario.Cells(3, 3)

    Fecha = Formulario.Cells(5, 3)

    Tipo = Formulario.Cells(7, 3)

    Musculo = Formulario.Cells(9, 3)

    Ejercicios = Formulario.Cells(11, 3)

    Series = Formulario.Cells(13, 3)

    Repeticiones = Formulario.Cells(15, 3)

    Peso = Formulario.Cells(17, 3)

   'buscamos la linea

   Dim fila, filamax As Long

   'calculamos la ultima fila ingresada

   filamax = .UsedRange.Rows.Count 'nos da como resultado 8 la última fila con datos de la bbdd

    

   For fila = 2 To filamax

        If (.Cells(fila, 1) = Id) Then

            If Fecha = Empty Then

                MsgBox "El campo Fecha no puede estar vacio"

            ElseIf Tipo = "" Then

                MsgBox "El campo Tipo no puede estar vacio"

            ElseIf Musculo = "" Then

                MsgBox "El campo Músculo no puede estar vacio"

            ElseIf Ejercicios = "" Then

                MsgBox "El campo Ejercicios no puede estar vacio"

            ElseIf Series = 0 Then

                MsgBox "El campo series no puede estar vacio"

            ElseIf Repeticiones = "" Then

                MsgBox "El campo Repeticiones no puede estar vacio"

            Else

            .Cells(fila, 2) = Fecha

            .Cells(fila, 3) = UCase(MonthName(Month(Fecha), False))

            .Cells(fila, 4) = Year(Fecha)

            .Cells(fila, 5) = UCase(Tipo)

            .Cells(fila, 6) = UCase(Musculo)

            .Cells(fila, 7) = UCase(Ejercicios)

            .Cells(fila, 8) = Series

            .Cells(fila, 9) = Repeticiones

            .Cells(fila, 10) = Peso

            'mensaje todo correcto

            MsgBox "Registro Actualizado"

            'limpiar

            limpiar

            End If

        End If

   Next fila

 End With

End Sub

En principio comenzaremos crean una serie de variables que necesitaremos para capturar los datos que hemos obtenido en la búsqueda y cargarlos en las variables creadas.

Hemos vuelto a crear dos variables una fila y la otra filamax, que lo que hace el caso de filamax es calcularnos la última fila con datos, y la variable fila es para recorrer todas las filas.

En la parte siguiente creamos un ciclo donde nos encontrará en la hoja de la base de datos el valor que nos consta en la variable Id, para que posteriormente donde coincida el valor de Id nos actualice el resto de columnas con los datos modificados en las celdas correspondientes.

Todo esto viene de bbdd.Cells(fila, 1) = Id, donde coincida actualizará con los datos que existen en el formulario con las columnas siguientes.

Por supuesto, hemos creado una validación por si vaciamos algún campo por error, para que no nos actulice el registro.

¿Qué es Power Query?

 Power Query es una de las herramienta más poderosas que posee Microsoft Excel.

Power Query es una tecnología de conexión de datos que permite detectar, conectar, combinar y refinar orígenes de datos para satisfacer sus necesidades de análisis. Las características de Power Query están disponibles en Excel y Power BI Desktop.

Con Power Query se pueden realizar conexiones con distintos tipos de archivos y por supuesto darle forma a todos los datos y posteriormente añadirlo a nuestra hoja de cálculo mediante tablas, tablas dinamicas, gráficos dinámicos o solamente conexiones para posteriormente realizar las acciones que queramos realizar.

¿Desde que versión Microsoft Excel la incluye?

Power Query está disponible como una descarga para Excel 2013 y 2010. 

Hay versiones las más modernas que no hace falta hacer nada para poder usar la herramienta, pero en los caso de versiones más antiguas tenemos que realizar una activación para poder utilizar dicho complemento.

Si no ves la solapa puedes activarla siguiendo los siguientes pasos:

• Click en la pestaña “Archivo”,
• En el menú, click en “Opciones”.
• Click en “Complementos”.
• Busca “Administrar” en la parte inferior del diálogo y selecciona “Complementos COM” en la lista desplegable.
• Click en “Ir”
• Selecciona “Microsoft Power Query para Excel” y click en “Aceptar”.

En la versión de Excel 2016 en cambio, Power Query está incluido dentro de la solapa “Datos”.

¿De qué tipo de archivos podemos obtener datos?

En principio debemos saber que podermos conectarnos con multitud de archivos como otros documentos excel, dede archivos de texto/CSV, archivos XML, desde Json, etc...

También desde numerosas base de datos, desde tablas de excel que estén en nuestro documento, de rango de celdas.

Una buena utilidad es conectarse a una carpeta, por ejemplo si en ella tenemos los datos del mes de enero de un año cualquiera, realizamos una conexión con dicho archivo y posteriormente introducimos otros archivos en la misma carpeta se nos actualizará las conexiones y obtendremos datos de distintos archivos.

Una vez que nos hemos conectado y hemos obtenido una consulta, podemos mejorar nuestros datos de manera ágil y sencilla…

Mediante su sistema de gestión por pasos podremos evitarnos las complejas fórmulas que realizamos en Excel para obtener un único dato y hacerlo poco a poco.

¿Qué podemos hacer para transformar nuestros datos en Power Query?

Podemos quitar columnas que no utilizamos

Cambiar el tipo de dato que no queremos

Obtener datos de otras tablas e insertarlos en nuestra consulta

Crear columnas calculadas condicionales

Crear fórmulas con los datos de nuestras columnas o con datos de otras tablas o variables.

Etc, etc, etc.

Con Power Query puedes analizar tus datos de manera muy sencilla. Puedes realizar agregaciones, uniones, sumas, contar… básicamente cualquier operación que haríamos con tablas dinámicas pero sin usarlas.

Sexta Parte del Crud Botón Agregar

 Continuamos con la siguiente entrada al Blog con el objeto de insertar un botón para agregar un registro con los datos introducidos en el formulario. Por supuesto, lo que haremos será copiar nuestro botón, y le insertaremos el icono que más nos guste para este botón.

Realizaremos la macro Agregar  y posteriormente se la asignaremos a nuestro botón.

Esta es la macro Agregar

With BBDD

    'recuperando variable de los datos

    Dim Id As Long

    Dim Fecha As Date

    Dim Tipo, Musculo, Ejercicio, Repeticiones, Peso As String

    Dim Serie As Integer

        'lo escrito en los espacios lo almacenamos en variables

    Fecha = Formulario.Cells(5, 3)

    Tipo = Formulario.Cells(7, 3)

    Musculo = Formulario.Cells(9, 3)

    Ejercicio = Formulario.Cells(11, 3)

    Serie = Formulario.Cells(13, 3)

    Repeticiones = Formulario.Cells(15, 3)

    Peso = Formulario.Cells(17, 3)

    'calculamos la ultima fila para poder ingresar el registro

    Dim fila, filamax As Long

    filamax = .UsedRange.Rows.Count

    'obtenemos el codigo nuevo que es uno mas que el anterior

       Id = .Cells(filamax, 1) + 1

    'MsgBox Id

'grabar la fila nueva

    'vamos a realizar una validación

    If Fecha = Empty Then

        MsgBox "El campo Fecha no puede estar vacio"

    ElseIf Tipo = "" Then

        MsgBox "El campo Tipo no puede estar vacio"

    ElseIf Musculo = "" Then

        MsgBox "El campo Músculo no puede estar vacio"

    ElseIf Ejercicio = "" Then

        MsgBox "El campo Ejercicio no puede estar vacio"

    ElseIf Serie = 0 Then

        MsgBox "El campo Serie no puede estar vacio"

    ElseIf Repeticiones = "" Then

        MsgBox "El campo Repeticiones no puede estar vacio"

    Else

        .Cells(filamax + 1, 1) = Id

        .Cells(filamax + 1, 2) = Fecha

        .Cells(filamax + 1, 3) = UCase(MonthName(Month(Fecha), False))

        .Cells(filamax + 1, 4) = Year(Fecha)

        .Cells(filamax + 1, 5) = UCase(Tipo)

        .Cells(filamax + 1, 6) = UCase(Musculo)

        .Cells(filamax + 1, 7) = UCase(Ejercicio)

        .Cells(filamax + 1, 8) = Serie

        .Cells(filamax + 1, 9) = Repeticiones

        .Cells(filamax + 1, 10) = Peso

        MsgBox ("Registro Completado")

        'limpiamos los campos

        limpiar

 End If

End With

End Sub 

Macro limpiar:

Sub limpiar()

With Formulario

    .Cells(3, 3) = "" 'Codigo

    .Cells(5, 3) = "" 'fecha

    .Cells(7, 3) = "" 'Tipo

    .Cells(9, 3) = "" 'Musculo

    .Cells(11, 3) = "" 'Ejercicio

    .Cells(13, 3) = "" 'Series

    .Cells(15, 3) = "" 'Repeticiones

    .Cells(17, 3) = "" 'Peso

    'nos posicionamos

    .Cells(5, 3).Select 'fecha

End With

End Sub

En principio comenzaremos crean una serie de variables que necesitaremos para agregar nuestro  registro. Posteriormente le asignaremos el valor a cada variable de lo introducido en cada celda de nuestra hoja formulario.

La primera que hemos utilizado es el caso de :

Fecha = Formulario.Cells(5, 3).

Esto lo que hace es que la variable Fecha será igual a lo introducido en la hoja formulario, exactamente en nuestra celda de fila 5 y columna C. Y el resto igual.

En la segunda parte de la macro lo que hos hace es que la variable filamax nos calcula la ultima fila con datos y a partir de ahí le asignamos el valor a la variable Id el número siguiente al introducido en la última fila de la columna A.

Seguidamente lo que vamos a inscribir el nuevo registro, pero para ello realizaremos primero una validación, por si nos falta algún dato que no hayamos introducido. En el caso de que hayamos rellenado todos los campos nos introducirá el registro en la base de datos y nos mostrará un mensaje de Registro Completado, y posteriormente nos limpiará los registros, que esto lo tenemos en una nueva macro llamada limpiar.

La macro limpiar lo único que hace es que una vez realizado el registro nos limpia los campos de la hoja formulario y se posiciona en la celda de la fecha.