Need help on this strange event

V

Vacuum Sealed

Hi All

This is a snippet of code I use to move values from one sheet to another.

Sheets("RunSheet P1").Select

Columns("Y").Find("", Cells(Rows.Count, "Y"), xlValues, _
xlWhole, , xlNext).Select

With Selection
.Value = Sheets("Run Setup").Range("D2").Value
End With

Columns("CD").Find("", Cells(Rows.Count, "CD"), xlValues, _
xlWhole, , xlNext).Select

With Selection
.Value = Sheets("Run Setup").Range("A2").Value
End With

The frustrating thing is that when I run the code a 2nd time, it will insert
the value in one of the cells, and not the other..

These Cells are not special, down & out blank cells with no formula,
references, conditioning, zip.

I even tried reverting back to copy/paste specialvalues, but it hung on the
paste special.

For some reason this:

Columns("CD").Find("", Cells(Rows.Count, "CD"), xlValues, _
xlWhole, , xlNext).Select

Doesn't like the Paste Special statement to follow it....

Any thoughts welcome.

TIA
Mick.
 
V

Vacuum Sealed

And apologies for the multi-posting..

I forgot I created this one....

Scold....Ouch.....

Disregard this thread....

Sorry....

Mick..
 

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

In need of more guidance please.... 10
Cycling through collection 11
Code does not error but no copy either 4
Loop through Variables 4
Worksheet_Change Woes 6
Simple... Using FIND, I need to get the row and cell 3
Code wont work - help please 6
Create Detail Sheets from Pivot Table 1

Top