Función Microsoft Excel BDExtraer

 En este caso vamos a ver el la función de Microsoft Excel BDEXTRAER.

Esta función es de búsqueda en una base de datos que tengamos en una hoja de Microsoft Excel.

En la descripción de la función nos dice:

Que nos extrae un único valor de una columna de una lista o una base de datos que cumple las condiciones especificadas.

Sintaxis:

BDEXTRAER(base_de_datos, nombre_de_campo, criterios)

Argumentos.

Base_de_datos:    Obligatorio. El rango de celdas que compone la lista o base de datos. Una base de datos es una lista de datos relacionados en la que las filas de información son registros y las columnas de datos, campos. La primera fila de la lista contiene los rótulos de cada columna.

Nombre_de_campo: Obligatorio. Indica qué columna se usa en la función. Escriba el rótulo de la columna entre comillas, como por ejemplo "Edad" o "Rendimiento", o un número (sin las comillas) que represente la posición de la columna en la lista: 1 para la primera columna, 2 para la segunda y así sucesivamente.

Criterio Obligatorio. Es el rango de celdas que contiene las condiciones especificadas. Puede usar cualquier rango en el argumento criterios mientras este incluya al menos un rótulo de columna y una celda debajo del mismo en la que se pueda especificar una condición para la columna.

Tenemos la siguiente Tabla:

Primer Ejemplo:

Introduciendo el número de ID nos devuelva el Salario.

En la celda H2 vamos a introducir un valor de ID para buscar.

En la celda I2 vamos a introducir la siguiente fórmula:

=BDEXTRAER(Tabla1[#Todo];"SALARIO";H1:H2)

El primer argumento es toda la tabla incluido los encabezados.

El segundo argumento es el nombre del campo.

El tercer argumento son los títulos que hemos puesto en las columnas H e I.

Segundo Ejemplo:

Vamos a buscar las personas que tienen un salario superior a 40000. El problema radica en que si hubiese varios nos daría un error.

Hemos introducido la siguiente fórmula:

=BDEXTRAER(Tabla1[#Todo];2;H7:H8)

En este caso la diferencia radica que hemos puesto un 2 para que nos de el Nombre de nuestra tabla que ocupa la segunda columna de la tabla.

Tercer Ejemplo:

Esta vez pondremos dos argumentos de busqueda.

La fórmula utilizada es la siguiente:

=BDEXTRAER(Tabla1[#Todo];J11;H11:I12)

Esta vez hemos puesto el campo de busqueda  mediante una celda que ha sido J11. Y los criterios hemos elegido dos campos con sus títulos.

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.

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.

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.

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.

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:

    

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.