Función Indirecto que nos Devuelve Datos

 Vamos a ver un ejemplo con la función Indirecto, en la cual, tenemos en una hoja una tabla con datos, siendo los siguientes:

Esta tabla contiene el presupuesto y los gastos por meses de una casa, como pueden ser hipoteca, gasolina, comida, ocio y electricidad.

En dicha tabla posee unos valores imaginarios de presupuesto y el gasto, por supuesto en formato moneda.

En otra hoja hemos puesto en la celda B3 el titulo de ELIGE UN MES.

En la celda C3 hemos realizado una validación de datos para poder elegir el nombre del mes.

A continuación hemos ido dando nombres a los valores, es decir al rango que va de B3 a C7 le hemos puesto ENERO, el rango de D3 a E7 FEBRERO y así sucesivamente.

En la celda B5 hemos puesto el titulo de presupuesto, en la C5 el titulo de Gasto.

En la celda B3 hemos puesto la siguiente formula: 

=INDIRECTO(C3)

Por supuesto C3 es donde esta la lista donde elegimos el mes

Contenido Mínimo del Plan de Contingencia

El contenido mínimo que debe tener un Plan de Contingencia, se encuentra en el Anexo I del Real Decreto 990/2022, de 29 de noviembre, sobre normas de sanidad y protección animal durante el transporte.

 ANEXO I

Contenido mínimo del plan de contingencia para el transporte, de acuerdo con el artículo 4.1.h) y el artículo 15.3.b)

1. Actuaciones a realizar ante cualquier imprevisto que impida llevar a cabo el viaje de la forma planificada.

2. Actuaciones para garantizar el bienestar de los animales en caso de accidente, emergencias y otras contingencias, ante la inmovilización de un medio de transporte o el rechazo de los animales en destino, entre las cuales se incluirán en todo caso medidas dirigidas a prestar a los animales la atención de urgencia que sea necesaria para evitar sufrimiento o lesiones.

3. Teléfonos de contacto en caso de emergencia.

4. Las medidas preventivas para evitar que se produzcan los imprevistos incluidos en el apartado 1.

5. Personal que va a llevar a cabo cada una de las medidas y datos de contacto.

Vamos a ver cuando es obligatorio el Plan de Contingencia para viajes menores a 8 horas, ya que con anterioridad a esta norma, solamente era obligatorio para los viajes largos.

Se encuentra establecido en la disposición transitoria segunda de la misma norma.

Disposición transitoria segunda. Plan de contingencia.

Lo establecido en el artículo 4.1.g) será de aplicación a los transportistas que se autoricen tras la entrada en vigor del presente real decreto. Para los ya autorizados, será exigible a los seis meses de su entrada en vigor.

Como claramente nos dice, para los que se encuentra autorizados antes de publicarse esta norma que ha sido el 29 de noviembre del 2022, y entra en vigor al día siguiente, son seis meses por lo que entraría en vigor a finales de mayo del 2023.

Dibuja Celda Activa en Microsoft Excel

 Este ejemplo lo que vamos a realizar, es que cuando estemos posicionado en una determinada celda le aplicaremos un formato condicional.

Para ello, por supuesto necesitamos que el archivo de excel sea guardado como archivo con macros, es decir con extension .xlsm

Lo primero que vamos a realizar, es nuestra macro para que la pantalla siempre se actualice, y para ello.

Nos vamos a la pestaña Programador, pulsamos en visualbasic, y luego elegimos nuestra hoja donde vamos aplicarlo, y en la parte de arriba seleccionamos Worksheet, y la parte de la derecha SelectionChange.

Y tendremos el siguiente codigo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Application.ScreenUpdating = True

End Sub

A continuación, cerramos Visual Basic para aplicaciones, y entramos en nuestra hoja que vamos aplicarlo.

Seleccionamos las celdas donde queremos aplicarlo, como si queremos seleccionar toda la hoja.

El siguiente paso es irnos a Formato Condicional, pinchamos en nueva regla, y utilice una fórmula que determine las celdas para aplicar formato.

