Insert Row macro not working

a cursory look suggests you need to change 1 to l

--
Don Guillett
SalesAid Software
donaldb@281.com
"Acct Supr - DCTC" <AcctSuprDCTC@discussions.microsoft.com> wrote in message
news:DBCFD776-87BF-4CC0-A0C0-D0FA4170D6C9@microsoft.com...
> I have the following macro set up but it keeps hanging up on the first
> indented line.
>
> Sub Insertrow()
> '
> ' Insertrow Macro
> ' Macro recorded 10/6/2005 by DCTC
> '
> ' Keyboard Shortcut: Ctrl+i
> '
> Dim iLastRow As Long
> Dim i As Long
> iLastRow = ActiveSheet.Cells(Rows.Count, "F").End(x1Up).Row
> For i = iLastRow To 1 Step -1
> If Cells(i, "F").Value = "Total" Then
> Rows(i + 1).EntireRow.Insert
> End If
> Next i
> End Sub

Try using

iLastRow = Range("F1").End(xlDown).Row

rather than

iLastRow = ActiveSheet.Cells(Rows.Count, "F").End(x1Up).Row

Best rgds
Chris Lav


"Don Guillett" <donaldb@281.com> wrote in message
news:uUZRfIsyFHA.2652@TK2MSFTNGP14.phx.gbl...
> a cursory look suggests you need to change 1 to l
>
> --
> Don Guillett
> SalesAid Software
> donaldb@281.com
> "Acct Supr - DCTC" <AcctSuprDCTC@discussions.microsoft.com> wrote in
message
> news:DBCFD776-87BF-4CC0-A0C0-D0FA4170D6C9@microsoft.com...
> > I have the following macro set up but it keeps hanging up on the first
> > indented line.
> >
> > Sub Insertrow()
> > '
> > ' Insertrow Macro
> > ' Macro recorded 10/6/2005 by DCTC
> > '
> > ' Keyboard Shortcut: Ctrl+i
> > '
> > Dim iLastRow As Long
> > Dim i As Long
> > iLastRow = ActiveSheet.Cells(Rows.Count, "F").End(x1Up).Row
> > For i = iLastRow To 1 Step -1
> > If Cells(i, "F").Value = "Total" Then
> > Rows(i + 1).EntireRow.Insert
> > End If
> > Next i
> > End Sub
>
>

Hi Chris,
The poster is much better off correcting the original as Don indicated
but the poster might still not see right away that it was an x1 prefix
incorrectly used as an xl prefix to a builtin constant. Took me a while
to get that right when seeing posted solutions and help files.

The reason the orginal is better is because it starts from the
bottom of the column and looks for the first nonempty cell to
find your last used in the column.

The reason the second one is bad is because it starts from
the top and finds the first empty cell -- you could easily have
an empty cell in a column including from having an empty row
to separate data or to provide for filling in data later.

Of possible interest
http://www.mvps.org/dmcritchie/excel/insrtrow.htm
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Chris Lavender" <chris@lavvy.freeserve.co.uk> wrote in message news:di49hp$7le$1@newsg1.svr.pol.co.uk...
> Try using
>
> iLastRow = Range("F1").End(xlDown).Row
>
> rather than
>
> iLastRow = ActiveSheet.Cells(Rows.Count, "F").End(x1Up).Row
>
> Best rgds
> Chris Lav
>
>
> "Don Guillett" <donaldb@281.com> wrote in message
> news:uUZRfIsyFHA.2652@TK2MSFTNGP14.phx.gbl...
> > a cursory look suggests you need to change 1 to l
> >
> > --
> > Don Guillett
> > SalesAid Software
> > donaldb@281.com
> > "Acct Supr - DCTC" <AcctSuprDCTC@discussions.microsoft.com> wrote in
> message
> > news:DBCFD776-87BF-4CC0-A0C0-D0FA4170D6C9@microsoft.com...
> > > I have the following macro set up but it keeps hanging up on the first
> > > indented line.
> > >
> > > Sub Insertrow()
> > > '
> > > ' Insertrow Macro
> > > ' Macro recorded 10/6/2005 by DCTC
> > > '
> > > ' Keyboard Shortcut: Ctrl+i
> > > '
> > > Dim iLastRow As Long
> > > Dim i As Long
> > > iLastRow = ActiveSheet.Cells(Rows.Count, "F").End(x1Up).Row
> > > For i = iLastRow To 1 Step -1
> > > If Cells(i, "F").Value = "Total" Then
> > > Rows(i + 1).EntireRow.Insert
> > > End If
> > > Next i
> > > End Sub
> >
> >
>
>