HELP: Loop through column to find dates and copy/paste rows to a certain tab

Klowak · Jan 4th 2018

I need to loop through column A and find all rows that contain a date and copy/paste the rows into the next blank line of a worksheet called "Yearly Trades".

I have been spinning tires on this for awhile. Any help would be appreciated.

GCExcel · Jan 5th 2018

Hi Klowak,

Here's a suggestion for you to try. If it doesn't suit your needs, please provide a worksheet example.

Code

Sub CopyRows()
   Dim i As Integer
   Dim n As Integer


   n = 1
   i = 1
   Do Until IsEmpty(Cells(i, 1))
      If IsDate(Cells(i, 1)) Then
         Rows(i).EntireRow.Copy Sheets("Yearly Trades").Cells(n, 1)
         n = n + 1
      End If


   i = i + 1
   Loop


End Sub

Display More

HELP: Loop through column to find dates and copy/paste rows to a certain tab

Participate now!

Share