セルの値の変更に基づいて行をコピー

Question

列内の値に基づいて行をコピーする方法を検索するとき、このcodeを渡り続けます。私が実行している問題は、テーブルを実行するたびに同じフレーズを使用しないことです。私は毎回同じ値を使うのに対して、セルB18にあるものに基づいて何をコピーするかを変更したいと思います。私は上記の見てきたマクロをリンクされますが、コードの特定の行は、次のとおりです。代わりに、「メールボックス」の

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

私はシート上のセルB18の内容を使用したいのですが、「ダッシュボード」

ご協力いただければ幸いです！

Answer 1

これを試してください。 Selectは不要です。実際には、最初の範囲にシート参照を追加し、Rowsを追加する必要があります。

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