Ahora vamos a escribir la siguiente fórmula:

=Y(FILA()=CELDA("fila");COLUMNA()=CELDA("columna"))

Cartel del Evento Saca de las Yeguas

 Como siempre el día 26 de junio de cada año, en Almonte celebramos la Saca de las Yeguas, que para ello se realiza un cartel anunciador.

Autorización de los Transportista

El artículo 5 del Real Decreto 990/2022 Normas de Sanidad y Protección Animal durante el Transporte, nos habla sobre las Autorización de los transportista, que nos dice:

1. Los transportistas serán autorizados, según lo establecido en los artículos 10 y 11 del Reglamento (CE) n.º 1/2005 del Consejo, de 22 de diciembre de 2004, y de acuerdo con el artículo 47 de la Ley 8/2003, de 24 de abril, por la autoridad competente del ámbito territorial en el que se encuentre la sede social de la empresa o el domicilio fiscal en el caso de personas físicas.

2. Si el transportista está establecido en un país no miembro de la Unión Europea deberá designar a una persona establecida en España como su representante, el cual solicitará la autorización a la autoridad competente de la comunidad autónoma en la que esté ubicado y comunicará los datos recogidos en el anexo III de este real decreto mediante un documento firmado por ambos. La duración de la representación debe ser al menos igual a la vigencia de la autorización del transportista. La autorización emitida contendrá los datos del apartado 2 de los capítulos I o II del anexo III del Reglamento (CE) n.º 1/2005 del Consejo, de 22 de diciembre de 2004, referidos tanto al transportista

como a su representante.

3. Sin perjuicio de los requisitos adicionales que pudiera establecer la autoridad competente, el solicitante deberá acreditar que cumple, mediante la presentación de una declaración responsable, los siguientes requisitos:

a) No estar autorizado, ni haber solicitado autorización a otras autoridades competentes en España, ni en otros Estados miembros de la Unión Europea.

b) No haber sido sancionado en firme en los tres últimos años por haber infringido gravemente o muy gravemente la legislación nacional o europea de protección de los animales.

c) No estar inhabilitado judicialmente para el ejercicio de profesión, oficio o comercio que tenga relación con los animales o para la tenencia de animales.

d) Haber presentado, junto a la declaración responsable, un plan de contingencia, salvo para los transportistas autorizados de acuerdo con lo establecido en el apartado 6.c).

4. En el transporte de animales en buques destinados al transporte de ganado deberá ser autorizada como transportista la compañía, tal como se define en el capítulo IX del anexo del Convenio internacional para la seguridad de la vida humana en el mar (Convenio SOLAS), responsable de la gestión operacional del buque.

5. La autorización se expedirá conforme a los modelos establecidos en el anexo III del Reglamento (CE) n.º 1/2005 del Consejo, de 22 de diciembre de 2004. Se completará en todos sus campos, y se incluirá el número de identificación fiscal o número de identificación de extranjero, así como las especies para las que se autoriza. Se podrán utilizar estos modelos para los transportistas autorizados de acuerdo con lo dispuesto en el apartado 6.c) y en todo caso debe contener como tipo de autorización «Autorización de acuerdo con artículo 47 de Ley 8/2003, de 24 de abril, de sanidad animal».

6. La autorización podrá ser:

a) De tipo 1, válida únicamente para realizar viajes cuya duración no supere las ocho horas, cumpliendo con lo establecido en el artículo 10 y el capítulo I del anexo III del Reglamento 1/2005 del Consejo, de 22 de diciembre de 2004.

b) De tipo 2, válida para realizar todo tipo de viajes, cumpliendo con lo establecido en el artículo 11 y el capítulo II del anexo III del Reglamento (CE) n.º 1/2005 del Consejo, de 22 de diciembre de 2004.

c) Autorización de acuerdo con el artículo 47 de la Ley 8/2003, de 24 de abril, para los siguientes tipos de movimientos dentro del territorio nacional:

