Código para guardar la respues ta. De cuestionario y mostrar una nueva pregun ta

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 Sub

S a l u d o s . D a n t e   A m o r.