macro failing

[belkin]

Hi
I Aam running the following code to transfer info from one workshet to another but it is failing

I am getting

run-time error '1004':
Application- defined or object -defined error

It work ok the first time but fails the second-third etc

Any help i would be greatful

Sub try33511()
Dim a As New Collection, x, y, i As Long, n As Long, rcount As Long, lrowsupp As Long
If Sheets("Pivots").[AO1] = "" Then Exit Sub
Application.ScreenUpdating = 0
With Sheets("Pivots"): y = .Range(.[AO1], .Cells(Rows.Count, "ao").End(xlUp).Offset(, 1)): End With: rcount = UBound(y)
With Sheets("reason 33511"): x = .Range(.[a2], .Cells(Rows.Count, "a").End(xlUp).Offset(rcount, 1)): lrowsupp = UBound(x) - UBound(y)
On Error Resume Next
For i = 1 To UBound(x)
   If x(i, 1) <> "" Then a.Add i, CStr(x(i, 1))
Next
Err.Clear
For i = 1 To UBound(y)
    a.Add i, CStr(y(i, 1))
    If Err.Number = 0 Then
        n = n + 1
        x(lrowsupp + n, 1) = y(i, 1)
        x(lrowsupp + n, 2) = y(i, 2)
    Else
        x(a.Item(CStr(y(i, 1))), 2) = y(i, 2)
        Err.Clear
    End If
Next
.[a2].Resize(UBound(x), 2) = x: End With
End Sub

[snb]

After 34 posts and 3 years subscription you should have known to add codetags....

[royUK]

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

PLEASE PM WHEN YOU HAVE DONE THIS AND I WILL DELETE THIS POST

[belkin]

Hi
I Aam running the following code to transfer info from one workshet to another but it is failing

I am getting

run-time error '1004':
Application- defined or object -defined error

It work ok the first time but fails the second-third etc

Any help i would be greatful

Sub try33511()
Dim a As New Collection, x, y, i As Long, n As Long, rcount As Long, lrowsupp As Long
If Sheets("Pivots").[AO1] = "" Then Exit Sub
Application.ScreenUpdating = 0
With Sheets("Pivots"): y = .Range(.[AO1], .Cells(Rows.Count, "ao").End(xlUp).Offset(, 1)): End With: rcount = UBound(y)
With Sheets("reason 33511"): x = .Range(.[a2], .Cells(Rows.Count, "a").End(xlUp).Offset(rcount, 1)): lrowsupp = UBound(x) - UBound(y)
On Error Resume Next
For i = 1 To UBound(x)
   If x(i, 1) <> "" Then a.Add i, CStr(x(i, 1))
Next
Err.Clear
For i = 1 To UBound(y)
    a.Add i, CStr(y(i, 1))
    If Err.Number = 0 Then
        n = n + 1
        x(lrowsupp + n, 1) = y(i, 1)
        x(lrowsupp + n, 2) = y(i, 2)
    Else
        x(a.Item(CStr(y(i, 1))), 2) = y(i, 2)
        Err.Clear
    End If
Next
.[a2].Resize(UBound(x), 2) = x: End With
End Sub

thank you!

[arthurbr]

Don't forget to change the title

[belkin]

thanks but i figured it out now

[royUK]

Your post does not comply with Rule 9 of our Forum RULES. If you solve a problem yourself before anyone else has responded, please take a moment to describe your solution, chances are some other member will benefit. And please never edit a thread in which someone else has responded.

If you aren't bothereed then we can't be bothered to help you. In fact take a holiday from posting - 2 weeks ban

Change the Title or don't bother posting again!

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save