Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
run time error 1004 general odbc error excel 2003 vba | Excel Programming | |||
Urgent!!! Run-time error '-2147024770 (8007007e)' Automation error | Excel Programming | |||
Error handling error # 1004 Run-time error | Excel Programming | |||
run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
Code Error - Run Time Error 5 (Disable Cut, Copy & Paste) | Excel Programming |