Loop through worksheets and copy rows

[metanei7]

Hello,

I am kind new on VBA so please be kind :D

I am trying to make a code that will loop through worksheets that have same name but different number exp Dataset 2(1), Dataset 2(2), Dataset 2(3).

Then i want to have another loop inside that loop that will look for the last row from column A and copy it on worksheets("Sheet1").
If the copied value has the same number on worksheets("sheet1") on column A, i want it to then add only the value from the column D which it was trying to copy from.

Anyone has any clue how to do it?

Regards,
Metanei

 

[metanei7]

Still nothing is been pasted...i will try to find more help on this as i am not sure what is wrong

 

[metanei7]

Hello,

Is anybody that can help me with this problem?
I have change the code on Sheet1 instead of sheet1 and now on it i get all the time Debug.Print rs.Name
[TABLE="width: 165"]
<colgroup><col width="101"><col width="64"></colgroup><tbody>[TR]
[TD="class: xl66, width: 101"]I have no idea where that came from:D
[/TD]
[TD="class: xl66, width: 64"][/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="width: 165"]
<tbody>[TR]
[TD="class: xl64, width: 101"][/TD]
[TD="class: xl64, width: 64"][/TD]
[/TR]
</tbody>[/TABLE]

 

[gallen]

Still nothing is been pasted...i will try to find more help on this as i am not sure what is wrong

This part of the code does the pasting, only IF the value is found. It's important that the value is searching is the only value in the cell. Make sure no whitespace is there too.

[COLOR=#333333]           'if rFind is nothing then the value wasn't found
[/COLOR]            If rFind Is Nothing Then
                'Value not found so paste nothing IS THIS CORRECT?

            Else ' value was found
            
                'Copy the last row
                ws.Rows(lr).Copy
                
                [B]'Paste the copied row to the next blank row
                wsPaste.Range("A" & nb).PasteSpecial xlPasteAl[/B]l
                
                'next balnk row is +1
                nb = nb + 1 [COLOR=#333333]            End If[/COLOR]

How proficient are you with stepping through the code?. If you step through you will see what is happening at each line and what value is stored.

Try this and make sure it is behaving as planned.