| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why ? What is error 424 ?
Hi,
I get the following error ... "Object required (Error 424)" Its on the following line. LastCol = .Cells(RowCount.Columns.Count).End(xlToLeft).Colum n Sub test() NewRow = Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Row For Each Sht In Sheets If Sht.Name < "Summary" Then With Sht LastRow = .Range("A" & Rows.Count).End(xlUp).Row For RowCount = 1 To LastRow If .Range("A" & RowCount).Interior.ColorIndex = 15 Or _ .Range("A" & RowCount).Interior.ColorIndex = 15 Then LastCol = .Cells(RowCount.Columns.Count).End(xlToLeft).Colum n Sheets("Summary").Range("A" & NewRow) = .Name .Range(.Range("A" & RowCount), .Cells(RowCount, LastCol)).Copy _ Destination:=Sheets("Summary").Range("B" & NewRow) NewRow = NewRow + 1 End If Next RowCount End With End If Next Sht End Sub Thanks |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Why ? What is error 424 ?
LastCol = .Cells(RowCount,Columns.Count).End(xlToLeft).Colum n
in place of LastCol = .Cells(RowCount.Columns.Count).End(xlToLeft).Colum n -- Gary''s Student - gsnu200827 "manfareed" wrote: Hi, I get the following error ... "Object required (Error 424)" Its on the following line. LastCol = .Cells(RowCount.Columns.Count).End(xlToLeft).Colum n Sub test() NewRow = Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Row For Each Sht In Sheets If Sht.Name < "Summary" Then With Sht LastRow = .Range("A" & Rows.Count).End(xlUp).Row For RowCount = 1 To LastRow If .Range("A" & RowCount).Interior.ColorIndex = 15 Or _ .Range("A" & RowCount).Interior.ColorIndex = 15 Then LastCol = .Cells(RowCount.Columns.Count).End(xlToLeft).Colum n Sheets("Summary").Range("A" & NewRow) = .Name .Range(.Range("A" & RowCount), .Cells(RowCount, LastCol)).Copy _ Destination:=Sheets("Summary").Range("B" & NewRow) NewRow = NewRow + 1 End If Next RowCount End With End If Next Sht End Sub Thanks |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Why ? What is error 424 ?
Many Thanks ...
"Gary''s Student" wrote: LastCol = .Cells(RowCount,Columns.Count).End(xlToLeft).Colum n in place of LastCol = .Cells(RowCount.Columns.Count).End(xlToLeft).Colum n -- Gary''s Student - gsnu200827 "manfareed" wrote: Hi, I get the following error ... "Object required (Error 424)" Its on the following line. LastCol = .Cells(RowCount.Columns.Count).End(xlToLeft).Colum n Sub test() NewRow = Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Row For Each Sht In Sheets If Sht.Name < "Summary" Then With Sht LastRow = .Range("A" & Rows.Count).End(xlUp).Row For RowCount = 1 To LastRow If .Range("A" & RowCount).Interior.ColorIndex = 15 Or _ .Range("A" & RowCount).Interior.ColorIndex = 15 Then LastCol = .Cells(RowCount.Columns.Count).End(xlToLeft).Colum n Sheets("Summary").Range("A" & NewRow) = .Name .Range(.Range("A" & RowCount), .Cells(RowCount, LastCol)).Copy _ Destination:=Sheets("Summary").Range("B" & NewRow) NewRow = NewRow + 1 End If Next RowCount End With End If Next Sht End Sub Thanks |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Error when cell A1 is not active and xlInsideVertical border formatthrowing error 1004 | Excel Programming | |||
| Error handling error # 1004 Run-time error | Excel Programming | |||
| Error Handling - On Error GoTo doesn't trap error successfully | Excel Programming | |||
| Form Err.Raise error not trapped by entry procedure error handler | Excel Programming | |||
| Automation Error, Unknown Error. Error value - 440 | Excel Programming | |||
Linear Mode
