How do I move data from one worksheet to another...

[bt2086]

How do I move data from one worksheet to another... I have a worksheet called "Chart" which has 2 columns of list. 1st column has students' ages & 2nd column has corresponding students' names. I'd like to move students who are in their 20s (there are students who are in their teens, 20s, 30s, and 40s) to worksheet called "Data" by using if statement, but I want only their names shown on "Data" worksheet.

 

[Trebor76]

Hi bt2086,

Try this:

Option Explicit
Sub Macro2()

    'http://www.mrexcel.com/forum/showthread.php?642879-How-do-I-move-data-from-one-worksheet-to-another

    Dim rngCell As Range
        
    Application.ScreenUpdating = False
    
    For Each rngCell In Sheets("Chart").Range("A2:A" & Sheets("Chart").Range("A" & Rows.Count).End(xlUp).Row)
        If rngCell.Value >= 20 And rngCell.Value <= 29 Then
            Sheets("Chart").Range("B" & rngCell.Row).Copy _
                Destination:=Sheets("Data").Range("A" & Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1)
        End If
    Next rngCell
    
    Application.ScreenUpdating = True

End Sub

HTH

Robert