Desarrollar encuesta o formulario de comentarios en Excel y VBA

Oscuro confirmación Como VbMsgBoxResult

Oscuro sh Como Hoja de cálculo

Oscuro Yo remo Como Entero

confirmación = MsjBox(«¿Desea enviar la retroalimentación?», vbSíNo + vbPregunta, «Enviar»)

Si confirmación = vb No Después Salida Sub

Si Validar = Falso Después Salida Sub

Establecer sh = Este libro de trabajo.Hojas(«Base de datos»)

Yo remo = sh.Rango(«A» &amperio; filas.Contar).Final(xlUp).Fila + 1

Con sh

sh.Células(Yo remo, 1).Valor = Yo remo – 1

sh.Células(Yo remo, 2).Valor = Hoja1.txtNombre.Valor

sh.Células(Yo remo, 3).Valor = si(Hoja1.optFemale.Valor = Verdadero, «Femenino», «Masculino»)

sh.Células(Yo remo, 4).Valor = Hoja1.txtMóvil.Valor

sh.Células(Yo remo, 5).Valor = Hoja1.txtCorreo electrónico.Valor

sh.Células(Yo remo, 6).Valor = Hoja1.dirección de texto.Valor

sh.Células(Yo remo, 7).Valor = si(Hoja1.Q1_Excelente.Valor = Verdadero, «Excelente», si(Hoja1.Q1_Bueno.Valor = Verdadero, «Bueno», si(Hoja1.Q1_Justo.Valor = Verdadero, «Justa», «Pobre»)))

sh.Células(Yo remo, 8).Valor = si(Hoja1.Q2_Excelente.Valor = Verdadero, «Excelente», si(Hoja1.Q2_Bien.Valor = Verdadero, «Bueno», si(Hoja1.Q2_Justo.Valor = Verdadero, «Justa», «Pobre»)))

sh.Células(Yo remo, 9).Valor = si(Hoja1.Q3_Excelente.Valor = Verdadero, «Excelente», si(Hoja1.Q3_Bien.Valor = Verdadero, «Bueno», si(Hoja1.Q3_Justo.Valor = Verdadero, «Justa», «Pobre»)))

sh.Células(Yo remo, 10).Valor = si(Hoja1.Q4_Excelente.Valor = Verdadero, «Excelente», si(Hoja1.Q4_Bien.Valor = Verdadero, «Bueno», si(Hoja1.Q4_Justo.Valor = Verdadero, «Justa», «Pobre»)))

sh.Células(Yo remo, 11).Valor = si(Hoja1.Q5_Excelente.Valor = Verdadero, «Excelente», si(Hoja1.Q5_Bien.Valor = Verdadero, «Bueno», si(Hoja1.Q5_Justo.Valor = Verdadero, «Justa», «Pobre»)))

sh.Células(Yo remo, 12).Valor = si(Hoja1.Q6_Excelente.Valor = Verdadero, «Excelente», si(Hoja1.Q6_Bien.Valor = Verdadero, «Bueno», si(Hoja1.Q6_Justo.Valor = Verdadero, «Justa», «Pobre»)))

sh.Células(Yo remo, 13).Valor = si(Hoja1.Q7_Excelente.Valor = Verdadero, «Excelente», si(Hoja1.Q7_Bien.Valor = Verdadero, «Bueno», si(Hoja1.Q7_Justo.Valor = Verdadero, «Justa», «Pobre»)))

sh.Células(Yo remo, 14).Valor = si(Hoja1.Q8_Excelente.Valor = Verdadero, «Excelente», si(Hoja1.Q8_Bien.Valor = Verdadero, «Bueno», si(Hoja1.Q8_Justo.Valor = Verdadero, «Justa», «Pobre»)))

sh.Células(Yo remo, 15).Valor = si(Hoja1.Q9_Excelente.Valor = Verdadero, «Excelente», si(Hoja1.Q9_Bien.Valor = Verdadero, «Bueno», si(Hoja1.Q9_Justo.Valor = Verdadero, «Justa», «Pobre»)))

sh.Células(Yo remo, dieciséis).Valor = si(Hoja1.Q10_Excelente.Valor = Verdadero, «Excelente», si(Hoja1.Q10_Bien.Valor = Verdadero, «Bueno», si(Hoja1.Q10_Feria.Valor = Verdadero, «Justa», «Pobre»)))

sh.Células(Yo remo, 17).Valor = si(Hoja1.Q11_Excelente.Valor = Verdadero, «Excelente», si(Hoja1.Q11_Bien.Valor = Verdadero, «Bueno», si(Hoja1.Q11_Feria.Valor = Verdadero, «Justa», «Pobre»)))

sh.Células(Yo remo, 18).Valor = si(Hoja1.Q12_Sí.Valor = Verdadero, «Sí», «No»)

sh.Células(Yo remo, 19).Valor = Solicitud.Nombre de usuario

sh.Células(Yo remo, 20).Valor = [Este Dia()]

Final Con

MsjBox «Comentarios enviados. ¡Gracias!»

Final Sub