Ayuda urgente en macro

Se trata de un aplicativo excel que vengo utilizando para el
registro de solicitudes en los espacios de atención al usuario.
Cuando uno ingresa a la Ficha de Registro hay dos módulos uno de Datos
Usuario y el segundo Datos Solicitud. En este último hay un campo en la
parte inferior izquierda "este es un caso relevante o que requiere una
atención prioritaria" y una casilla para optar por la respuesta si/no.
Cuando
se opta por la respuesta NO, la información que se graba en la hoja
Consolidado (ver columna AE se graba como verdadero, ver ejemplo
de la fila 11). Quisiera que por favor me brinden su apoyo para
reconfigurar estos campos de manera que cuando se grabe NO (no es un
caso relevante) la información se registre en el cuadro Consolidado como
"falso" y no como "verdadero" y cuando se registre SI (si es un caso
relevante), la información se registre como verdadero y no como falso.

PD: Envío el archivo a través de mediafire

<a>http://www.mediafire.com/view/?8deaem2xlq77x2c</a>

1 respuesta

Respuesta
1

No me permite hacer la descarga, podrías enviarme el archivo a mi correo, en el mismo archivo escribe una explicación con ejemplos, con comentarios, con colores y me dices paso a paso qué es lo que tengo que hacer.

Listo experto te remití al correo, el archivo y algunos ejemplos en imágenes.

Agradeceré mucho de tu ayuda.

Te regresé el archivo, los cambios que hice:

1. Cambié el valor del botón en sus parámetros a False.

2. Agregué esto en en userform initialize

TGB1.BackColor = &H8000000F
TGB1.Caption = "NO"
TGB1.Value = False

3. Así quedó esa función

Private Sub TGB1_Click()
If TGB1.Value Then
TGB1.BackColor = &HFF&
TGB1.Caption = "SI"
TGB1.Value = True
Else
TGB1.BackColor = &H8000000F
TGB1.Caption = "NO"
TGB1.Value = False
End If
End Sub

4. Y por último esta parte

If TGB1 Then
.Cells(i, 31) = "VERDADERO"
Else
.Cells(i, 31) = "FALSO"
End If

Saludos. Dam

Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas