viernes, 22 de diciembre de 2023

Función Repetir de Microsoft Excel con Iconos

 Vamos a realizar un ejemplo en Microsoft Excel con la función Repetir pero incluyendo iconos de Windows preestablecidos.

Tenemos una tabla con nuestro ID, el Nombre del Alumno y la Nota.


A esta tabla vamos añadir una nueva columna que le  pondremos el nombre de ICONO, y le introduciremos la siguiente fórmula:
=REPETIR("⭐";[@NOTA])

Como conseguidos esos iconos, pues si pulsamos la tecla windows y el punto, nos saldrá una ventana emergente, parecida a esta:



En la parte de abajo podemos elegir el reloj, la carita y así sucesivamente, donde nos mostrará los distintos iconos, y podremos elegir él que más nos guste para cada caso. Eso si, tendremos que ponerlo entre comillas, ya que lo coge como si fuese un texto.




jueves, 21 de diciembre de 2023

Continuamos con el Real Decreto 990/2022 sobre Normas de Sanidad y Protección Animal durante el Transporte

 Real Decreto 990/2022, de 29 de noviembre, sobre normas de sanidad y protección animal durante el transporte.

Articulo 11.  Registro de la Actividad.

1. El registro de actividad, establecido en el artículo 48 de la Ley 8/2003, de 23 de abril, consistirá en el archivo, para cada medio de transporte o contenedor, de la documentación e información relativa a cada movimiento, de acuerdo con el artículo 10, en soporte papel o informático, ordenada cronológicamente.

2. Este archivo deberá mantenerse en la sede social o domicilio, en el caso de ser persona física, del transportista y a disposición de la autoridad competente, durante un período mínimo de tres años.

Este articulo establece que el Registro de la Actividad deberá tenerse en soporte papel o informático, y deberá mantenerse en la sede social o domicilio.

Este mismo articulo, no dice lo mismo, que las normativas de la Comunidad Autónoma de Andalucía, por lo que en un principio, debería la legislación de la Comunidad adaptarse a la norma, cosa que hasta el momento no lo ha hecho, y cuando existe una normativa en la comunidad autónoma prevalece sobre la estatal, por lo que, hasta el momento se aplica la norma de la Comunidad Autónoma de Andalucía.

Artículo 12. Formación en materia de protección de los animales durante el transporte.

1. Las personas que manejan animales vertebrados vivos durante el transporte y operaciones conexas en relación con una actividad económica, incluyendo el personal de los centros de concentración autorizados de acuerdo con la normativa veterinaria de la Unión Europea, el personal que participe en la captura y carga de animales, los operadores que presten servicio en puertos y aeropuertos, incluidas las empresas de servicios de asistencia en tierra en aeropuertos, que manejen animales vivos y la tripulación de buque destinado al transporte de ganado deberán haber recibido una formación que incluya las disposiciones de los anexos I y II del Reglamento (CE) n.º 1/2005 del Consejo, de 22 de diciembre de 2004, conforme a su artículo 6.4. Dicha formación deberá ajustarse al tipo de transporte que se va a realizar y se acreditará documentalmente de acuerdo con lo que determine la autoridad competente.

2. Los conductores o cuidadores en un vehículo de carretera destinado al transporte de équidos, bovinos, ovinos, caprinos, porcinos o de aves de corral dispondrán de un certificado de competencia expedido por la autoridad competente, de acuerdo con el modelo establecido en el anexo III, capítulo III del Reglamento (CE) n.º 1/2005 del Consejo, de 22 de diciembre de 2004, en el que se incluirá el número de identificación fiscal, pasaporte o número de identificación de extranjero de la persona a la que se concede. 

3. No será aplicable lo establecido en los apartados 1 y 2 a las autorizaciones previstas en el artículo 5.6.c).

4. En el caso de detectarse una infracción, sin perjuicio de las medidas provisionales que pudieren adoptarse conforme al artículo 56 de la Ley 39/2015, de 1 de octubre, la autoridad competente podrá acordar como medida cautelar la suspensión o la retirada inmediata del certificado de competencia, además de aplicar el régimen sancionador que corresponda de acuerdo al artículo 24.

