Option Explicit
Dim reanr

Private Sub CommandButton1_Click()
  Dim keelestr, soostr, vallalisstr, rida
  reanr = reanr + 1
  keelestr = ""
  For rida = 0 To keeled.ListCount - 1
    If keeled.Selected(rida) Then
     keelestr = keelestr & ", " & keeled.List(rida)
    End If
  Next rida
    If Len(keelestr) > 0 Then
      keelestr = Right(keelestr, Len(keelestr) - 2)
    End If
  soostr = "Teadmata"
  If mees.Value = True Then
    soostr = "mees"
  ElseIf naine.Value = True Then
    soostr = "naine"
  End If
  If vallaline.Value = True Then
    vallalisstr = "Vallaline"
  Else
    vallalisstr = "Abielus"
  End If
  Cells(reanr, 1) = hinne.Value
  Cells(reanr, 2) = soostr
  Cells(reanr, 3) = keelestr
  Cells(reanr, 4) = vallalisstr
End Sub

Private Sub CommandButton2_Click()
  Hide
End Sub

Private Sub UserForm_Activate()
  hinne.AddItem ("5")
  hinne.AddItem ("4")
  hinne.AddItem ("3")
  hinne.AddItem ("2")
  
  keeled.MultiSelect = fmMultiSelectExtended
  keeled.AddItem ("Eesti")
  keeled.AddItem ("Vene")
  keeled.AddItem ("Soome")
  keeled.AddItem ("Saksa")
  keeled.AddItem ("Inglise")
End Sub
