VBA（コード編集済み）を使用して異なるシートに行をコピーして貼り付け

Question

私は以下のコードを使用して、ユーザーから日付を入力します。私は何をしたいです：

• は、シートのCOL K「レイテンシー」で入力した日付の前にすべての日付を検索するに
• 行全体をコピーして、「前」という名前の別のシートに貼り付けします。

マイコード：

Sub Previousweek() 
Dim userdate 

userdate = InputBox("Enter the date", "Enter Date", Date) 
If IsDate(userdate) Then 
    'logic here 
    End If 

End Sub 

更新されたコード：

Sub Previousweek() 
Dim userdate 

userdate = InputBox("Enter the date", "Enter Date", Date) 
Dim rng As Range, cell As Range 
Set rng = Range("K2:K200") 
For Each cell In rng 
    If cell.Value < userdate Then 
    cell.EntireRow.Copy 
    Sheets("Previous").Range("A65536").End(xlUp).Offset(1, 0).Select 
      Sheets("Previous").Paste 
     End If 
    Next cell 
    End Sub 

これは、範囲外の添字として下の行でエラーを示している。

Sheets("Previous").Range("A65536").End(xlUp).Offset(1, 0).Select 

Answer 1

ちょうどあなたがにデータを貼り付けるシートの名前にWith ThisWorkbook.Sheets("Previous")
で前を変更！

Sub Previousweek() 
    Dim UserDate As String 
    Dim CeLL As Range 
    UserDate = InputBox("Enter the date", "Enter Date", Date) 

    If IsDate(UserDate) Then 
     With ThisWorkbook.Sheets("Previous") 
      For Each CeLL In ThisWorkbook.Sheets("Latency").Range("K2:K200").Cells 
       If CeLL.Value < UserDate Then 
        CeLL.EntireRow.Copy .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) 
       End If 
      Next CeLL 
     End With 'ThisWorkbook.Sheets("Previous") 
    Else 
    End If 
End Sub 

Answer 2

は小さい日付擬似を見つけますコード

Dim rng As Range, cell As Range 
Set rng = Range("K2:K200") 
For Each cell In rng 
    if cell.value < userdate then 
    //TODO copy to previous 
    end if 
Next cell