12,295,294 members (58,388 online)
Rate this:
Please Sign up or sign in to vote.
See more:
i want to find the last empty row for a particular coulmn like A coulmn .

```sub abc()
iRow = wkb1.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
End Sub ```
as this is taking only first coulmn and providing me with Irow = 2 but there is data present on second B coulmn .

Please help ...
thanks
aksh619
Posted 25-Oct-12 21:12pm
aksh619297

## 2 solutions

Rate this:
Please Sign up or sign in to vote.

## Solution 1

Some suggested solutions here[^].
Comments
aksh619 26-Oct-12 8:14am

Thanks mate ..
Maciej Los 1-Nov-12 15:46pm

Answer is good, but examples are... ;)
Richard MacCutchan 1-Nov-12 20:53pm

What?
Rate this:
Please Sign up or sign in to vote.

## Solution 2

You can use function, like this:
```Function FirstEmptyRow(wsh As Worksheet, Optional sColName As String = "A") As Long
FirstEmptyRow = wsh.Range(sColName & wsh.Rows.Count).End(xlUp).Row + 1
End Sub```

Usage:
```Dim lFirstEmptyRow AS Long
'default column (A):
lFirstEmptyRow = FirstEmptyRow(ThisWorkbook.Worksheets("Sheet1"))
'or - custom column:
lFirstEmptyRow = FirstEmptyRow(ThisWorkbook.Worksheets(2), "B")
'or (using Activesheet object):
lFirstEmptyRow = FirstEmptyRow(Activesheet, "C")```

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Top Experts
Last 24hrsThis month
 OriginalGriff 360 Richard MacCutchan 305 Karthik Bangalore 254 Dave Kreskowiak 224 Peter Leow 138
 OriginalGriff 8,825 ppolymorphe 5,362 CHill60 5,260 Karthik Bangalore 4,726 Sergey Alexandrovich Kryukov 4,460

Advertise | Privacy | Mobile
Web02 | 2.8.160525.2 | Last Updated 1 Nov 2012
Copyright © CodeProject, 1999-2016
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100