Zoekmacro in excel deel 2

Status
Niet open voor verdere reacties.
D

dannieshelp

Gebruiker
Lid geworden
29 jun 2008
Berichten
16
Goedendag,

Ik heb het volgende probleem:
Ik wil graag een zoekmacro in excel gebruiken die de volgende functie heeft:
De macro moet een aantal kolommen doorzoeken op de sheet formulations en wanneer de waarden in de cellen overeenkomen met de eventuele waarden in cel AA6 t/m AD6 dan moet hij deze rijen copieren naar de sheet "Search".

Nu heeft snb mij geholpen aan de volgende macro:
PHP: 
Sub macroFilter()
  With Sheets("Search")
     .Unprotect
     .Range("A6:F50").ClearContents
     Sheets("Formulations").Range("A6:F50").AdvancedFilter xlFilterCopy, Sheets("Formulations").Range("AA5:AF6"), .Range("A6:F50")
  End With
End Sub

Maar deze werkt nog niet naar behoren en ik weet niet hoe ik deze moet aanpassen.
Heeft iemand een oplossing voor mij? Ik zal het voorbeeldbestand erbij doen.

Alvast bedankt,

Danny
 

Bijlagen

Het helpt als je in het criteriumbereik (AA5:AF6) dezelfde volgorde van veldnamen aanhoudt als in het gebeid met alle gegevens A5 t/m F60.

En verder

Code: 
Sub macroFilter()
  With Sheets("Search")
     .Unprotect
     .Range("A6:F50").ClearContents
     Sheets("Formulations").Range("A5:F50").AdvancedFilter xlFilterCopy, Sheets("Formulations").Range("AA5:AF6"), .Range("A5:F50")
  End With
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan