Sub paigutaToolised()
  kuupaevadeArv = 31
  reanr = 1
  Do While Len(Cells(reanr, 3)) > 0
    reanr = reanr + 1
  Loop
  toolisteArv = reanr - 1
  'MsgBox toolisteArv
  tooliseNr = 1
  For reanr = 1 To kuupaevadeArv
    Cells(reanr, 2) = Cells(tooliseNr, 3)
    tooliseNr = tooliseNr + 1
    If tooliseNr > toolisteArv Then tooliseNr = 1
  Next reanr
End Sub

Sub KatiToopaevad()
  vastuseveerg = 5
  reanr = 1
  Do While Len(Cells(reanr, 1)) > 0
     If Cells(reanr, 2) = Cells(1, 3) Then
       Cells(1, vastuseveerg) = Cells(reanr, 1)
       vastuseveerg = vastuseveerg + 1
     End If
     reanr = reanr + 1
  Loop
End Sub

Sub MatiToopaevad()
  vastuseveerg = 5
  reanr = 1
  Do While Len(Cells(reanr, 1)) > 0
     If Cells(reanr, 2) = Cells(2, 3) Then
       Cells(2, vastuseveerg) = Cells(reanr, 1)
       vastuseveerg = vastuseveerg + 1
     End If
     reanr = reanr + 1
  Loop
End Sub

Sub koigiToopaevad()
   inimreanr = 1
   Do While Len(Cells(inimreanr, 3)) > 0
      vastuseveerg = 5
      kpreanr = 1
      Do While Len(Cells(kpreanr, 1)) > 0
         If Cells(kpreanr, 2) = Cells(inimreanr, 3) Then
           Cells(inimreanr, vastuseveerg) = Cells(kpreanr, 1)
           vastuseveerg = vastuseveerg + 1
         End If
         kpreanr = kpreanr + 1
      Loop
      inimreanr = inimreanr + 1
   Loop
End Sub

'Loo tööpäevade graafiku jaoks eraldi leht.
'Esimesel real on inimeste nimed
'Iga nime all on kirjas tema tööpäevad

Sub toopaevadUuelLehel()
  Set vana = Sheets("algandmed")
  Set uus = Sheets.Add
  nimenr = 1
  Do While Len(vana.Cells(nimenr, 3)) > 0
    uus.Cells(1, nimenr) = vana.Cells(nimenr, 3)
    vastuserida = 2
    kprida = 1
    Do While Len(vana.Cells(kprida, 1)) > 0
      If vana.Cells(kprida, 2) = vana.Cells(nimenr, 3) Then
         uus.Cells(vastuserida, nimenr) = vana.Cells(kprida, 1)
         vastuserida = vastuserida + 1
      End If
      kprida = kprida + 1
    Loop
    nimenr = nimenr + 1
  Loop
End Sub