matrixformules omzetten naar vba

[gherry]

Hallo ik heb een excel bestand en in kolom i staan allemaal formules .
Is het mogelijk om deze formules om te zetten naar een 'vba oplossing'.
mvgr gherry

 

[Wigi]

En wat is de logica van de formule in kolom I, in mensentaal?

 

[gherry]

Hallo alvast bedankt voor de reactie.
Sorry dat ik zo laat reageer.
Mijn vriendin doet voor haar masterscriptie een onderzoek over de invloeden van de Engelse taal op haar moedertaal (Roemeens)
Ze wil dus zoeken op het woord manner (verbs) en path (satellites) en path(prepositions)
Ze wil dus graag weten hoe vaak de situaties in kolom i voor kunnen komen .
Daarom heb ik dit voorbeeldbestand gemaakt .
Is het mogelijk om deze formules in een vba oplossing te zetten .
Het voorbeeldbestand is iets aangepast, missschien dat het nu duiderlijker is.

 

[gherry]

Hallo heb een stukje code opgenomen om het een en ander nog meer te verduidelijken.
Dit is gedaan met autofilter en om alle mogelijkheden op te nemen is veel werk en de kans op het vergeten nog groter .
Daarom de vraag of dit geautomatiseerd kan worden met vba
alvast bedankt

Sub Macro1()
'
' Macro1 Macro

'

'
    Selection.AutoFilter Field:=1, Criteria1:="manner"
    Selection.AutoFilter Field:=2, Criteria1:="path"
    Selection.AutoFilter Field:=3, Criteria1:="="
    Selection.AutoFilter Field:=4, Criteria1:="="
    Selection.AutoFilter Field:=6, Criteria1:="="
    Selection.AutoFilter Field:=7, Criteria1:="="
    Selection.AutoFilter Field:=8, Criteria1:="="
    'bij dit punt kijken in de gegevens hoeveel keren deze waarde voorkomt en kopieren naar een ander blad
    Selection.AutoFilter Field:=1, Criteria1:="manner"
    Selection.AutoFilter Field:=2, Criteria1:="="
    Selection.AutoFilter Field:=3, Criteria1:="path"
    Selection.AutoFilter Field:=4, Criteria1:="="
    Selection.AutoFilter Field:=6, Criteria1:="="
    Selection.AutoFilter Field:=7, Criteria1:="="
    Selection.AutoFilter Field:=8, Criteria1:="="
    'bij dit punt kijken in de gegevens hoeveel keren deze waarde voorkomt en kopieren naar een ander blad
    'tot dat hij bij het laatste Field is en dan volgende
     Selection.AutoFilter Field:=1, Criteria1:="manner"
    Selection.AutoFilter Field:=2, Criteria1:="path"
    Selection.AutoFilter Field:=3, Criteria1:="path"
    Selection.AutoFilter Field:=4, Criteria1:="="
    Selection.AutoFilter Field:=6, Criteria1:="="
    Selection.AutoFilter Field:=7, Criteria1:="="
    Selection.AutoFilter Field:=8, Criteria1:="="
     'bij dit punt kijken in de gegevens hoeveel keren deze waarde voorkomt en kopieren naar een ander blad
     Selection.AutoFilter Field:=1, Criteria1:="manner"
    Selection.AutoFilter Field:=2, Criteria1:="path"
    Selection.AutoFilter Field:=3, Criteria1:="path"
    Selection.AutoFilter Field:=4, Criteria1:="="
    Selection.AutoFilter Field:=6, Criteria1:="path"
    Selection.AutoFilter Field:=7, Criteria1:="="
    Selection.AutoFilter Field:=8, Criteria1:="="
    
      Selection.AutoFilter Field:=1, Criteria1:="manner"
    Selection.AutoFilter Field:=2, Criteria1:="path"
    Selection.AutoFilter Field:=3, Criteria1:="path"
    Selection.AutoFilter Field:=4, Criteria1:="="
    Selection.AutoFilter Field:=6, Criteria1:="="
    Selection.AutoFilter Field:=7, Criteria1:="path"
    Selection.AutoFilter Field:=8, Criteria1:="="
     'bij dit punt kijken in de gegevens hoeveel keren deze waarde voorkomt en kopieren naar een ander blad
    'tot dat hij bij het laatste Field is en dan volgende
    
End Sub