Error message
 

Hi,

I have encountered a problem with the following code and am receiving this
message - object variable or with block variable not set. Can someone
advise??

Private Sub CommandButton1_Click()

Sheets("quote2").Range("appendix").Copy

Sheets("contract").Select
Cells.FindNext(After:=ActiveCell).Activate

Cells.Find(What:="appendix", _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate

ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub

Error message
 

please ignore this post, the problem has been rectified!!

Cheers!!!!


"gav meredith" wrote in message
...
Hi,

I have encountered a problem with the following code and am receiving this
message - object variable or with block variable not set. Can someone
advise??

Private Sub CommandButton1_Click()

Sheets("quote2").Range("appendix").Copy

Sheets("contract").Select
Cells.FindNext(After:=ActiveCell).Activate

Cells.Find(What:="appendix", _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate

ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub

Error message
 

.....and once again the problem presents itself. I apologise for the
confusion. It appears when there is a large qty of data to copy, the error
occurs.

Any ideas???

Thanks all!!!!

"gav meredith" wrote in message
...
please ignore this post, the problem has been rectified!!

Cheers!!!!


"gav meredith" wrote in message
...
Hi,

I have encountered a problem with the following code and am receiving
this
message - object variable or with block variable not set. Can someone
advise??

Private Sub CommandButton1_Click()

Sheets("quote2").Range("appendix").Copy

Sheets("contract").Select
Cells.FindNext(After:=ActiveCell).Activate

Cells.Find(What:="appendix", _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate

ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub

Error message
 

this is the line of code it refers to...

Cells.FindNext(After:=ActiveCell).Activate

thank you

"gav meredith" wrote in message
...
....and once again the problem presents itself. I apologise for the
confusion. It appears when there is a large qty of data to copy, the error
occurs.

Any ideas???

Thanks all!!!!

"gav meredith" wrote in message
...
please ignore this post, the problem has been rectified!!

Cheers!!!!


"gav meredith" wrote in message
...
Hi,

I have encountered a problem with the following code and am receiving
this
message - object variable or with block variable not set. Can someone
advise??

Private Sub CommandButton1_Click()

Sheets("quote2").Range("appendix").Copy

Sheets("contract").Select
Cells.FindNext(After:=ActiveCell).Activate

Cells.Find(What:="appendix", _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate

ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub

Find generates error message
 

hi seamus

i am still having troubles unfortunately. Would it be possible for me to send you my workbook for you, or anyone willing, to look at??

Thanks!

----- SOS wrote: ----

Hi gav

On trying to emulate your problem I could only do so if the tex
"appendix" was not in sheet ("contract")

After adding "appendix" to a cell in sheet ("contract") the code ra
fine no matter the size of the range "appendix"

Regard

Seamu


--
Message posted from http://www.ExcelForum.com