Combinate-som zoeken uit verschillende kolommen

[N0nax]

Hallo,

Kan je in excel volgende doen en zoja hoe:

Je krijgt de oplossing van verschillende sommen, alsook de verschillende termen (3 per som).
Hoe kan je uit verschillende kolommen, excel laten zoeken naar de mogelijke combinatie om deze som op te lossen?

In bijlage het voorbeeld waarover ik het heb. Bedoeling is dus om graden, minuten en seconden op te tellen om zo tot de oplossing te komen uit de kolom oplossing.

Eentje heb ik manueel gevonden (staat in het geel).

Alvast bedankt voor de hulp!

Bekijk bijlage Voorbeeld.xlsx

 

[VenA]

Een beetje onduidelijk hoe de uitkomst er uit moet komen te zien.

Voer deze macro eens uit.

Sub VenA()
Dim j As Long, jj As Long, jjj As Long, t As Long, ar, ar1, ar2
  ar = Cells(1, 2).CurrentRegion
  ar1 = Columns(8).SpecialCells(2, 1)
  ReDim ar2(UBound(ar) ^ 3, 3)
  For j = 2 To UBound(ar)
    For jj = 2 To UBound(ar)
      For jjj = 2 To UBound(ar)
        If Not IsError(Application.Match(ar(j, 1) + ar(jj, 2) + ar(jjj, 3), ar1, 0)) Then
          ar2(t, 0) = ar(j, 1)
          ar2(t, 1) = ar(jj, 2)
          ar2(t, 2) = ar(jjj, 3)
          ar2(t, 3) = ar(j, 1) + ar(jj, 2) + ar(jjj, 3)
          t = t + 1
          Exit For
        End If
      Next jjj
    Next jj
  Next j
  With Cells(1, 15)
    .Offset(1).Resize(UBound(ar2) + 1, 4) = ar2
    .CurrentRegion.RemoveDuplicates Array(1, 2, 3, 4), xlYes
    .Sort [R1], , , , , , , xltrue
  End With
End Sub

 

[N0nax]

Bedankt!

Kan je ook integreren dat excel er rekening meehoudt dat er maar 1 juiste oplossing kan zijn?

Dus dat door de combinatie van de verschillende getallen er telkens maar 1 juiste combinatie mogelijk is voor de uitkomst?

Mooi stuk je code trouwens!

 

[VenA]

Jouw vraag levert meerdere uitkomsten op dus wat je nu wilt mag je wel even beter uitleggen net als het nut van deze deze vraag. De code is niet mooi maar alleen gemaakt om wat inzicht te krijgen naar de bedoeling van het het geheel.