ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Run time error (https://www.excelbanter.com/excel-programming/414923-run-time-error.html)

Novice Lee
Run time error
 
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

Rick Rothstein \(MVP - VB\)[_2439_]
Run time error
 
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


"Novice Lee" wrote in message
...
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


dustinbrearton via OfficeKB.com
Run time error
 
try changing this part to be as below


Rows(Sh1RowCount).Copy
Selection.Copy

Should work. Post back if you have problems.

Novice Lee wrote:
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

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200807/1

Novice Lee
Run time error
 
I got rid of the apostrophe after I relized it was there. I have each
Sh*rowcount=2

"Rick Rothstein (MVP - VB)" wrote:

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


"Novice Lee" wrote in message
...
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



Rick Rothstein \(MVP - VB\)[_2443_]
Run time error
 
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


"Novice Lee" wrote in message
...
I got rid of the apostrophe after I relized it was there. I have each
Sh*rowcount=2

"Rick Rothstein (MVP - VB)" wrote:

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


"Novice Lee" wrote in message
...
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

Novice Lee
Run time error
 
Which part do I change?

"dustinbrearton via OfficeKB.com" wrote:

try changing this part to be as below


Rows(Sh1RowCount).Copy
Selection.Copy

Should work. Post back if you have problems.

Novice Lee wrote:
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

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200807/1


All times are GMT +1. The time now is 02:43 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com