• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Snellere zoekfunctie

Status
Niet open voor verdere reacties.

robinvdveeken

Gebruiker
Lid geworden
7 sep 2010
Berichten
84
Wel gewaardeerde forumleden,

Inmiddels heb ik een zoekfunctie geschreven maar de code daarvan loop enorm uit de hand.

De zoekfunctie beslaat 9 tabbladen. Op elke regel (onderdeel) van dit tabblad kunnen drie masters( kolom M,N,O) en 5 slave mogelijkheden (kolom P,Q,R,S,T)worden ingegeven. Het gaat hierbij om strings.

Elke ingegeven master zal naar moeten worden gezocht in het slave gebied op elk 9 tabladen, er zijn er in totaal nog meer tabbladen maar deze vallen buiten de functie.

Als de masterwaarde is gevonden moet de cel inhoud van kolom A+B+C worden gekopieerd in een op een volgend lijstje (zeg kolom AG) en moet de zoekfunctie worden vervolgd tot het gehele gebied is doorlopen.

De zoekfunctie kan vanuit meerdere tabbladen worden aangesproken.

Inmiddels heb ik een werkende code maar je kan rustig gaan lunchen voor dat deze is doorlopen.

De code is alsvolgt opgebouwd:

Code:
If Range("M" & power_nr) <> "" Then ' voorwaarde symbool ingevuld
    
    Interlock_symbool = Range("M" & power_nr)
    
    'zoeken op tabblad Power tabblad
        
        While Sheets("Power").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Power").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Power").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Power").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend

Dit staat er dus 9x voor elk tabblad, en dat geheel dan weer 3x voor elke Master. Die 27 while loops heb ik op achter elk blad gekopieerd.

Ik hoop dat er een mogelijkheid is een snellere, kortere code te maken die ook makkerlijker te onderhouden is.

Kan iemand mij helpen?

Alvast bedankt.

Groeten,
Robin
 
Hierbij een voorbeelbestand met daarin één van de negen bladen. Ook deze is flink afgeslankt.

Alvast bedankt voor de reacties

Groeten,
Robin
 

Bijlagen

Code te groot

Beste forumleden,

Inmiddels heb ik de code uitgewerkt. Deze is als volgt:

Code:
'eerste master kolom M
    
    If Range("M" & huidig_nr) <> "" Then ' voorwaarde symbool ingevuld
    
    Interlock_symbool = Range("M" & huidig_nr)
    
    'zoeken op tabblad Power tabblad
        
        While Sheets("Power").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Power").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Power").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Power").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
    're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Amperage
    
        While Sheets("Amperage").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Amperage").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Amperage").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Amperage").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Amperage").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Amperage").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
    're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Power supply
    
        While Sheets("Power supply").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Power supply").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Power supply").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Power supply").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power supply").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power supply").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
        
     're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Digital Input
    
        While Sheets("Digital Input").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Digital Input").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Digital Input").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Digital Input").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Digital Input").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Digital Input").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
        
    're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Digital Output
    
        While Sheets("Digital Output").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Digital Output").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Digital Output").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Digital Output").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Digital Output").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Digital Output").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
    
   're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Digital Analog input
    
        While Sheets("Analog input").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Analog input").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Analog input").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Analog input").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Analog input").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Analog input").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
   're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Digital Analog output
    
        While Sheets("Analog output").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Analog output").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Analog output").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Analog output").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Analog output").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Analog output").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
     're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Potential free
    
        While Sheets("Potential free").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Potential free").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Potential free").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Potential free").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Potential free").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Potential free").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
        
     're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad PT100 input
    
        While Sheets("PT100 input").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("PT100 input").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("PT100 input").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("PT100 input").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("PT100 input").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("PT100 input").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
    End If
're-init
Slave_zoekregel = 10
    
