Zeile kopieren basierend auf Zellenwert ändern

Question

Ich stolpere immer über diese code bei der Suche nach einer Möglichkeit, eine Zeile basierend auf einem Wert in einer Spalte zu kopieren. Das Problem, auf das ich stoße, ist, dass ich nicht jedes Mal denselben Ausdruck verwende, wenn ich den Tisch führen möchte. Ich möchte, dass es ändert, was es kopiert, basierend auf dem, was in Zelle B18 ist, anstatt jedes Mal denselben Wert zu verwenden. Ich verknüpft das Makro, das ich habe oben ist zu sehen, aber die spezifischen Codezeilen sind:

If Range("E" & CStr(LSearchRow)).Value = "Mail Box" Then 
    Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select 
    Selection.Copy 

Statt „Mail Box“ Ich möchte den Inhalt der Zelle B18 auf dem Blatt „Armaturenbrett“ verwenden

Jede Hilfe wäre willkommen!

Answer 1

Versuchen Sie dies. Beachten Sie, dass Select nicht benötigt wird. Sie sollten wirklich einen Blattverweis zum ersten Bereich auch hinzufügen und die Rows.

If Range("E" & CStr(LSearchRow)).Value = sheets("Dashboard").Range("B18").Value Then 
    Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Copy