Function Miha$(crit, hdr, data)
Dim arCrit(), arHdr(), arData(), i&
  Any2Arr crit, arCrit
  Any2Arr hdr, arHdr
  Any2Arr data, arData
  For i = 1 To UBound(arCrit)
    If CBool(arCrit(i)) And Len(arData(i)) Then Miha = Miha & "|" & arHdr(i) & "-" & arData(i)
  Next
  If Len(Miha) Then Miha = Mid$(Miha, 2)
End Function

Private Sub Any2Arr(x, a())
  If IsObject(x) Then
    a = WorksheetFunction.Index(x.Rows(1).Value, 0)
  ElseIf IsArray(x) Then
    a = x
  Else
    ReDim a(1 To 1)
    a(1) = x
  End If
End Sub

=Miha($A$1:$F$1;$A$2:$F$2;A3:F3)

=Miha({1;1;0;1;0;1};$A$2:$F$2;A3:F3)