Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help: Need refresher of some basic programming code
1. What's the code to find the last row in a Column (Field) that has data,
even if there are blank rows in-between? 2. Code to find last row on Sheet that has data, even if there are blank rows in-between on Sheet? Thank you |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need refresher of some basic programming code
Have a look at the following code. It should get you going.
"Chirs" wrote in message ... 1. What's the code to find the last row in a Column (Field) that has data, even if there are blank rows in-between? 2. Code to find last row on Sheet that has data, even if there are blank rows in-between on Sheet? Thank you |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need refresher of some basic programming code
Forgot to paste the code.
Sub LastCell() Dim R As Range Dim WS As Worksheet Set WS = ActiveSheet Set R = WS.Cells.Find(what:="*", after:=WS.Cells(WS.Cells.Count)) If R Is Nothing Then Debug.Print "R Is Nothing (Blank WS)" Else Debug.Print "Last Cell: " & R.Address End If End Sub Sub LastRowOfColumn() Dim R As Range Dim WS As Worksheet Const COL_LETTER = "F" Set WS = ActiveSheet With WS Set R = .Cells(.Rows.Count, COL_LETTER).End(xlUp) End With If (R.Row = 1) And (R.Value = vbNullString) Then Debug.Print "Blank column" Else Debug.Print "Last Used Row In Column " & COL_LETTER & ": " & R.Row End If End Sub -- Cordially, Chip Pearson Microsoft MVP - Excel, 10 Years Pearson Software Consulting www.cpearson.com (email on the web site) "Chirs" wrote in message ... 1. What's the code to find the last row in a Column (Field) that has data, even if there are blank rows in-between? 2. Code to find last row on Sheet that has data, even if there are blank rows in-between on Sheet? Thank you |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help: Need refresher of some basic programming code
Sub chris()
Dim n As Long n = Cells(Rows.Count, "A").End(xlUp).Row MsgBox (n) End Sub for the last row with data in column A -- Gary''s Student - gsnu200749 "Chirs" wrote: 1. What's the code to find the last row in a Column (Field) that has data, even if there are blank rows in-between? 2. Code to find last row on Sheet that has data, even if there are blank rows in-between on Sheet? Thank you |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help: Need refresher of some basic programming code
For column A:
lastRow = Cells(Rows.Count, 1).End(xlUp).Row For sheet: sLastRow = ActiveSheet.UsedRange.Rows.Count There are a few others. "Chirs" wrote: 1. What's the code to find the last row in a Column (Field) that has data, even if there are blank rows in-between? 2. Code to find last row on Sheet that has data, even if there are blank rows in-between on Sheet? Thank you |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help: Need refresher of some basic programming code
On Oct 12, 10:25 am, Chirs wrote:
1. What's the code to find the last row in a Column (Field) that has data, even if there are blank rows in-between? 2. Code to find last row on Sheet that has data, even if there are blank rows in-between on Sheet? Thank you Hello Chris, To find the last row of a column "A"... With ActivveSheet LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row End With To find the last row with data on a sheet... LastRow = ActiveSheet.UsedRange.Row Sincerely, Leith Ross |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help: Need refresher of some basic programming code
For your second question:
Sub ordinate() Dim n As Long, m As Long m = 0 For i = 1 To Columns.Count n = Cells(Rows.Count, i).End(xlUp).Row If n m Then m = n Next MsgBox (m) End Sub unless you have a strong belief in the accuracy of ActiveSheet.UsedRange -- Gary''s Student - gsnu200749 "Chirs" wrote: 1. What's the code to find the last row in a Column (Field) that has data, even if there are blank rows in-between? 2. Code to find last row on Sheet that has data, even if there are blank rows in-between on Sheet? Thank you |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need refresher of some basic programming code
Errata:
Set R = WS.Cells.Find(what:="*", after:=WS.Cells(WS.Cells.Count)) should be Set R = WS.Cells.Find(what:="*", after:=WS.Cells(WS.Cells.Count), searchdirection:=xlPrevious) -- Cordially, Chip Pearson Microsoft MVP - Excel, 10 Years Pearson Software Consulting www.cpearson.com (email on the web site) "Chip Pearson" wrote in message ... Forgot to paste the code. Sub LastCell() Dim R As Range Dim WS As Worksheet Set WS = ActiveSheet Set R = WS.Cells.Find(what:="*", after:=WS.Cells(WS.Cells.Count)) If R Is Nothing Then Debug.Print "R Is Nothing (Blank WS)" Else Debug.Print "Last Cell: " & R.Address End If End Sub Sub LastRowOfColumn() Dim R As Range Dim WS As Worksheet Const COL_LETTER = "F" Set WS = ActiveSheet With WS Set R = .Cells(.Rows.Count, COL_LETTER).End(xlUp) End With If (R.Row = 1) And (R.Value = vbNullString) Then Debug.Print "Blank column" Else Debug.Print "Last Used Row In Column " & COL_LETTER & ": " & R.Row End If End Sub -- Cordially, Chip Pearson Microsoft MVP - Excel, 10 Years Pearson Software Consulting www.cpearson.com (email on the web site) "Chirs" wrote in message ... 1. What's the code to find the last row in a Column (Field) that has data, even if there are blank rows in-between? 2. Code to find last row on Sheet that has data, even if there are blank rows in-between on Sheet? Thank you |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
basic VBA programming | Excel Programming | |||
basic VBA programming | Excel Programming | |||
basic VBA programming | Excel Programming | |||
Basic programming help | Excel Programming | |||
v.basic misc programming ? | Excel Programming |