I am in need of the macro that enables a user to go to the next available
cell in a particular row. I have seen the post on this site before but
cannot find it now i need it.

I'm not an advanced user but I use ctrl+ arrow key down to get to the last
cell in the column before a blank space. you can also use ctrl+arrow key
right for rows.

"Technoman" wrote:

I am in need of the macro that enables a user to go to the next available
cell in a particular row. I have seen the post on this site before but
cannot find it now i need it.

Hi,

If you need an instruction which would select the first empty cell after the
last non-empty cell in the column (e.g. column A) then you could try this:

With Worksheets("Sheet1")
.Cells(.Rows.Count, "A") _
.End(xlUp).Offset(1).Activate
End With


if you want the first empty cell in the column, no matter if between
existing data or not, then try this:

With Worksheets("Sheet1")
.Columns("A:A").Find( _
What:="", _
After:=.ActiveCell).Activate
End With

if you want the first empty cell in the column after the active cell, no
matter if between existing data or not, then try this:

With Worksheets("Sheet1")
.Columns("A:A").Find( _
What:="", _
After:=.Cells(1)).Activate
End With

Regards,
KL


"Technoman" wrote in message
...
I am in need of the macro that enables a user to go to the next available
cell in a particular row. I have seen the post on this site before but
cannot find it now i need it.

sorry, the last two instructions should be as follows:

With Worksheets("Sheet1").Columns("A:A")
.Find( _
What:="", _
After:=.Cells(ActiveCell.Row)).Activate
End With

With Worksheets("Sheet1").Columns("A:A")
.Find( _
What:="", _
After:=.Cells(1)).Activate
End With

Regards,
KL

"KL" wrote in message
...
Hi,

If you need an instruction which would select the first empty cell after
the last non-empty cell in the column (e.g. column A) then you could try
this:

With Worksheets("Sheet1")
.Cells(.Rows.Count, "A") _
.End(xlUp).Offset(1).Activate
End With


if you want the first empty cell in the column, no matter if between
existing data or not, then try this:

With Worksheets("Sheet1")
.Columns("A:A").Find( _
What:="", _
After:=.ActiveCell).Activate
End With

if you want the first empty cell in the column after the active cell, no
matter if between existing data or not, then try this:

With Worksheets("Sheet1")
.Columns("A:A").Find( _
What:="", _
After:=.Cells(1)).Activate
End With

Regards,
KL


"Technoman" wrote in message
...
I am in need of the macro that enables a user to go to the next available
cell in a particular row. I have seen the post on this site before but
cannot find it now i need it.

Range("A" & Cells(Rows.Count,"A").End(xlUp).Row+1)

gives that next free cell

--
HTH

Bob Phillips

"Technoman" wrote in message
...
I am in need of the macro that enables a user to go to the next available
cell in a particular row. I have seen the post on this site before but
cannot find it now i need it.

What if OP was in need of finding next empty column
in Row 5 where A5:G5 had values? OP needs cell H5.
tks,

"Bob Phillips" wrote in message
...
Range("A" & Cells(Rows.Count,"A").End(xlUp).Row+1)

gives that next free cell

--
HTH

Bob Phillips

"Technoman" wrote in message
...
I am in need of the macro that enables a user to go to the next available
cell in a particular row. I have seen the post on this site before but
cannot find it now i need it.

just change it to:

Cells(5, Cells(5, Columns.Count).End(xlToLeft).Column + 1).Select

Regards,
KL


"Jim May" wrote in message
news:5q7Ee.81568$Fv.50826@lakeread01...
What if OP was in need of finding next empty column
in Row 5 where A5:G5 had values? OP needs cell H5.
tks,

"Bob Phillips" wrote in message
...
Range("A" & Cells(Rows.Count,"A").End(xlUp).Row+1)

gives that next free cell

--
HTH

Bob Phillips

