Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Is there a better way to do this?
Function LastRowOfData(oWs As Worksheet, Column As String) As Long Dim currWs As Worksheet Set currWs = ActiveSheet oWs.Activate Range(Column & "65536").End(xlUp).Select Dim oCell As Range Set oCell = ActiveCell LastRowOfData = oCell.row currWs.Activate End Function it works but looks like a terrible way to find that info to me? thanks mark |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Maddening Dilemma - Compare each cell within column a to each cell in column b and find unique matches | Excel Worksheet Functions | |||
Sum Cell Values of one column based on Another Cell Value in a different column | Excel Worksheet Functions | |||
How to Check cell column A and add 1 to cell of column D by using Macro | Excel Programming | |||
compare cells in column to criteria, then average next column cell | Excel Worksheet Functions | |||
Format cell in column B based on value in the next cell (column c) | Excel Discussion (Misc queries) |