viernes, 6 de mayo de 2011

Mini macro para colorear un fila de acuerdo al valor de una celda - Excel

A peticion de mi hermano les publico la siguiente entrada, se trata de un procedimiento que colorea un numero celdas a partir del valor de otro

Sub sombreFilas()
      Dim Celda As Range
      Dim Columna As Integer 'Para conocer la columna
      Dim Fila As Integer 'Para conocer la Fila
      For Each Celda In Selection
        'Para conocer la direcion de cada celda (Columna,Fila)
        Columna = Celda.Column
        Fila = Celda.Row
        'Con Cells accedes a una Celda de la forma Cells(fila como entero, fila como entero)
        Range(Cells(Fila, Columna), Cells(Fila + Celda.Value - 1, Columna)).Interior.ColorIndex = Celda.Value + 2
      Next Celda
End Sub
Saludos y hasta luego

miércoles, 4 de marzo de 2009

Basura electrónica en México

En Palo Alto, California y en Pekín (foto), activistas de Greenpeace  acudieron ante las oficinas de Hewlett Packard para demandarle que se  haga responsable de la basura electrónica que generan sus productos.  Greenpeace está demandando a todos los fabricantes de electrónicos que  eliminen de sus productos sustancias tóxicas.

En Palo Alto, California y en Pekín (foto), activistas de Greenpeace acudieron ante las oficinas de Hewlett Packard para demandarle que se haga responsable de la basura electrónica que generan sus productos. Greenpeace está demandando a todos los fabricantes de electrónicos que eliminen de sus productos sustancias tóxicas.

Computadoras y teléfonos celulares son desechados sin control al terminar su vida útil. Greenpeace ha solicitado a los principales fabricantes de estos productos que acopien y reciclen sus electrónicos de manera segura, tal y como lo hacen en otros países. Desafortunadamente, hasta el momento estas empresas siguen manejando diferentes estándares regionales.

Computadoras


La situación del equipo de cómputo obsoleto todavía es alarmante en México. La mayoría de los fabricantes maneja diferentes estándares regionales. Por ejemplo:

HP tiene en Estados Unidos, Europa, China, India y Filipinas, entre otros países, programas de reciclaje de equipo de cómputo que incluso puede ser de cualquier marca, no necesariamente HP. Pero en México sólo tiene un programa de devolución de artículos de impresión y es para "clientes de negocios selectos". Para recibir y reciclar equipos de cómputo cobran una tarifa. Para mayor información, ver el sitio de HP aquí.

IBM/Lenovo sólo tiene programas de acopio y reciclaje en la Unión Europea, China y otros países, pero no en México. Para conocer estos programas haz click aquí.

En cambio, Dell ofrece en México reciclado gratuito de todos los productos de su marca. Para participar en este programa basta llenar una forma en el portal de reciclaje de su sitio web (haz click aquí) y ellos se encargarán de recoger el equipo. No cobran nada aunque sí hay cargos en caso de cancelar la fecha programada para el acopio.

Celulares

Motorola tiene acopio y disposición final de cualquier marca de celulares y baterías. Motorola en México ha señalado a Greenpeace que buscará pasar de la dispoción final al reciclaje. Para conocer los sitios donde puedes dejar tu celular, haz click aquí.

Movistar no cuenta con programas de acopio y reciclaje permanente en México, sólo desarrolla esporádicamente campañas de acopio. Nokia y otras empresas han formado parte de esta iniciativa, así como la Procuraduría Federal de Protección al Ambiente (Profepa) instalando contenedores en sus oficinas para este fin.

Por lo anterior, Greenpeace demanda que las compañías de electrónicos en México:
  • Eliminen los tóxicos de sus productos,
  • No apliquen para México una política de doble estándar, distinta a las políticas ambientales que desarrollan en otros países,
  • Que acopien y reciclen sus electrónicos de manera segura.
___________________________________________________________________

¿Que pensamos de esto?, esto es uno de los temas más actuales, por que el aumento del uso de las computadoras y la disminución de los costos, ha generado que aquellas maquinas que teniamos antes, se quedan arrimadas en la casa, generando baasura electronica, donde tiramos esto, esto es uno de los temas de gran relevancia en el mundo informático, y puede ser una llamada de atención para los desarrolladores de equipos de coputo, celulares, etc.
Tomado de http://www.greenpeace.org/mexico/campaigns/t-xicos/acopio-y-reciclaje-de-basura-e

La importancia de software libre


En esta época de crisis, lo menos en que piensan las empresas, es invertir en productos intangibles, especificamente en el software, pero ¿Por qué piensan esto?, una de las razones más importantes es que piensan que se requiere de una inversion millonaria...

Yo les digo, que no se requiere grandes inversiones de dinero para poder automatizar algun proceso, ¿Cómo? a traves del uso del Software libre, uso de aplicaciones en las que no se requiera pagar alguna licencia de software.....

En este ámbito, contamos con una gran amplitud de aplicaciones libres, desde sistemas operativos hasta aplicaciones para entretenimiento.

Por ejemplo:
Linux ---- www.linux.org .... Con una inmensa cantidad de distribuciones basadas en ella, como lo son fedora, ubuntu, debian, knoppix, etc

Algunos links
Alternativas libres
http://www.freealts.com/

Oficina del software libre
http://osluz.unizar.es/

Algunas aplicaciones para desarrolladores
http://www.maestrosdelweb.com/editorial/aplicaciones-libres-para-disenadores-web/