Código para guardar la respues ta. De cuestionario y mostrar una nueva pregun ta
Para Dante Amor
En el botón guardar se debe pasar a la siguiente pregunta y a demás de guardar la respuesta..
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para guardar
Private Sub CommandButton4_Click()
'Por.Dante Amor
'Guardar
If Label1 = "" Then
MsgBox "Presiona el botón iniciar"
Exit Sub
End If
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
u = h2.Range("A" & Rows.Count).End(xlUp).Row
If u = 1 And h2.Cells(u, "A") = "" Then
u = 1
Else
u = u + 1
End If
'
Set b = h2.Columns("A").Find(Val(Label1), lookat:=xlWhole)
If Not b Is Nothing Then
u = b.Row
End If
'
h2.Cells(u, "A") = Val(Label1)
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
h2.Cells(u, i + 2) = "X"
Else
h2.Cells(u, i + 2) = ""
End If
Next
MsgBox "La pregunta fue guardada, presiona Aceptar para pasar a la siguiente pregunta", vbOKOnly
CommandButton1_Click
End SubS a l u d o s . D a n t e A m o r.
