Hi Karthik, 'Try the following code:-
Sub karthik()
Dim a, b As String
Range("a65536").Select
Selection.End(xlUp).Select
b = ActiveCell.Address
Range("a1").EntireColumn.Select
While ActiveCell.Address <> b
If ActiveCell.Value = "" Then
a = ActiveCell.Address
MsgBox ("next blank cell is " & a)
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
'Note:- Sample file is also attached with this email message.
'Thanks & Regards,
--
DILIP KUMAR PANDEY
MBA-HR,B COM(Hons.),BCA
Mobile: +91 9810929744
dilipan...@gmail.com
dilipan...@yahoo.com
New Delhi - 110062
On Thu, Jun 4, 2009 at 6:40 PM, grlinks-karthik <grli...@gmail.com> wrote:
> Dear All
>
> my data started in colomn "A" cell no 6 upto a50(Cell a1 to a5 is empty),
> using Vba I need to find the next empty cells address
> Could help me to find the next emty cell address through Vba in perticular
> coloumn
>
> Regards
> Grlinks
> www.grlinksindia.com
>
>
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
Karthik- Next Blank Cell.xls
Description: MS-Excel spreadsheet
