| Home |
| Search |
| Today's Posts |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro not consistant
Almost, but not quite right...
-- Regards, Luc. "Festina Lente" "Don Guillett" wrote: one liner MsgBox Cells.Find("*", Range("A1"), xlFormulas, xlPart, xlByRows, xlPrevious).Address -- Don Guillett SalesAid Software "Don Guillett" wrote in message news:... Maybe your last column is not the column with the last row? -- Don Guillett SalesAid Software "grok" wrote in message ... I'm using these statements in some macros: lc = Cells(1, Columns.Count).End(xlToLeft).Column lr = Cells(Rows.Count, lc).End(xlUp).Row Range(Cells(1, 1), Cells(lr, lc)).Select Most of the time they work but some of the time they do not select all the rows leaving out one or two. Anyone know why? |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Macro not consistant
Just re-tested. Perhaps you have formatting or empty formulas
-- Don Guillett SalesAid Software "PapaDos" wrote in message ... Almost, but not quite right... -- Regards, Luc. "Festina Lente" "Don Guillett" wrote: one liner MsgBox Cells.Find("*", Range("A1"), xlFormulas, xlPart, xlByRows, xlPrevious).Address -- Don Guillett SalesAid Software "Don Guillett" wrote in message news:... Maybe your last column is not the column with the last row? -- Don Guillett SalesAid Software "grok" wrote in message ... I'm using these statements in some macros: lc = Cells(1, Columns.Count).End(xlToLeft).Column lr = Cells(Rows.Count, lc).End(xlUp).Row Range(Cells(1, 1), Cells(lr, lc)).Select Most of the time they work but some of the time they do not select all the rows leaving out one or two. Anyone know why? |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Macro not consistant
Let's say there is some data in A1, A2, A3, B1, B2.
Your formula will return A3, the original poster requirement is to return B3... -- Regards, Luc. "Festina Lente" "Don Guillett" wrote: Just re-tested. Perhaps you have formatting or empty formulas -- Don Guillett SalesAid Software "PapaDos" wrote in message ... Almost, but not quite right... -- Regards, Luc. "Festina Lente" "Don Guillett" wrote: one liner MsgBox Cells.Find("*", Range("A1"), xlFormulas, xlPart, xlByRows, xlPrevious).Address -- Don Guillett SalesAid Software "Don Guillett" wrote in message news:... Maybe your last column is not the column with the last row? -- Don Guillett SalesAid Software "grok" wrote in message ... I'm using these statements in some macros: lc = Cells(1, Columns.Count).End(xlToLeft).Column lr = Cells(Rows.Count, lc).End(xlUp).Row Range(Cells(1, 1), Cells(lr, lc)).Select Most of the time they work but some of the time they do not select all the rows leaving out one or two. Anyone know why? |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Macro not consistant
I thought the object was to find the last cell in the worksheet. This will do the other. Sub lastdata() myLastCol = _ Cells.Find("*", After:=Cells(1), _ LookIn:=xlFormulas, LookAt:=xlWhole, _ SearchDirection:=xlPrevious, _ SearchOrder:=xlByColumns).Column MsgBox myLastCol mylastrow = _ Cells.Find("*", After:=Cells(1), _ LookIn:=xlFormulas, LookAt:=xlWhole, _ SearchDirection:=xlPrevious, _ SearchOrder:=xlByRows).Row MsgBox mylastrow MsgBox Cells(mylastrow, myLastCol).Address End Sub -- Don Guillett SalesAid Software "PapaDos" wrote in message ... Let's say there is some data in A1, A2, A3, B1, B2. Your formula will return A3, the original poster requirement is to return B3... -- Regards, Luc. "Festina Lente" "Don Guillett" wrote: Just re-tested. Perhaps you have formatting or empty formulas -- Don Guillett SalesAid Software "PapaDos" wrote in message ... Almost, but not quite right... -- Regards, Luc. "Festina Lente" "Don Guillett" wrote: one liner MsgBox Cells.Find("*", Range("A1"), xlFormulas, xlPart, xlByRows, xlPrevious).Address -- Don Guillett SalesAid Software "Don Guillett" wrote in message news:... Maybe your last column is not the column with the last row? -- Don Guillett SalesAid Software "grok" wrote in message ... I'm using these statements in some macros: lc = Cells(1, Columns.Count).End(xlToLeft).Column lr = Cells(Rows.Count, lc).End(xlUp).Row Range(Cells(1, 1), Cells(lr, lc)).Select Most of the time they work but some of the time they do not select all the rows leaving out one or two. Anyone know why? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| error when running cut & paste macro | Excel Worksheet Functions | |||
| Compiling macro based on cell values | Excel Discussion (Misc queries) | |||
| Search, Copy, Paste Macro in Excel | Excel Worksheet Functions | |||
| Closing File Error | Excel Discussion (Misc queries) | |||
| Highlight Range - wrong macro, please edit. | Excel Worksheet Functions | |||
Linear Mode