"Technoman" wrote in message
...
I am in need of the macro that enables a user to go to the next
available
cell in a particular row. I have seen the post on this site before but
cannot find it now i need it.

Cells(5, Cells(5, Columns.Count).End(xlToLeft).Column + 1).Select


--
HTH

Bob Phillips

"Jim May" wrote in message
news:5q7Ee.81568$Fv.50826@lakeread01...
What if OP was in need of finding next empty column
in Row 5 where A5:G5 had values? OP needs cell H5.
tks,

"Bob Phillips" wrote in message
...
Range("A" & Cells(Rows.Count,"A").End(xlUp).Row+1)

gives that next free cell

--
HTH

Bob Phillips

"Technoman" wrote in message
...
I am in need of the macro that enables a user to go to the next
available
cell in a particular row. I have seen the post on this site before but
cannot find it now i need it.

tks KL;
Is there still another way?
(knowing there are so many...)
just wanted to broaden my understanding.

"KL" wrote in message
...
just change it to:

Cells(5, Cells(5, Columns.Count).End(xlToLeft).Column + 1).Select

Regards,
KL


"Jim May" wrote in message
news:5q7Ee.81568$Fv.50826@lakeread01...
What if OP was in need of finding next empty column
in Row 5 where A5:G5 had values? OP needs cell H5.
tks,

"Bob Phillips" wrote in message
...
Range("A" & Cells(Rows.Count,"A").End(xlUp).Row+1)

gives that next free cell

--
HTH

Bob Phillips

"Technoman" wrote in message
...
I am in need of the macro that enables a user to go to the next
available
cell in a particular row. I have seen the post on this site before but
cannot find it now i need it.

Have u looked at my previous posts to this thread?

KL


"Jim May" wrote in message
news:B68Ee.81577$Fv.80161@lakeread01...
tks KL;
Is there still another way?
(knowing there are so many...)
just wanted to broaden my understanding.

"KL" wrote in message
...
just change it to:

Cells(5, Cells(5, Columns.Count).End(xlToLeft).Column + 1).Select

Regards,
KL


"Jim May" wrote in message
news:5q7Ee.81568$Fv.50826@lakeread01...
What if OP was in need of finding next empty column
in Row 5 where A5:G5 had values? OP needs cell H5.
tks,

"Bob Phillips" wrote in message
...
Range("A" & Cells(Rows.Count,"A").End(xlUp).Row+1)

gives that next free cell

--
HTH

Bob Phillips

"Technoman" wrote in message
...
I am in need of the macro that enables a user to go to the next
available
cell in a particular row. I have seen the post on this site before
but
cannot find it now i need it.

With slight modification i got this to work, many thanks to those that
replyed to my rallying call.

"KL" wrote:

sorry, the last two instructions should be as follows:

With Worksheets("Sheet1").Columns("A:A")
.Find( _
What:="", _
After:=.Cells(ActiveCell.Row)).Activate
End With

With Worksheets("Sheet1").Columns("A:A")
.Find( _
What:="", _
After:=.Cells(1)).Activate
End With

Regards,
KL

"KL" wrote in message
...
Hi,

If you need an instruction which would select the first empty cell after
the last non-empty cell in the column (e.g. column A) then you could try
this:

With Worksheets("Sheet1")
.Cells(.Rows.Count, "A") _
.End(xlUp).Offset(1).Activate
End With


if you want the first empty cell in the column, no matter if between
existing data or not, then try this:

With Worksheets("Sheet1")
.Columns("A:A").Find( _
What:="", _
After:=.ActiveCell).Activate
End With

if you want the first empty cell in the column after the active cell, no
matter if between existing data or not, then try this:

With Worksheets("Sheet1")
.Columns("A:A").Find( _
What:="", _
After:=.Cells(1)).Activate
End With

Regards,
KL


"Technoman" wrote in message
...
I am in need of the macro that enables a user to go to the next available
cell in a particular row. I have seen the post on this site before but
cannot find it now i need it.