5. Los cursos de formación al objeto de la expedición del certificado de competencia, deberán cumplir los requisitos mínimos establecidos en el anexo V del presente real decreto. La impartición de los cursos o la realización del examen final podrán llevarse a cabo por la autoridad competente, o ser reconocidos, homologados o autorizados por ésta a otras entidades públicas o privadas. La autoridad competente garantizará la independencia y la ausencia de conflicto de intereses de los examinadores. Las homologaciones, reconocimientos o autorizaciones a entidades privadas realizadas por la autoridad competente surtirán efectos en todo el territorio nacional.

6. Las autoridades competentes podrán reconocer, como equivalentes para la obtención del certificado de competencia, las cualificaciones obtenidas con otros fines, siempre que por su contenido se reúnan los requisitos mínimos establecidos en el Reglamento (CE) n.º 1/2005 del Consejo, de 22 de diciembre de 2004.

7. El reconocimiento de la competencia por parte de una autoridad competente de la Unión Europea surtirá efecto en España, y viceversa, de acuerdo con los artículos 16 y 17 del Reglamento (CE) n.º 1/2005 del Consejo, de 22 de diciembre de 2004.

lunes, 18 de diciembre de 2023

Crear Carpetas Automáticas

 Vamos a ver como podemos crear carpetas automáticas en una determinada carpeta que tengamos en su interior un archivo con extensión Bat.

En nuestro ejemplo tenemos una tabla, que la nuestra tiene tres columnas, y puede tener las filas que queramos.

La primera Columna le hemos puesto el Nombre, la segunda el Apellido y la tercera el nombre de la columna es Instrucción, la cual posee la siguiente fórmula:

=CONCAT("MD ";B4;"_";C4)





La fórmula lo único que hace es concatenar las letras MD con el Nombre y Apellido separado de un guion.

Luego en una carpeta que elijamos de nuestro ordenador creamos un archivo de texto y copiamos las filas que se encuentran en la columna de Instrucción, y este archivo lo guardamos con el nombre que queramos pero con la extensión .BAT

El siguiente paso es ejecutar dicho archivo, y nos creará una carpeta por cada fila que hayamos copiado en nuestro archivo de texto.




sábado, 16 de diciembre de 2023

Decreto con Fines Turísticos Parte 3

 Continuamos con el Decreto 28/2016, de 2 de febrero, de las viviendas con fines turísticos y de modificación del Decreto 194/2010, de 20 de abril, de establecimientos de apartamentos turísticos.

Artículo 6 Requisitos y servicios comunes.

Las viviendas con fines turísticos deberán cumplir con los siguientes requisitos:

a) Disponer de licencia de ocupación, y cumplir en todo momento con las condiciones técnicas y de calidad exigibles a las viviendas.

b) Las habitaciones tendrán ventilación directa al exterior o a patios y algún sistema de oscurecimiento de las ventanas. Este requisito no será exigible cuando la vivienda o el edificio en el que se integra esté catalogado como Bien de Interés cultural y el nivel de protección impida realizar algún tipo de obra, modificación o intervención que sea necesaria para cumplir con el requisito.

c) Estar suficientemente amuebladas y dotadas de los aparatos y enseres necesarios para su uso inmediato y acorde al número de plazas de que dispongan.

d) Refrigeración por elementos fijos en las habitaciones y salones, cuando el período de funcionamiento comprenda los meses de mayo a septiembre, ambos inclusive. Si el periodo de funcionamiento  comprende los meses de octubre a abril, ambos inclusive, deberán contar con calefacción. Este requisito no será exigible cuando la vivienda o el edificio en el que se integra esté catalogado como Bien de Interés cultural y el nivel de protección impida realizar algún tipo de obra, modificación o intervención que sea necesaria para cumplir con el requisito.

e) Botiquín de primeros auxilios.

f) Disponer de información turística, en soporte físico o electrónico, de la zona, zonas de ocio, restaurantes y cafeterías, comercios y tiendas de alimentos, los aparcamientos más próximos a la vivienda, servicios médicos existentes en la zona, medios de transporte urbano, plano de la localidad y guía de espectáculos.

g) Todas las viviendas dispondrán de Hojas de Quejas y reclamaciones a disposición de las personas usuarias, y de cartel anunciador de las mismas en un lugar visible dentro de la vivienda.

h) Limpieza de la vivienda a la entrada y salida de nuevos clientes.

