セルの値に基づいて行をコピーして新しいシートとして貼り付けます

Question

マクロを使用して行をコピーしてエクセルで新しいシートに貼り付けることについての記事を検索しましたが、正しいコードを見つけることができません私の要求に合っています。ここでオフを開始するためのサンプルデータがあります：

私は7列を含むデータシートを持っている：

COLUMN A - Article # 
COLUMN B - Description 
COLUMN C - Lift 
COLUMN E - Comp OH 
COLUMN F - Requested 
COLUMN G - Shipped 
COLUMN H - SOS OH 

私はCOLUMN Fに基づいて、このシートの内容をコピーしますマクロを作成したいです - 要求された新しいシートにそれらを置いてREQUESTEDという名前にします。これはReuestedフォーミュラ

Answer 1

これはこれは、Sheet1のラフデータ これはある

あなたに役立ちます：

最終結果はこのようなものでなければなりませんレイアウトレイアウト thであるあなたのAnsverはあなたがすべてのそれらの他の記事を見た後、開発されたコードが動作しない場合は、あなたの質問に、それを含めてください

Sub hide() 
Sheets("Requested").Select 
    Dim r As Range, c As Range 
    Set r = Range("F2:F10") 
Application.ScreenUpdating = False 
For Each c In r 
    If Len(c.Text) = 0 Then 
     c.EntireRow.Hidden = True 
    Else 
     c.EntireRow.Hidden = False 
    End If 
Next c 
Application.ScreenUpdating = True 
End Sub 

Sub Unhide_All_Rows() 
Sheets("Requested").Select 

    On Error Resume Next 
    'in case the sheet is protected 
    ActiveSheet.Cells.EntireRow.Hidden = False 
End Sub