Suchen Sie Spalte, die ein Kriterium erfüllen, und kopieren Sie andere Zellen in dieser Zeile in ein neues Blatt

Question

Ich versuche ein Makro zu erstellen, das Text in einer Spalte findet (D) und wenn ein Kriterium erfüllt ist, dann kopiert die Zeile in zu einem anderen Blatt. Die Kriterien, nach denen ich suche, sind nicht die einzigen Texte, die sich in der Zelle befinden. Zum Beispiel könnten die Kriterien "Prodigy" sein, aber die Zelle könnte "Prodigy, Prodigy Tubing Set" enthalten.

Ich habe ein Blatt namens "Sheet1", die alle Rohdaten mit Headern hat. Die Spalte mit den Werten, die die Kriterien erfüllen sollen, ist "D".

Ich habe andere Blätter, wo die Daten kopiert werden. Zum Beispiel wird eines der Blätter "Prodigy" heißen, ein anderes wird "Prodigy Tubing Set" sein. Es gibt bis zu 20 andere Blätter.

Macro: Given row X copy specific cells from that row to a new sheet

Ich hat versucht, den Code die Person in dem obigen Link gebaut verwenden, aber es würde nur funktionieren, wenn meine Kriterien das einzige, was in der Zelle ist.

A picture of what my spreadsheet will look like is below. Ich bin ziemlich neu und würde jede mögliche Unterstützung schätzen. Hoffe, das macht Sinn.

Answer 1

Ich denke, dass die gesuchte Funktion InStr ist.

Das Beispiel, das Sie geschrieben hat dieses: If cell.Value = "Card" Then

Stattdessen werden Sie so etwas wie dies wollen: If InStr(cell.Value, "Prodigy") > 0 Then

Natürlich, werden Sie wahrscheinlich die wörtliche „Prodigy“ mit einer gewissen Zelle Wert oder eine Variable ersetzen.