Run time error

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Novice Lee - 31 Jul 2008 14:42 GMT

I am running Excel 2003 and I get the Run time error '438' Object doesn't
support this property or method msg box.
the section it hangs up on is

With Sheets("Data")
Do While .Range("b" & Sh1RowCount) <> ""
If .Range("d" & Sh1RowCount) <> "" Then
.Row(Sh1RowCount).Copy _
'Destination:=Sheets("ald").Row(Sh2RowCount)
Sh2RowCount = Sh2RowCount + 1
End If
If .Range("d" & Sh1RowCount) <> "" Then
.Row(Sh1RowCount).Copy _
Destination:=Sheets("visual").Row(Sh3RowCount)
Sh3RowCount = Sh3RowCount + 1
End If
Sh1RowCount = Sh1RowCount + 1
Loop
End With

the rows it highlights in yellow is the following

.Row(Sh1RowCount).Copy _
'Destination:=Sheets("ald").Row(Sh2RowCount)

I tried to figure it out but I couldn't

Any help would be greatly welcomed

Thanks

Reply to this Message

Rick Rothstein (MVP - VB) - 31 Jul 2008 14:59 GMT

Is that an **exact** copy of the line? If so, remove the apostrophe from in
front of the keyword Destination... that apostrophe is telling VB that
everything after it is a comment.

I have a question about your code... do you set the Sh1RowCount, Sh2RowCount
and Sh3RowCount variables to a value of 1 or greater in your code **before**
the code you posted? I ask because if you don't, then the first time you try
to use them they will be 0 and some of your code lines will fail.

Rick

>I am running Excel 2003 and I get the Run time error '438' Object doesn't
> support this property or method msg box.
[quoted text clipped - 26 lines]
>
> Thanks

Reply to this Message

Novice Lee - 31 Jul 2008 16:18 GMT

I got rid of the apostrophe after I relized it was there. I have each
Sh*rowcount=2

> Is that an **exact** copy of the line? If so, remove the apostrophe from in
> front of the keyword Destination... that apostrophe is telling VB that
[quoted text clipped - 37 lines]
> >
> > Thanks

Reply to this Message

Rick Rothstein (MVP - VB) - 31 Jul 2008 16:30 GMT

And is your code working now or not?

Also, just to be clear in case the answer to the above is "not", do you have
the Sh*rowcount=2 assignments set before the code you showed us?

Rick

>I got rid of the apostrophe after I relized it was there. I have each
> Sh*rowcount=2
[quoted text clipped - 45 lines]
>> >
>> > Thanks

Reply to this Message

dustinbrearton - 31 Jul 2008 15:07 GMT

try changing this part to be as below

Rows(Sh1RowCount).Copy
Selection.Copy

Should work. Post back if you have problems.

>I am running Excel 2003 and I get the Run time error '438' Object doesn't
>support this property or method msg box.
[quoted text clipped - 26 lines]
>
>Thanks

Reply to this Message

Novice Lee - 31 Jul 2008 17:38 GMT

Which part do I change?

> try changing this part to be as below
>
[quoted text clipped - 33 lines]
> >
> >Thanks

Reply to this Message