Botones de opción en formulario de entrada de datos Excel
Para Dante Amor. Hola de nuevo, vuelvo a solicitar tu ayuda si lo tienes a bien. Ya estoy dando el último retoque al formulario de entra de datos pero hay algo que no consigo. Colocar en el formulario "modificar" unos botones de opción de tal forma que si seleccione uno u otro, me rellene con un valor determinado la tabla en un campo también determinado.
Te adjunto el archivo con el formulario por correo electrónico. Lo que necesito es:
En los botones de opción contenidos en el "frame 3", dependiendo del que elija, me devuelva los siguientes valores en la columna D del registro seleccionado para modificar:
Si marco "optionButton1" devuelve en columna D - FAVO
Si marco "optionButton2" devuelve en columna D - DESF
Si marco "optionButton3" devuelve en columna D - NOCM
Si marco "optionButton4" devuelve en columna D - ANUL
Si marco "optionButton5 devuelve en columna D - PRON
Si marco "optionButton6" devuelve en columna D - TARD
Si marco "optionButton7" devuelve en columna D - SLPS
Si marco "optionButton8" devuelve en columna D - NOPS
Gracias por todo, te envío el archivo por correo con el aspecto final del formulario, funcionando conforme a tus instrucciones, para que veas que bien lo has hecho y solo a falta de solucionar lo que te acabo de proponer en el "frame3"
Que tal puedes utilizar el siguiente código:
Select Case True
Case OptionButton1.Value
MsgBox "FAVO"
Case OptionButton2.Value
MsgBox "DESCF"
Case OptionButton3.Value
MsgBox "NOCM"
Case OptionButton4.Value
MsgBox "ANUL"
Case OptionButton5.Value
MsgBox "PRON"
Case OptionButton6.Value
MsgBox "TARD"
Case OptionButton7.Value
MsgBox "SLPS"
Case OptionButton8.Value
MsgBox "NOPS"
End Select
En este caso puse solo un msg box, porque no llego a comprender muy bien en que parte de la columna DE quieres imprimir.
Pero solo reemplaza en esa parte del msbox y estará listo.
¡Gracias! Jorge. Discúlpame, pero la pregunta iba para un experto en concreto que ya había trabajado previamente el formulario. No obstante gracias por tu interés y voto tu respuesta.
1 respuesta más de otro experto
Te anexo el código
Private Sub Botonmodificar2_Click()
'Por.Dante Amor
res = MsgBox("¿Está seguro que quiere realizar modificaciones?", vbQuestion + vbYesNo, "MODIFICAR")
If res = vbNo Then Exit Sub
'
If OptionButton1 Then informe = "FAVO"
If OptionButton2 Then informe = "DESF"
If OptionButton3 Then informe = "NOCM"
If OptionButton4 Then informe = "ANUL"
If OptionButton5 Then informe = "PRON"
If OptionButton6 Then informe = "TARD"
If OptionButton7 Then informe = "SLPS"
If OptionButton8 Then informe = "NOPS"
'
h1.Cells(fila, "A") = Textconsejero
h1.Cells(fila, "B") = Textcoordinador
h1.Cells(fila, "C") = Textenvio
h1.Cells(fila, "D") = informe
h1.Cells(fila, "BU") = Textpmm1
h1.Cells(fila, "BV") = Textpmm2
h1.Cells(fila, "BW") = Textsam1
h1.Cells(fila, "BX") = Textsam2
h1.Cells(fila, "BY") = Textbom1
h1.Cells(fila, "BZ") = Textbom2
h1.Cells(fila, "CA") = Textzv1
h1.Cells(fila, "CB") = Textzv2
h1.Cells(fila, "CC") = Textpub1
h1.Cells(fila, "CD") = Textpub2
h1.Cells(fila, "CE") = Textpe1
h1.Cells(fila, "CF") = Textpe2
h1.Cells(fila, "CG") = Textmov1
h1.Cells(fila, "CH") = Textmov2
h1.Cells(fila, "CI") = Textacu1
h1.Cells(fila, "CJ") = Textacu2
h1.Cells(fila, "CK") = Textalu1
h1.Cells(fila, "CL") = Textalu2
h1.Cells(fila, "CM") = Texttall1
h1.Cells(fila, "CN") = Texttall2
h1.Cells(fila, "CO") = Textjmd1
h1.Cells(fila, "CP") = Textjmd2
h1.Cells(fila, "CQ") = Textvias1
h1.Cells(fila, "CR") = Textvias2
h1.Cells(fila, "CS") = Textcultu1
h1.Cells(fila, "CT") = Textcultu2
h1.Cells(fila, "CU") = Textcont
h1.Cells(fila, "CV") = Textvall
MsgBox "Datos actualizados"
Unload Me
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias