Finding Certain Values and Copying & Pasting Data - VBA

[susingh]

Hi all,

I have a report that gets updated monthly and as it stands, a significant amount of manual work is required to update it.

I want to create a macro that will run down the rows of column A and every time it lands on a value that matches a userform selection by a user (a listbox that contains months), it copies the previous rows data from column B:AG and pastes it in the row (once again columns B:AG) that corresponds to the user selection. In addition, I would like to copy and paste values into the previous row so that I can edit links without changing last months data.

The report contains multiple projects (tables of data that are sorted vertically) which is why I need a macro that continually runs through the rows in column A finding matching values and manipulating the corresponding data. Another hurdle is that the projects are separated by an empty row.

I am sort of a rookie when it comes to VBA but I do have about 4 months experience creating macros in a VBA class.

Any direction would be greatly appreciated!

Thanks in advance.

-Sunny

 

[susingh]

Here is the code I'm working with so far:

Option Explicit
Public RowRef As String


Sub findrows()
    Dim cell As Range
    Dim myrows As String
    
    For Each cell In Worksheets("Detail").Range("A:A")
        If cell.Value = RowRef Then
            myrows = myrows & cell.EntireRow.Address & ","
        End If
    Next cell

    myrows = Left(myrows, Len(myrows) - 1)

    MsgBox myrows
End Sub

The MsgBox returns what I'm looking for but in the wrong format. The string returns a dollar sign in front of each row number and it duplicates each row number as well.

Additional details:
RowRef is equal to the listbox value selected in the user form.

Once I figure out why the dollar signs show up and why the row addresses get duplicated, I should be able to figure out the remainder of the code.

Thanks!

-Sunny