1.º El transporte de animales realizado por ganaderos que utilicen vehículos agrícolas o medios de transporte que les pertenezcan en casos en que las circunstancias geográficas exigen un transporte para la trashumancia estacional de determinados tipos de animales.

2.º El transporte que realicen los ganaderos de sus propios animales, por sus propios medios de transporte, a una distancia de su explotación inferior a 50 km.

3.º El transporte de animales hasta una distancia máxima de 65 km entre el lugar de salida y el lugar de destino.

4.º El transporte de équidos, cuando el transporte no se efectúe en relación con una actividad económica.

5.º El transporte de las abejas de la miel (Apis mellifera) y abejorros (Bompus spp.) y los invertebrados que sean animales de la acuicultura.

6.º El transporte de animales que forman parte de un circo.

7. Sin perjuicio de la normativa que regula el uso de las demás lenguas oficiales, las autorizaciones deberán expedirse, al menos, en castellano e inglés, salvo las del apartado 6.c), que no será necesario expedirlas en inglés.

8. La autoridad competente asignará al transportista, de acuerdo con el registro que se menciona en el artículo 13, un código de autorización de transportista de animales cuya estructura será la siguiente:

a) AT: siglas fijas que significan «Autorización Transportista de animales».

b) ES: identifica a España.

c) Once dígitos que identifican al transportista de forma única en todo el territorio nacional.

9. La autorización emitida por la autoridad competente tendrá validez en toda la Unión Europea en los casos «tipo 1 y «tipo 2» y en todo el territorio nacional en el caso de las autorizaciones previstas el apartado 6.c).

A partir de esta norma, existe nuevas autorizaciones, ya que la de tipo I y II ya existían, pero ahora el gobierno se ha inventado unas nuevas, que no se encuentran establecidas en el Reglamento Europeo, que son para los ganaderos, que por supuesto son las del punto C del citado articulo.

En este articulo no establece la validez de las autorizaciones, pero son de 5 años, por supuesto renovable.

Cuadrante de Servicio Parte 14

Vamos a continuar con nuestra aplicación.

En este caso vamos a diseñar la primer Diapositiva en PowerPoint, que por supuesto todo lo haremos desde Microsof Excel.

Por supuesto a nivel de modulo vamos a tener las siguientes variables:

Dim AppPP As Object

Dim PresentacionPP As Object

Dim DiapoPP As Object

Dim NombrePresentador As String

Dim CM As Single

Crearemos varias Subrutinas:

- CrearPresentacion.

- DestruirObjetos

- MenuPrincipal

- Diapositiva1

La SubRutina CrearPresentacion posee el siguiente código:

Private Sub CrearPresentacion()

    CM = 28.346    

    'Seleccionar la hoja correcta

    Sheets("ConexionPowerPoint").Select    

    'Capturar nombre del presentador

    NombrePresentador = InputBox("Ingrese el Nombre del Presentador", "Nombre del Presentador")

    'Crear (abrir) las aplicación PowerPoint

    Set AppPP = CreateObject("PowerPoint.Application")

    'Agregar una nueva presentación

    Set PresentacionPP = AppPP.Presentations.Add

    

    'Hacer que PowerPoint esté visible (NO activo)

    AppPP.Visible = True

End Sub

Aclaración.-

Estamos utilizando varias variables que se encuentran declaradas, por ejemplo CM que le hemos dado el valor de 28.346 que es este valor por que un centímetro en la diapositiva es igual a 28.346 puntos. Y esto es tanto para la posición como para el tamaño

La otra variable es NombrePresentador que nos llamará a un InputBox donde deberemos ingresar el nombre del presentador de la presentación de Power Point.

A continuación insertamos otra SubRutina, que es la de DestruirObjetos que es para liberar memoria.

Private Sub DestruirObjetos()

    'Destruir las variables objeto (en orden inverso)

     Set DiapoPP = Nothing

     Set PresentacionPP = Nothing

     Set AppPP = Nothing

     

End Sub

Aclaración.-

En realidad, no hay nada que aclarar, ya que está solamente libera memoria del ordenador, vaciando las variables declaradas tipo objetos.