i) Ropa de cama, lencería, menaje de casa en general, en función a la ocupación de la vivienda y un juego de reposición.

j) Facilitar a las personas usuarias un número de teléfono para atender y resolver de forma inmediata, cualquier consulta o incidencia relativa a la vivienda.

k) Tener a disposición de las personas usuarias información e instrucciones de funcionamiento de electrodomésticos u otros dispositivos que lo requieran para su correcto uso.

l) Informar a las personas usuarias de las normas internas relativas al uso de las instalaciones, dependencias y equipos de la vivienda, así como la admisión y existencia de mascotas en la vivienda, restricciones para personas fumadoras así como las zonas de uso restringidos.

lunes, 11 de diciembre de 2023

Cuadrante de Servicio Parte 17 - Realización 3 Diapositiva en PowerPoint

 Vamos a realizar nuestra tercera diapositiva, que está vez consiste en una con un Título y un Gráfico, por lo que el Layout que vamos a utilizar es el 8.

El código VBA de la tercera diapositiva es el siguiente:

Private Sub Diapositiva3()

     X = 3

    'vamos a crear una dispositiva con Titulo y Gráfico

    Set DiapoPP = PresentacionPP.slides.Add(Index:=X, Layout:=8)

    

    'Agregar un logo guardado

    CrearLogo

    

    'Agregamos Texto que se encuentra en una hoja, es el Titulo

    DiapoPP.Shapes(1).TextFrame.TextRange.Text = "Resumen Servicios Realizados"

    'Alineamos el texto

    DiapoPP.Shapes(1).TextFrame.TextRange.ParagraphFormat.Alignment = msoAlignCenter

    

    'DANDO FORMATO AL TEXTO

    'Usando With / End With

    With DiapoPP.Shapes(1)

        .TextFrame.TextRange.Font.Name = "Times"

        .TextFrame.TextRange.Font.Color = vbBlue

        '.TextFrame.TextRange.Font.Size = 24

        '.TextFrame.TextRange.Font.Italic = True

        .TextFrame.TextRange.Font.Bold = True

    End With

    

    'Crear Texto en la forma 2

    'vbnewline nos crea una linea nueva

          

    'eliminamos la forma para que no se vea el texto que hay detras

    DiapoPP.Shapes(2).Delete

    

    'GRAFICO

    'Pegar gráfico como bitmap

    Sheets("ConexionPowerPoint").ChartObjects("Circular1").Chart.CopyPicture

    DiapoPP.Shapes.Paste

    

    'ancho del grafico

    AppPP.ActiveWindow.Selection.ShapeRange.Width = 19.13 * CM

        

    'Alineamos

    AppPP.ActiveWindow.Selection.ShapeRange.Left = 7.37 * CM

    AppPP.ActiveWindow.Selection.ShapeRange.Top = 4.38 * CM   


End Sub

EXPLICACIÓN:

El valor de X está vez es 3 ya que estamos realizando la tercera diapositiva.

Luego tenemos la instrucción que nos indicará que tipo de Layout será que esta vez es el 8 que nos insertará un título y un gráfico.

Set DiapoPP = PresentacionPP.slides.Add(Index:=X, Layout:=8)

Luego seguimos insertando el logo, agregamos el texto del título y lo alineamos.

Continuamos dando formato al texto.

La línea que nos pega el gráfico es la siguiente:

Sheets("ConexionPowerPoint").ChartObjects("Circular1").Chart.CopyPicture

 DiapoPP.Shapes.Paste

Hay que tener en cuenta que Circular1 es el nombre que se le da en Microsoft Excel al Gráfico.

Continueamos dado el ancho al gráfico y lo alineamos.


Así nos queda la tercera diapositiva:




    


jueves, 7 de diciembre de 2023

VI Concurso Social de Menores 2023 en El Rocío

 En la mañana del Sábado 9 de Diciembre del 2023 , volveremos con el Concurso de Menores.

Este año celebramos el VI Concurso Social de Menores 2023, que será en la Aldea de El Rocío.

El lugar establecido es el Lateral del Santuario.

El teléfono para las inscripciones es 954 272 604.

Por supuesto, los organizadores os esperan para que podáis disfrutarlos.

Lo organiza el Real Club de Enganches de Andalucía.