Excel 2013: hacer referencia a varias casillas de verificación en una hoja diferente

Excel 2013: hacer referencia a varias casillas de verificación en una hoja diferente

Mi supervisor quiere que haga algo que nunca antes había hecho y tampoco puedo encontrar una solución en línea.

La hoja de cálculo está configurada con cinco casillas de verificación separadas (digamos Casilla de verificación1, Casilla de verificación2...), cada una de las cuales representa un valor correspondiente, del 1 al 5. (Por ejemplo, marque la casilla de verificación 1 si este servicio fue (1) inaceptable. Marque la casilla de verificación 2 si este servicio fue (2) aceptable. Marque la casilla de verificación 3 si este servicio fue (3) exitoso, y así sucesivamente)

En una hoja de cálculo separada, en una celda, se supone que debo representar cuál de las casillas fue elegida en forma numérica. Por ejemplo, si la persona marcó la casilla 3 en la Hoja1 (Casilla3), tendría que representar en la Hoja2 el número '3'. Si marcaron la casilla de verificación 4 en la Hoja 1, tendría que mostrar el número '4' en la Hoja 2.

Aquí tenéis una imagen para una mejor comprensión:

ingrese la descripción de la imagen aquí

Y supongo que no sé cómo representar una de las cinco casillas de verificación en un valor numérico en otra hoja. Realmente estoy luchando, ¿alguna ayuda?

Respuesta1

Siga esta guía para poner elCuadros de opcionesen la Hoja1:

http://www.excel-easy.com/vba/examples/option-buttons.html

Supongamos que colocas 4 casillas y luego usas este código enHoja1:

Private Sub OptionButton1_Click()
    Dim wkb As Workbook
    Set wkb = ThisWorkbook
    wkb.Sheets(2).Cells(1, 1) = 2
End Sub

Private Sub OptionButton2_Click()
    Dim wkb As Workbook
    Set wkb = ThisWorkbook
    wkb.Sheets(2).Cells(1, 1) = 2
End Sub

Private Sub OptionButton3_Click()
    Dim wkb As Workbook
    Set wkb = ThisWorkbook
    wkb.Sheets(2).Cells(1, 1) = 3
End Sub

Private Sub OptionButton4_Click()
    Dim wkb As Workbook
    Set wkb = ThisWorkbook
    wkb.Sheets(2).Cells(1, 1) = 4
End Sub

información relacionada