Vamos a insertar el código para insertar una diaposivita en Power Point, con el diseño que he elegido, es decir con un titulo y un subtitulo, que esto nos lo da el layout igual a 1.

Private Sub Diapositiva1()

    'vamos a crear una dispositiva con Titulo y Subtitulo

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

    

    'Agregar un Logo guardado

    'Posición y tamaño se manejan por "puntos" (1 cm = 28.346 puntos)

     AppPP.activepresentation.slides(1).Shapes.AddPicture _

        "C:\NuestraCarpeta\Logo.png", _

            LinkToFile:=msoFalse, _

                SaveWithDocument:=msoTrue, _

                    Left:=30.34 * CM, Top:=0.57 * CM, Width:=3.53 * CM, Height:=3.53 * CM

    

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

    DiapoPP.Shapes(1).TextFrame.TextRange.Text = Range("A1").Value

    

    '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 Subtitulo en la forma 2

    DiapoPP.Shapes(2).TextFrame.TextRange.Text = "Presentado por: " & NombrePresentador

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

    

    

    With DiapoPP.Shapes(2)

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

        .TextFrame.TextRange.Font.Color = vbRed

        .TextFrame.TextRange.Font.Size = 24

        '.TextFrame.TextRange.Font.Italic = True

        .TextFrame.TextRange.Font.Bold = True

        .Top = 12 * CM

        .Left = 7.59 * CM

        .Width = 20 * CM

        .Height = 2 * CM

        'alineacion dentro del cuadro de texto

        .TextFrame.VerticalAnchor = msoAnchorMiddle 'centra verticalmente

        

    End With    

End Sub

Aclaración.-

Como hemos cogido el diseño de que nuestra diapositiva tenga un título y un subtítulo, debe tener que layout sea igual a 1.

Esta diapositiva lo que tendrá será el logo de nuestra compañía, que como ejemplo, he cogido una especie de avión. Por supuesto, la imagen la tengo en la carpeta donde se encuentra nuestro proyecto.

La siguiente linea es, primero donde se encuentra la imagen, y le hemos dado la posición y el tamaño a la imagen con  left, top que nos da la posición; con width y height le damos el tamaño a la imagen.

Por supuesto, primero la hemos insertado la imagen, y posteriormente la hemos modificado, tanto el tamaño como la posición, y como vemos la multiplicamos por nuestra variable de CM.

Continuamos con el título y el subtítulo, y lo hemos hecho con la línea:

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

    DiapoPP.Shapes(1).TextFrame.TextRange.Text = Range("A1").Value

Y como vemos nos coge el título del valor de la celda A1 de nuestra hoja.

Y el Subtitulo:

'Crear Subtitulo en la forma 2

    DiapoPP.Shapes(2).TextFrame.TextRange.Text = "Presentado por: " & NombrePresentador

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

Para el subtïtulo hemos cogido el valor de nuestra variable NombrePresentador, y lo hemos colacado en el centro.

Tengo que aclarar que DiapoPP.Shapes(2) es la segunda forma que tiene la diapositiva, que es el subtítulo, y en el caso del título posee el número dentro del paréntesis el 1.

Con la parte de With DiapoPP.Shapes(2) le hemos dado formato, posición y alineación.

La diapositiva que hace que todo se reproduzca es la del MenuPrincipal

Private Sub MenuPrincipal()

    CrearPresentacion

    Diapositiva1

    DestruirObjetos

    

End Sub

Esta SubRutina nos lanza las tres subrutinas que hemos creado.

Así nos ha quedado la primera Diapositva, en las próximas entradas seguiremos con las siguientes.

Celebración II EXALTACIÓN DE LA SACA DE LAS YEGUAS

 El día 16 de junio a las 21,00 horas se celebrará la II Exaltación de la Saca de las Yeguas, en el Teatro Municipal Salvador Távora de Almonte.

La verdad que el año pasado fue excepcional, para mi no tiene otra palabra.

Este año no podré disfrutar de ello, por temas laborales, pero echaré de menos no poder disfrutarlo.