Moving to next cell if current cell is not empty

[delboy74]

This seems like a really simple thing to do, but I can't seem to do it without specifying an exact cell to move to.

Basically, I am creating a form to collect data and store it on an excel sheet. Each time the user presses the "continue" button on the form, it should go to a new row in the sheet storing the data, and input the new row of info. I can't work out how to get it to check for the next available row and then move to it to store the data.

Sorry if this sounds long winded, but your help would be appreciated.

Regards,
Del

[stevebausch]

It's hard to give much specific advice, since you didn't give much specific behavior.


There is a Next property for Range, so you could do something like these:

activecell.next.Select

cells(Activecell.Row+1,1).select

Open an Immediate window in VBA editor and see if either of this fit your needs.

[Ivan F Moala]

On 2002-05-12 07:22, delboy74 wrote:
This seems like a really simple thing to do, but I can't seem to do it without specifying an exact cell to move to.

Basically, I am creating a form to collect data and store it on an excel sheet. Each time the user presses the "continue" button on the form, it should go to a new row in the sheet storing the data, and input the new row of info. I can't work out how to get it to check for the next available row and then move to it to store the data.

Sorry if this sounds long winded, but your help would be appreciated.

Regards,
Del

Hi Del, If I understand you correctly then
you have data basically like;

Microsoft Excel - Book2_______________Running: xl2000 : OS = Windows (32-bit) 4.10
(F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp
A1		=	Data1
*	A	B	C	D	E
1	Data1	Data2	Data3	Data4	Data5
2	Criteria1	Info1	Blah1	Test1	Trend1
3	Criteria2	Info2	Blah2	Test2	Trend2
4	Criteria3	Info3	Blah3	Test3	Trend3
5	Criteria4	Info4	Blah4	Test4	Trend4
6	Criteria5	Info5	Blah5	Test5	Trend5
7	Criteria6	Info6	Blah6	Test6	Trend6
8	Criteria7	Info7	Blah7	Test7	Trend7
9	Criteria8	Info8	Blah8	Test8	Trend8
10	Criteria9	Info9	Blah9	Test9	Trend9
11	Criteria10	Info10	Blah10	Test10	Trend10
12	Criteria11	Info11	Blah11	Test11	Trend11
13	Criteria12	Info12	Blah12	Test12	Trend12
14	*	<< Next Row	*	*	*
Sheet1

To see the formula in the cells just click on the cells hyperlink

The above image was automatically generated by [HtmlMaker V1.20]
If you want this code, click here and Colo will email the file to you.
This code was graciously allowed to be modified: by Ivan F Moala All credit to Colo


In order to get the Last row assuming
1) Data starts in Column A as above
2) Data is continuous

Then something like this will give you the
Next blank row to input data into.

Dim dNxtRow As Long



dNxtRow = Cells(Rows.Count, 1).End(xlUp).Row + 1

Cells(dNxtRow, 1) = "Your Data"

_________________
Kind Regards,
Ivan F Moala

Have a Nice day

[ This Message was edited by: Ivan F Moala on 2002-05-12 11:25 ]

[delboy74]

Thats great Ivan, thanks. Problem solved.