Simple seach and copy help needed

  • Thread starter Thread starter alextransamerica
  • Start date Start date
A

alextransamerica

hi, I'm a noob at programming and this should be a breeze for the
gurus.
I need to search down a column for values >100000 and if found, copy
the whole row to sheet 2. It should loop through all the data in the
table until the last row.
simple as that.

thanks!!
 
Sub Macro1()
Dim iCt As Integer
Dim iRow1 As Integer
Dim iRow2 As Integer

iRow1 = Sheets(1).Range("A65536").End(xlUp).Row
For iCt = 1 To iRow1
If Sheets(1).Cells(iCt, 1) > 10000 Then
iRow2 = iRow2 + 1
Sheets(1).Rows(iCt).Copy Sheets(2).Rows(iRow2)
End If
Next iCt

End Sub

Hth,
Merjet
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Need simple macro to copy and paste values 1
Excel VBA help: Text file formatting 19
Searching for a word and then copy the whole row 5
Paste in column B using Last row of either column B, C or D. 10
simple nested loop question 8
Create if partial match then copy and paste data from one cell to another 1
Ron de Bruin - Merge cells from all worksheets 0
Copy Row From One Worksheet To Another 2

Back
Top