'tweede master kolom N
    
    If Range("N" & huidig_nr) <> "" Then ' voorwaarde symbool ingevuld
    
    Interlock_symbool = Range("N" & huidig_nr)
    
    'zoeken op tabblad Power tabblad
        
        While Sheets("Power").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Power").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Power").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Power").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
    're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Amperage
    
        While Sheets("Amperage").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Amperage").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Amperage").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Amperage").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Amperage").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Amperage").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
    're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Power supply
    
        While Sheets("Power supply").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Power supply").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Power supply").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Power supply").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power supply").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power supply").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
        
     're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Digital Input
    
        While Sheets("Digital Input").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Digital Input").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Digital Input").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Digital Input").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Digital Input").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Digital Input").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
        
    're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Digital Output
    
        While Sheets("Digital Output").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Digital Output").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Digital Output").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Digital Output").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Digital Output").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Digital Output").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
    
   're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Digital Analog input
    
        While Sheets("Analog input").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Analog input").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Analog input").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Analog input").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Analog input").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Analog input").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
   're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Digital Analog output
    
        While Sheets("Analog output").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Analog output").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Analog output").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Analog output").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Analog output").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Analog output").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
     're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Potential free
    
        While Sheets("Potential free").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Potential free").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Potential free").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Potential free").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Potential free").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Potential free").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
        
     're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad PT100 input
    
        While Sheets("PT100 input").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("PT100 input").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("PT100 input").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("PT100 input").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("PT100 input").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("PT100 input").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
    End If
    
