Finding Next Blank Cell

Hi,

Hopefully you can suggest how I can adabt my VBA Excel Sheet,

I have created a userform to input my work on and after i have entered
the details on the form i need it to enter it into my excel spreedsheet
at the next available blank cell, problem is as i have formulas in the
right hand side of the row it picks them up and counts the cell as not
being blank and trys to find the next one i just want it to ignore the
right hand row.

Here's what I'm using:

Worksheets("Sheet1").Activate
Range("A5").Select
If Range("A5").Value = " " Then
Range("A5").Activate
Else
Range("A5").CurrentRegion.Select
ActiveCell.Offset(Selection.Rows.Count, 0).Activate
End If

Any suggestion would be great as pulling my hair out.


---
Message posted from http://www.ExcelForum.com/

see response in programming.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"JaiD " wrote in message
...
Hi,

Hopefully you can suggest how I can adabt my VBA Excel Sheet,

I have created a userform to input my work on and after i have entered
the details on the form i need it to enter it into my excel spreedsheet
at the next available blank cell, problem is as i have formulas in the
right hand side of the row it picks them up and counts the cell as not
being blank and trys to find the next one i just want it to ignore the
right hand row.

Here's what I'm using:

Worksheets("Sheet1").Activate
Range("A5").Select
If Range("A5").Value = " " Then
Range("A5").Activate
Else
Range("A5").CurrentRegion.Select
ActiveCell.Offset(Selection.Rows.Count, 0).Activate
End If

Any suggestion would be great as pulling my hair out.


---
Message posted from http://www.ExcelForum.com/