Userform Elegir Texto con CheckBox

Saludos. Buenas tardes. Por favor si me pueden ayudar con la siguiente consulta. Necesito el codigo de un Userform como se muestra en la figura que de acuerdo al valor del checkbox elegido carque los textos según ese valor y luego al darle cargar ingrese tanto el valor del checkbox (letra) y el texto a una hoja excel. Favor ver el ejemplo de la figura que he anexado.

Respuesta
1

Una forma sencilla de hacerlo es con el siguiente código en el botón "Cargar", actualizando el nombre de los controles. Faltan ciertas validaciones tales como:

Que hacer cuando se selecciones 2 checkbox, al borrar el primer registro, el siguiente se sobre-escribe o se escribe en la siguiente linea, entre otras posibles validaciones.

    If CheckBox1.Value = True Then
            Range("A2").Value = CheckBox1.Caption
            Range("B2").Value = TextBox1.Text
    ElseIf CheckBox2.Value = True Then
            Range("A2").Value = CheckBox2.Caption
            Range("B2").Value = TextBox1.Text
    ElseIf CheckBox3.Value = True Then
            Range("A2").Value = CheckBox3.Caption
            Range("B2").Value = TextBox1.Text
    ElseIf CheckBox4.Value = True Then
            Range("A2").Value = CheckBox4.Caption
            Range("B2").Value = TextBox1.Text
    ElseIf CheckBox5.Value = True Then
            Range("A2").Value = CheckBox5.Caption
            Range("B2").Value = TextBox1.Text
    End If

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas