Thanks for the code... I am trying it out.... it all makes sense to me,
except "UCase" -- what is it? It's not a function... and when I run this
code , nothing happens -- can you explain a little more? Sorry, but I am a
novice...
On Wed, May 12, 2010 at 6:55 PM, siti Vi <villager.g...@gmail.com> wrote:
> Sub Bla_Bla_Bla()
> Dim MyRng As Range, n As Long
> Set MyRng = ActiveSheet.UsedRange
>
> For n = MyRng.Rows.Count To 1 Step -1
> If UCase(Left(Trim(MyRng(n, 1)), 5)) = "TOTAL" _
> Then MyRng(n + 1, 1).EntireRow.Insert
> Next
>
> End Sub
>
> NOTE:
> to insert a row you have to say the range object first:
> RangeObject.EntireRow.Insert
>
>
>
> On May 12, 10:38 pm, John in Huntington Beach <johnw...@gmail.com>
> wrote:
> > Hello,
> > I have data that contains certain text strings ("Total" followed by
> > other text) repeated in column A. When my progam finds this text
> > string, I want it to insert a blank row below the row that contains
> > the text.
> > My macro looks like this:
> >
> > Set CELLToCHECK = FirstCellR /comment - FirstCellR is in column A
> > I = 0
> > Do Until I = LastRowL
> > CELLToCHECK = CELLToCHECK.Offset(I, 0)
> > MsgBox "CELLToCHECK VALUE = " & CELLToCHECK.Value
> > If CELLToCHECK.Value = "Total" & "*" Then
> > MsgBox "Here's one =" & CELLToCHECK.Address(False, False)
> > Insert.Row
> > End If
> > I = I + 1
> > Loop
> >
> > This is not working.... any suggestions? thanks in advance
> >
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> HELP US GROW !!
>
> We reach over 6,800 subscribers worldwide and receive many nice notes about
> the learning and support from the group.Let friends and co-workers know they
> can subscribe to group at
> http://groups.google.com/group/excel-macros/subscribe
>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
