|
|||||||||
|
|||||||||
| |||||||||
|
|||||||||
|
|||||||||
| |||||||||
|
|
|
| |||||||||
 |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
Dev Shed Forums Sponsor:
|
|
You don't need a fax machine to get faxes. Get a fax-to-email fax number from CallWave. Try it free.
|
|
#1
May 7th, 2003, 10:32 PM
|
|||
|
|||
EndRow Function in Excel
I am trying to define EndRow in an Excel recordset in some code I'm writing.
My definition of EndRow is currently: iEndRow = Range("A:A").End(xlDown).Row The excel recordset contains multiple blank rows (distributed through the dataset) and so iEndRow does not describe the last row containing data. It describes the last row of data before the first of the blank rows. Does anybody know how I can define the EndRow of my dataset that contains blank rows. Please Help. Suzanne
|
|
#2
May 13th, 2003, 07:41 PM
|
|||
|
|||
|
Do the reverse, instead of going down, go up from the bottom of the worksheet. See code below
Code:
Dim Lastrn 'declare variable to store last range
Set Lastrn = Worksheets("Sheet1").Range("a65536").End(xlUp)
'now get the row number, add 1 to it because Lastrn is the last
'row with data in it, this gives the first blank cell after the data
Dim LastRowNumber
LastRowNumber = Lastrn.Row + 1
Hope this helps 
__________________
How can I soar like an eagle when I'm flying with turkey's?
|
|
| Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > EndRow Function in Excel |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
|
 |
|
|
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
