Este formulario se llena cada vez que cualquier trabajador reporta un hallazgo de una condición subestándar en su área de trabajo (alguna característica del área de trabajo que está fuera de los estándares de seguridad y salud o es un peligro para los trabajadores) o algún acto subestándar que perciba en su entorno de trabajo (algún acto realizado que no cumpla con los procedimientos , que se realice sin el permiso o condiciones de seguridad respectivas). Este reporte es utilizado para corregir estas condiciones y/o actos y también para el análisis de riesgos de acuerdo a la criticidad del mismo (A: criticidad alta, B: criticidad media, C: criticidad baja), usando solo los de criticidad A (se colorearán de rojo)
Flor Córdova N
20/08/2013 a las 3:53 pm
Muy bueno, lo aplicare en mi empresa
01/08/2014 a las 11:13 pm
Considero que el ejemplo es útil para mantener una documentación de seguridad actualizada, básica en toda empresa dedicada al rubro de producción;si embargo se debería agregar una columna en la que se mencione las acciones correctivas y el responsable de solución. Agregando el siguiente código:
Private Sub CommandButton1_Click()
Sheets("Formulario").Select
ult = Cells(Rows.Count, 2).End(xlUp).Row
Cod = Codigo.Text
Fec = Fecha.Text
Nom = Nombre.Text
Des = TextBox5.Text
Acc = TextBox6.Text
Res = TextBox7.Text
Cells(ult + 1, 1) = Cod
Cells(ult + 1, 3) = Fec
Cells(ult + 1, 4) = Nom
Cells(ult + 1, 5) = Des
Cells(ult + 1, 7) = Res
Cells(ult + 1, 8) = Acc