're-init
Slave_zoekregel = 10
'Derde master kolom O
    
    If Range("O" & huidig_nr) <> "" Then ' voorwaarde symbool ingevuld
    
    Interlock_symbool = Range("O" & huidig_nr)
    
    'zoeken op tabblad Power tabblad
        
        While Sheets("Power").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Power").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Power").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Power").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
    're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Amperage
    
        While Sheets("Amperage").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Amperage").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Amperage").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Amperage").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Amperage").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Amperage").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Amperage").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
    're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Power supply
    
        While Sheets("Power supply").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Power supply").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Power supply").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Power supply").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power supply").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Power supply").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Power supply").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
        
     're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Digital Input
    
        While Sheets("Digital Input").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Digital Input").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Digital Input").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Digital Input").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Digital Input").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Digital Input").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
        
    're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Digital Output
    
        While Sheets("Digital Output").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Digital Output").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Digital Output").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Digital Output").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Digital Output").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Digital Output").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Digital Output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
    're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Digital Analog input
    
        While Sheets("Analog input").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Analog input").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Analog input").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Analog input").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Analog input").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Analog input").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
   're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Digital Analog output
    
        While Sheets("Analog output").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Analog output").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Analog output").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Analog output").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Analog output").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Analog output").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Analog output").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
     're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad Potential free
    
        While Sheets("Potential free").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("Potential free").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("Potential free").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("Potential free").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Potential free").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("Potential free").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("Potential free").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
        
     're-init
    Slave_zoekregel = 10
    
    'zoeken op tabblad PT100 input
    
        While Sheets("PT100 input").Range("D" & Slave_zoekregel) <> ""
        
            If Sheets("PT100 input").Range("P" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
           
            If Sheets("PT100 input").Range("Q" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
    
            If Sheets("PT100 input").Range("R" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("PT100 input").Range("S" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            If Sheets("PT100 input").Range("T" & Slave_zoekregel) = Interlock_symbool Then
                Range("AG" & Start_nr) = Range("B" & Slave_zoekregel) & Range("A" & Slave_zoekregel) & Range("C" & Slave_zoekregel)
                Sheets("PT100 input").Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
                're-init
                Start_nr = Start_nr + 1
            End If
            
            're-init
            Slave_zoekregel = Slave_zoekregel + 1
            
        Wend
    
    End If


Kort gezegd komt het er op neer, Kijk of er in huid tabblad iets is ingevuld op Range ("M" & huig_nr) is dit het geval zoek dan in de andere tabbladen of dit zelfde in kolom P,Q,R,S of T staat, is dit het geval Kopieer dan cel A, B, C van de zelfde regel en plak die op het huidige tabblad.

Uit testjes weet ik dat bovenstaande code werkt. Helaas is deze wijze groter dan 64 kB. en dus te groot.

Kan iemand mij helpen?

Alvast bedankt.

Groeten,
Robin
 
Robin,

Zoeken doe je met de methode Find
Code:
With Worksheets("Power").Range("P1:P500")
    Set c = .Find(Interlock_symbool, lookin:=xlValues)
    If Not c Is Nothing Then
        'Plaats hier je gewenste code
    End If
End With

Doorlopen van tabbladen doe je met een loop functie:

Code:
For Sht = 1 to Sheets.count
       'Plaats hier je code die gaat testen o.i.d.
Next Sht
 
Laatst bewerkt:
Bedankt voor je reactie Superzeeuw.

De methode met Find is me enigsinds bekend.
Waar mijn kennis hiervan stop is dat ik niet weet hoe ik een heel zoek gebied kan doorlopen. Het kan voorkomen dat het geen dat gezocht moet worden, Interlock_symbool, vaker voorkomt in het zoekgebied. De kopieer actie moet dan worden herhaald. Is hier een trucje voor?
Morgen zal ik de code uitwerken in een Find toepassing.


Alvast bedankt.

Groeten,
Robin
 
Robin,

Ga in Excel naar de VBA omgeving toe.

type hier ergens find
Selecteer find en druk dan op F1 (help functie)

Dan krijg je een prachtig voorbeeld van hetgeen jij wilt.
 
Beste Forumleden,

Tot zover heb ik een werkende code.
Deze link heeft me ook erg geholpen: http://www.thecodenet.com/articles.php?id=18

De code ziet er als volgt uit:
Code:
  If Range("K" & huidig_nr) = "x" Then 'werkt op interlock sybool
   If Range("M" & huidig_nr) <> "" Then '
    're-init
    Interlock_symbool = Range("M" & huidig_nr)
    
    For Sht = 1 To Sheets.Count
      With Worksheets(Sht).Range("P10:P1000")
       Set c = .Find(Interlock_symbool, LookIn:=xlValues)
       
       If Not c Is Nothing Then
         firstAddress = c.Address
         Do
         
          Range("AG" & Start_nr + 1) = c.Offset(0, -15) & c.Offset(0, -14) & c.Offset(0, -13) & c.Offset(0, -12)
          Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
          're-init
          Start_nr = Start_nr + 1
         
          Set c = .FindNext(c)
         Loop While Not c Is Nothing And c.Address <> firstAddress
         
       End If
      End With
   
   
   
   Next Sht
    
 End If

 End If
Dit is een deel van de totale code.

Waar ik tegenaanloop is dat de zoekrange eigenlijks With Worksheets(Sht).Range("P10:T1000") En het te kopieeren altijd in kollom A t/m C en in de rij van de gevonden Cell staat. De Offset is dus niet altijd gelijk. Voor iedere kolom in de zoek Range (P t/m T) een aparte zoekfunctie is ook niet echt een mooie oplossing.
Ik ben al even wat aan het proberen geweest maar ik kan nog geen methode te vinden om cell A t/m C aan te spreken in de rij van waar c gevonden is.

Kan iemand mij helpen?
Alvast bedankt.

Groeten,
Robin
 
Robin,

Gefeliciteerd.
Je hebt er nu een mooi stukje code van gemaakt, beduidend korter dan de voorgaande.

In jouw code staat trouwens P10 : P1000 ipv P10 : T1000

Je hebt referenties genoeg om te bepalen wat je wilt hebben.
Omdat je offset varieert kun je dit sturen op 2 manieren.

Of hardcoded copy A11:C11 to
Of je gebruikt c.column om je offset mee te sturen want met c.column haal je de kolom waarde op van de Cell waarin de gevonden waarde staat.
 
Laatst bewerkt:
Beste Superzeeuw,

Bedankt voor je reactie.
Het is een fijn gevoel als iets gaat lukken.
Mijn vader heeft mij ooit geleerd: Kennis maal ervaring is kunde.

Dat de range in de code beperkt is tot één kolom dat klopt. In eerste instantie was dan ook de bedoeling de code te kopieeren voor de 3 verschillende kolommen omdat de offset verschilt. (als c gevonden word in P is de offset totaan kolom A anders dan wanneer deze in T word gevonden)

Het doel is dan ook dat de cellen in kolom A t/m C te kopieeren op de rij waarin c wordt gevonden.

Zomaar even een hersenspinsel: Range("AG" & Start_nr + 1) = Range("A" & c.Row) & Range("B" & c.Row) & Range("C" & c.Row)

Ik kan niets in de helpfile vinden of c.Row op deze wijze te gebruiken is in het bereik van een Range. Suggesties hoor ik graag en ik ga er mee aan de slag!

Groeten,
Robin
 
Wat is het leven soms toch mooi!

Range("AG" & Start_nr + 1) = Worksheets(Sht).Range("A" & c.Row) & " - " & Worksheets(Sht).Range("B" & c.Row) & " - " & Worksheets(Sht).Range("C" & c.Row) & " - " & Worksheets(Sht).Range("D" & c.Row)

Dit is het geworden, mijn hersenspinsel blijkt niet raar alleen moet de waarde wel van het tabblad waarin gezocht word worden gekopieerd. Het werkt!

Als de code helemaal af is zal ik hem posten.

Groeten,
Robin
 
Hier de code,

Misschien nog niet optimaal maar het past in nu in ieder geval ruim binnen de 64kb :cool:

Code:
  If Range("K" & huidig_nr) = "x" Then 'werkt op interlock sybool
    
    'interlock
    
    Range("AF" & Start_nr + 1) = "Interlock:"
    Range("AF" & Start_nr + 1).Font.Bold = True
    Range("AG" & Start_nr + 1) = "Every possibility is a way to turn on the utillity."
    Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
    're-init
    Start_nr = Start_nr + 1
 
   If Range("M" & huidig_nr) <> "" Then 'symbool in masterkolom M
    
    Interlock_symbool = Range("M" & huidig_nr)
    Range("AF" & Start_nr + 1) = "Possibility:"
    
      For Sht = 3 To Sheets.Count
      With Worksheets(Sht).Range("P10:T1000")
       Set c = .Find(Interlock_symbool, LookIn:=xlValues)
       
       If Not c Is Nothing Then
         firstAddress = c.Address
         Do
         
          If Worksheets(Sht).Range("B" & c.Row) <> "" Then 'eplan codering ook ingevuld
             Range("AG" & Start_nr + 1) = Worksheets(Sht).Range("A" & c.Row) & " - " & Worksheets(Sht).Range("B" & c.Row) & " - " & Worksheets(Sht).Range("C" & c.Row) & " - " & Worksheets(Sht).Range("D" & c.Row)
          Else
             Range("AG" & Start_nr + 1) = Worksheets(Sht).Range("A" & c.Row) & " - " & Worksheets(Sht).Range("C" & c.Row) & " - " & Worksheets(Sht).Range("D" & c.Row)
          End If
          Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
          're-init
          Start_nr = Start_nr + 1
         
          Set c = .FindNext(c)
         Loop While Not c Is Nothing And c.Address <> firstAddress
         
       End If
      End With
   Next Sht
    
  End If
 
 If Range("N" & huidig_nr) <> "" Then 'symbool in masterkolom N
    Interlock_symbool = Range("N" & huidig_nr)
    Range("AF" & Start_nr + 1) = "Possibility:"
    
    For Sht = 3 To Sheets.Count
      With Worksheets(Sht).Range("P10:T1000")
       Set c = .Find(Interlock_symbool, LookIn:=xlValues)
       
       If Not c Is Nothing Then
         firstAddress = c.Address
         Do
         
          If Worksheets(Sht).Range("B" & c.Row) <> "" Then 'eplan codering ook ingevuld
             Range("AG" & Start_nr + 1) = Worksheets(Sht).Range("A" & c.Row) & " - " & Worksheets(Sht).Range("B" & c.Row) & " - " & Worksheets(Sht).Range("C" & c.Row) & " - " & Worksheets(Sht).Range("D" & c.Row)
          Else
             Range("AG" & Start_nr + 1) = Worksheets(Sht).Range("A" & c.Row) & " - " & Worksheets(Sht).Range("C" & c.Row) & " - " & Worksheets(Sht).Range("D" & c.Row)
          End If
          Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
          're-init
          Start_nr = Start_nr + 1
         
          Set c = .FindNext(c)
         Loop While Not c Is Nothing And c.Address <> firstAddress
         
       End If
      End With
   Next Sht
    
 End If
 
 If Range("O" & huidig_nr) <> "" Then 'symbool in masterkolom O
    're-init
    Interlock_symbool = Range("O" & huidig_nr)
    Range("AF" & Start_nr + 1) = "Possibility:"
    
    For Sht = 3 To Sheets.Count
      With Worksheets(Sht).Range("P10:T1000")
       Set c = .Find(Interlock_symbool, LookIn:=xlValues)
       
       If Not c Is Nothing Then
         firstAddress = c.Address
         Do
         
          If Worksheets(Sht).Range("B" & c.Row) <> "" Then 'eplan codering ook ingevuld
             Range("AG" & Start_nr + 1) = Worksheets(Sht).Range("A" & c.Row) & " - " & Worksheets(Sht).Range("B" & c.Row) & " - " & Worksheets(Sht).Range("C" & c.Row) & " - " & Worksheets(Sht).Range("D" & c.Row)
          Else
             Range("AG" & Start_nr + 1) = Worksheets(Sht).Range("A" & c.Row) & " - " & Worksheets(Sht).Range("C" & c.Row) & " - " & Worksheets(Sht).Range("D" & c.Row)
          End If
          Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
          're-init
          Start_nr = Start_nr + 1
         
          Set c = .FindNext(c)
         Loop While Not c Is Nothing And c.Address <> firstAddress
         
       End If
      End With
   Next Sht
    
  End If

Ik dank u allen wederom.

Groeten,
Robin
 
Robin,

Ziet er stukken beter uit dan de eerste code die je gepost hebt.

Zo zie je al doende leert men en de beste leerschool ben jezelf.
Als je wilt is er altijd een oplossing is de basis goed dan bereik je de rest met vallen en opstaan.

Nog een paar verbeter puntjes, with Worksheets(Sht) als basis gebruikt en de rest eraan gekoppeld met de .blabla zie hieronder.

Code:
If Range("K" & huidig_nr) = "x" Then 'werkt op interlock symbool
    
    'interlock
    
    Range("AF" & Start_nr + 1) = "Interlock:"
    Range("AF" & Start_nr + 1).Font.Bold = True
    Range("AG" & Start_nr + 1) = "Every possibility is a way to turn on the utillity."
    Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
    're-init
    Start_nr = Start_nr + 1
 
   If Range("M" & huidig_nr) <> "" Then 'symbool in masterkolom M
    
    Interlock_symbool = Range("M" & huidig_nr)
    Range("AF" & Start_nr + 1) = "Possibility:"
    
      For Sht = 3 To Sheets.Count
      With Worksheets(Sht)
       Set c =[COLOR="red"] .Range("P10:T1000")[/COLOR].Find(Interlock_symbool, LookIn:=xlValues)
       
       If Not c Is Nothing Then
         firstAddress = c.Address
         Do
         
          If .Range("B" & c.Row) <> "" Then 'eplan codering ook ingevuld
             Range("AG" & Start_nr + 1) = .Range("A" & c.Row) & " - " & .Range("B" & c.Row) & " - " & .Range("C" & c.Row) & " - " & .Range("D" & c.Row)
          Else
             Range("AG" & Start_nr + 1) = .Range("A" & c.Row) & " - " & .Range("C" & c.Row) & " - " & .Range("D" & c.Row)
          End If
          Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
          're-init
          Start_nr = Start_nr + 1
         
          Set c = .FindNext(c)
         Loop While Not c Is Nothing And c.Address <> firstAddress
         
       End If
      End With
   Next Sht
    
  End If
 
 If Range("N" & huidig_nr) <> "" Then 'symbool in masterkolom N
    Interlock_symbool = Range("N" & huidig_nr)
    Range("AF" & Start_nr + 1) = "Possibility:"
    
    For Sht = 3 To Sheets.Count
      With Worksheets(Sht)
       Set c = [COLOR="red"].Range("P10:T1000")[/COLOR].Find(Interlock_symbool, LookIn:=xlValues)
       
       If Not c Is Nothing Then
         firstAddress = c.Address
         Do
         
          If .Range("B" & c.Row) <> "" Then 'eplan codering ook ingevuld
             Range("AG" & Start_nr + 1) = .Range("A" & c.Row) & " - " & .Range("B" & c.Row) & " - " & .Range("C" & c.Row) & " - " & .Range("D" & c.Row)
          Else
             Range("AG" & Start_nr + 1) = .Range("A" & c.Row) & " - " & .Range("C" & c.Row) & " - " & .Range("D" & c.Row)
          End If
          Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
          're-init
          Start_nr = Start_nr + 1
         
          Set c = .FindNext(c)
         Loop While Not c Is Nothing And c.Address <> firstAddress
         
       End If
      End With
   Next Sht
    
 End If
 
 If Range("O" & huidig_nr) <> "" Then 'symbool in masterkolom O
    're-init
    Interlock_symbool = Range("O" & huidig_nr)
    Range("AF" & Start_nr + 1) = "Possibility:"
    
    For Sht = 3 To Sheets.Count
      With Worksheets(Sht)
       Set c = [COLOR="red"].Range("P10:T1000")[/COLOR].Find(Interlock_symbool, LookIn:=xlValues)
       
       If Not c Is Nothing Then
         firstAddress = c.Address
         Do
         
          If .Range("B" & c.Row) <> "" Then 'eplan codering ook ingevuld
             Range("AG" & Start_nr + 1) = .Range("A" & c.Row) & " - " & .Range("B" & c.Row) & " - " & .Range("C" & c.Row) & " - " & .Range("D" & c.Row)
          Else
             Range("AG" & Start_nr + 1) = .Range("A" & c.Row) & " - " & .Range("C" & c.Row) & " - " & .Range("D" & c.Row)
          End If
          Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
          're-init
          Start_nr = Start_nr + 1
         
          Set c = .FindNext(c)
         Loop While Not c Is Nothing And c.Address <> firstAddress
         
       End If
      End With
   Next Sht
    
  End If
 
Superzeeuw,

Bedankt voor je reactie.

Uit de wijziging in je laatste code begrijp ik dat hierdoor het zoekgebied waarin c wordt bepaald kleiner word.

Deze code heb ik toegepast, eerst alleen de wijzigingen later gekopieerd maar ik krijg toch de bekende foutmelding "Deze eigenschap of methode wordt niet ondersteund door dit object."

Heb je een idee wat er mis gaat?

Alvast bedankt.

Groeten,
Robin
 
Robin,

Volgnes mij zit het probleem in de regels met rode tekst.
Deze had ik over het hoofd gezien.

Code:
If Range("K" & huidig_nr) = "x" Then 'werkt op interlock symbool
    
    'interlock
    
    Range("AF" & Start_nr + 1) = "Interlock:"
    Range("AF" & Start_nr + 1).Font.Bold = True
    Range("AG" & Start_nr + 1) = "Every possibility is a way to turn on the utillity."
    Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
    're-init
    Start_nr = Start_nr + 1
 
   If Range("M" & huidig_nr) <> "" Then 'symbool in masterkolom M
    
    Interlock_symbool = Range("M" & huidig_nr)
    Range("AF" & Start_nr + 1) = "Possibility:"
    
      For Sht = 3 To Sheets.Count
      With Worksheets(Sht)
       Set c = .Range("P10:T1000").Find(Interlock_symbool, LookIn:=xlValues)
       
       If Not c Is Nothing Then
         firstAddress = c.Address
         Do
         
          If .Range("B" & c.Row) <> "" Then 'eplan codering ook ingevuld
             Range("AG" & Start_nr + 1) = .Range("A" & c.Row) & " - " & .Range("B" & c.Row) & " - " & .Range("C" & c.Row) & " - " & .Range("D" & c.Row)
          Else
             Range("AG" & Start_nr + 1) = .Range("A" & c.Row) & " - " & .Range("C" & c.Row) & " - " & .Range("D" & c.Row)
          End If
          Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
          're-init
          Start_nr = Start_nr + 1
         
          Set c = [COLOR="red"].Range("P10:T1000")[/COLOR].FindNext(c)
         Loop While Not c Is Nothing And c.Address <> firstAddress
         
       End If
      End With
   Next Sht
    
  End If
 
 If Range("N" & huidig_nr) <> "" Then 'symbool in masterkolom N
    Interlock_symbool = Range("N" & huidig_nr)
    Range("AF" & Start_nr + 1) = "Possibility:"
    
    For Sht = 3 To Sheets.Count
      With Worksheets(Sht)
       Set c = .Range("P10:T1000").Find(Interlock_symbool, LookIn:=xlValues)
       
       If Not c Is Nothing Then
         firstAddress = c.Address
         Do
         
          If .Range("B" & c.Row) <> "" Then 'eplan codering ook ingevuld
             Range("AG" & Start_nr + 1) = .Range("A" & c.Row) & " - " & .Range("B" & c.Row) & " - " & .Range("C" & c.Row) & " - " & .Range("D" & c.Row)
          Else
             Range("AG" & Start_nr + 1) = .Range("A" & c.Row) & " - " & .Range("C" & c.Row) & " - " & .Range("D" & c.Row)
          End If
          Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
          're-init
          Start_nr = Start_nr + 1
         
          Set c = [COLOR="red"].Range("P10:T1000")[/COLOR].FindNext(c)
         Loop While Not c Is Nothing And c.Address <> firstAddress
         
       End If
      End With
   Next Sht
    
 End If
 
 If Range("O" & huidig_nr) <> "" Then 'symbool in masterkolom O
    're-init
    Interlock_symbool = Range("O" & huidig_nr)
    Range("AF" & Start_nr + 1) = "Possibility:"
    
    For Sht = 3 To Sheets.Count
      With Worksheets(Sht)
       Set c = .Range("P10:T1000").Find(Interlock_symbool, LookIn:=xlValues)
       
       If Not c Is Nothing Then
         firstAddress = c.Address
         Do
         
          If .Range("B" & c.Row) <> "" Then 'eplan codering ook ingevuld
             Range("AG" & Start_nr + 1) = .Range("A" & c.Row) & " - " & .Range("B" & c.Row) & " - " & .Range("C" & c.Row) & " - " & .Range("D" & c.Row)
          Else
             Range("AG" & Start_nr + 1) = .Range("A" & c.Row) & " - " & .Range("C" & c.Row) & " - " & .Range("D" & c.Row)
          End If
          Range("AF" & Start_nr + 1 & ":AG" & Start_nr + 1).Interior.ColorIndex = 15
          're-init
          Start_nr = Start_nr + 1
         
          Set c = [COLOR="red"].Range("P10:T1000")[/COLOR].FindNext(c)
         Loop While Not c Is Nothing And c.Address <> firstAddress
         
       End If
      End With
   Next Sht
    
  End If
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan