Thread: Selecting a cell in a row just inserted in a range.

I'm trying to select a cell in column 2 of a row that is just inserted into a
range using a macro. After searching the group discussion, I found and
modified this script to actually insert the row. I now need to modify it to
select the cell (make it active) in column 2 of the row that was just
inserted. This macro is started with a button and the active cell could be
anywhere when the button is pressed.

Here's the code I'm starting with to insert a row:

Dim DGrng As Range
Set DGrng = Range("DG")
Set DGrng = DGrng.Rows(DGrng.Rows.Count)
Sheets("Preliminary Report").Unprotect
DGrng.EntireRow.Insert
Sheets("Preliminary Report").Protect


Thanks in Advance!

Try this. Be advised that it is almost always NOT necessary to select
anything.

Sub insertrowandgo()
Cells(Range("myrng").Rows.Count, 2).Select
Selection.EntireRow.Insert
End Sub

--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"Shannon" <Shannon@discussions.microsoft.com> wrote in message
news:C34520D8-0C62-4815-B7FC-34F75FC5D09C@microsoft.com...
> I'm trying to select a cell in column 2 of a row that is just inserted
> into a
> range using a macro. After searching the group discussion, I found and
> modified this script to actually insert the row. I now need to modify it
> to
> select the cell (make it active) in column 2 of the row that was just
> inserted. This macro is started with a button and the active cell could
> be
> anywhere when the button is pressed.
>
> Here's the code I'm starting with to insert a row:
>
> Dim DGrng As Range
> Set DGrng = Range("DG")
> Set DGrng = DGrng.Rows(DGrng.Rows.Count)
> Sheets("Preliminary Report").Unprotect
> DGrng.EntireRow.Insert
> Sheets("Preliminary Report").Protect
>
>
> Thanks in Advance!

Thanks Don,

I said "select", maybe needed to say "activate". Basically, I'm setting it
up so that information can be placed into the new row that comes from three
InputBoxes.

But... that's all moot now. I'm now getting an Error 1004 "Insert method of
Range class failed" on this code and another code that I haven't changed.

Don't know what happened; but something did. The code was working fine last
night.

"Don Guillett" wrote:

> Try this. Be advised that it is almost always NOT necessary to select
> anything.
>
> Sub insertrowandgo()
> Cells(Range("myrng").Rows.Count, 2).Select
> Selection.EntireRow.Insert
> End Sub
>
> --
> Don Guillett
> SalesAid Software
> dguillett1@austin.rr.com
> "Shannon" <Shannon@discussions.microsoft.com> wrote in message
> news:C34520D8-0C62-4815-B7FC-34F75FC5D09C@microsoft.com...
> > I'm trying to select a cell in column 2 of a row that is just inserted
> > into a
> > range using a macro. After searching the group discussion, I found and
> > modified this script to actually insert the row. I now need to modify it
> > to
> > select the cell (make it active) in column 2 of the row that was just
> > inserted. This macro is started with a button and the active cell could
> > be
> > anywhere when the button is pressed.
> >
> > Here's the code I'm starting with to insert a row:
> >
> > Dim DGrng As Range
> > Set DGrng = Range("DG")
> > Set DGrng = DGrng.Rows(DGrng.Rows.Count)
> > Sheets("Preliminary Report").Unprotect
> > DGrng.EntireRow.Insert
> > Sheets("Preliminary Report").Protect
> >
> >
> > Thanks in Advance!
>
>
>

Shannon says to hisself, "Doh! Unprotect the sheet moron!"

> But... that's all moot now. I'm now getting an Error 1004 "Insert method of
> Range class failed" on this code and another code that I haven't changed.
>
> Don't know what happened; but something did. The code was working fine last
> night.
>