macro tutorials finding last empty row in vba for particular column like A

Question

0.00/5 (No votes)

See more:

i want to find the last empty row for a particular coulmn like A coulmn .

VB

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

aksh619

Add a Solution

2 solutions

Solution 2

You can use function, like this:

VB

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:

VB

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")

Posted 1-Nov-12 9:44am

Maciej Los

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

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

Richard MacCutchan · Accepted Answer · 2012-10-26T02:01:00

Solution 1

Some suggested solutions here[^].

Posted 26-Oct-12 2:01am

Richard MacCutchan

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?