Los patógenos más peligrosos.

Esta es la lista de los patógenos más peligrosos creada por la OMS ordenada por su resistencia a los antibióticos de mayor a menor y para los que requiere investigación en nuevos antibióticos.

Resistentes a los carbapenemas :

Acinetobacter baumannii

Causa neumonía severa y enfermedades del tracto urinario.

Acinetobacter baumannii
Acinetobacter baumannii

Pseudomonas aeruginosa

Infecta los pulmones y las vías respiratorias, las vías urinarias y los tejidos.

Pseudomonas aeruginosa
Pseudomonas aeruginosa

Enterobacteriaceae

Causta gastroenteritis infantil, disentería bacilar, fiebre tifoidea e incluso la peste.

Enterobacteriaceae
Enterobacteriaceae

Resistentes al VancomycinEnterococcus faecium

Resistentes a la MeticilinaStaphylococcus aureus

Resistentes a la ClaritromicinaHelicobacter pylori

Resistentes a la Quinolona:

Campylobacter

Salmonella spp

Resistentes a la Cefalosporina y a la QuinolonaNeisseria gonorrhoeae

No susceptible a la PenicilinaStreptococcus pneumoniae

Resistente a la AmpicilinaHaemophilus influenzae

Resistente a la Quinolona: Shigella

De Navia a La Caridad

IMG_20160630_115850

Nuestra  vida es como rueda de carro, va dando vueltas y vueltas, siempre por caminos; hoy difíciles mañana llanos, pero siempre pasamos por el mismo.

Vamos encontrando baches, charcos y piedras puntiagudas que ponen en peligro la seguridad de nuestro carro.

A semejanza es nuestra vida, va dando vueltas y vuelta, encontrándonos en nuestro caminar, algún que otro individuo que nos pone la zancadilla, imitando el bache del camino.

Nos encontramos charcos de lágrimas, derramadas por nosotros mismos, que embarran nuestro paso por los caminos duros  de la vida.

Para mas dolor, la muerte nos va poniendo aun  mas difícil el caminar por la vida; nos  sale al paso, puntiaguda, dolorosa e inevitable; llevándose a cada golpe de rueda algo amado  y no somos capaces de esquivar, pues en nuestro rodar siempre esta al paso.

Cuando tropezamos con algunas de estas trampas y la rueda  se parte, todo termina, todo acaba, si no tenemos fuerza para sacar al carro de tan difíciles obstáculo

Por eso hermano mío, alerta al camino, ve siempre recto, mira hacia delante del camino, no dejes  que las rodadas de rueda dejen de caminar sin dejar huella.

Poema rueda de carro – Aurora Alba

Excel – Resaltar en negrita la línea de la celda seleccionada

En largas hojas de Excel en las que hemos de movernos de izquierda a derecha y viceversa, es fácil perderse y no saber en qué línea estamos exactamente, con la consecuente confusión en los datos que leemos.

Para evitar esto, resaltaremos la línea de la hoja de Excel en la que nos encontremos así, al movernos a la derecha con el cursor, siempre tendremos en negrita la fila y estermos seguros de que los datos que leemos son los que queríamos leer.

Hace falta un poco de programación de nivel muy básico. Ahí va:

  1. Nos ponemos sobre la lista de datos en cualquier celda
  2. En la cinta de opciones de Excel vamos a Estilo (en Inicio) y pulsamos sobre Dar formato como tabla
  3. Nos aparece este diálogo. Si tenemos encabezados -que es lo normal- pulsamos el tic
  4. Ya tenemos una tabla en lugar de una lista. Ahora vemos que, nos da como nombre por defecto Tabla1 (aparece arriba a la izquierda).
  5. Vamos a darle un nombre más familiar para que podamos referirnos a ella sin confusión en el futuro; especialmente a la hora de programar. Pulsamos sobre CTRL y F3 simultáneamente
  6. Seleccionamos la fila donde pone Tabla1 en este diálogo y luego en Editar (el botón de arriba en el medio). Se abre otro diálogo y escribimos el nombre que queramos, por ejemplo MiTabla
  7. Aceptamos y comprobamos el cambio
  8. Ya lo tenemos todo listo para programar. Vamos al menú Programador en la cinta principal de Inicio
  9. Ahora escogemos Visual Basic que está a la izquierda del todo.
  10. Clic sobre Hoja1 a la izquierda donde pone Proyecto – VBAProject
  11. En el desplegable del medio, donde pone (General), cambiamos a WorkSheet y, en el de la derecha donde pone (Declaraciones) cambiamos a SelectionChange, para que quede así
  12. Escribimos el código que ya he puesto arriba que es
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo ERROR_NEGRITA
    ActiveSheet.Range(“MiTabla”).Font.Bold = False
    Selection.EntireRow.Font.Bold = True
    ERROR_NEGRITA:
    Exit Sub
    End Sub
  13. Ahora veremos que según cambiamos de fila, ésta se va remarcando en negrita, si pulsamos fuera de nuestra tabla MiTabla, desaparece la negrita.