Groups > microsoft.public.excel.programming > #109675

Re: Insert 5 Row if a Certain Value in Column A Q

Path	csiph.com!weretis.net!feeder6.news.weretis.net!news.glorb.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!buffer1.nntp.dca1.giganews.com!nntp.newsgroupbanter.com!news.newsgroupbanter.com.POSTED!not-for-mail
NNTP-Posting-Date	Thu, 24 Nov 2016 19:49:03 -0600
From	Tvlebung396 <Tblebsng105@gmail.com>
Newsgroups	microsoft.public.excel.programming
Subject	Re: Insert 5 Row if a Certain Value in Column A Q
Date	Fri, 25 Nov 2016 01:03:28 +0000
Message-ID	<Tvlebung396.127d4e08@excelbanter.com> (permalink)
Organization	ExcelBanter.com
User-Agent
X-Newsreader
X-Originating-IP
References	<85aeb851-dd87-4609-8e59-8370239ef907@googlegroups.com>
X-No-Archive	Yes
Lines	21
X-Usenet-Provider	http://www.giganews.com
X-Trace	sv3-Wz3WmaZ70bXwtK/Nq92VR6zBkOMd5aC+0OyeuA5QxD+1mAIhDzaPVZEDstC1i5b/7aTOKL3EWTtR2Tn!ipIUCzupy5bujqoMkiA+bpKvQnVnRKOwTIM6YznxbxQXKVqk6CmmEnfdKGJIcxAUINbdO8Kd83x5!TuylRkCbvJcsrQ==
X-Complaints-To	abuse@newsgroupbanter.com
X-Abuse-and-DMCA-Info	Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info	Otherwise we will be unable to process your complaint properly
X-Postfilter	1.3.40
X-Original-Lines	1
X-Original-Bytes	2100
X-Received-Bytes	2213
X-Received-Body-CRC	1698424901
Xref	csiph.com microsoft.public.excel.programming:109675

Show key headers only | View raw

seanryanie@yahoo.co.uk;1627299 Wrote: 
> I want to insert 5 blank rows, above the first time 10000 appears in
> Column A Then Subtotal Column E &amp; F (from Row 9 down) on the 2nd Row
> of the inserted rows, to finish this line off add a Top border to both
> cells Finally a simple E-F formula on this Row in Column H I've found
> code below, but this inserts a row on each &quot;10000&quot; that
> appears in Column A (there are multiple rows showing 10000, I just want
> the first one) Sub BlankLine() Dim Col As Variant Dim BlankRows As Long
> Dim LastRow As Long Dim R As Long Dim StartRow As Long Col =
> &quot;A&quot; StartRow = 1 BlankRows = 1 LastRow = Cells(Rows.Count,
> Col).End(xlUp).Row Application.ScreenUpdating = False With ActiveSheet
> For R = LastRow To StartRow + 1 Step -1 If .Cells(R, Col) =
> &quot;10000&quot; Then ..Cells(R, Col).EntireRow.Insert Shift:=xlDown
> End If Next R End With Application.ScreenUpdating = True End Sub I'd always want to be update on new posts on this internet site, saved
to bookmarks!




-- 
Tvlebung396

Thread

Insert 5 Row if a Certain Value in Column A Q seanryanie@yahoo.co.uk - 2016-11-24 12:01 -0800
  Re: Insert 5 Row if a Certain Value in Column A Q Tvlebung396 <Tblebsng105@gmail.com> - 2016-11-25 01:03 +0000
  Re: Insert 5 Row if a Certain Value in Column A Q isabelle <i@v.invalid> - 2016-11-25 01:10 -0500
    Re: Insert 5 Row if a Certain Value in Column A Q Claus Busch <claus_busch@t-online.de> - 2016-11-25 07:29 +0100
      Re: Insert 5 Row if a Certain Value in Column A Q seanryanie@yahoo.co.uk - 2016-11-25 12:23 -0800
  Re: Insert 5 Row if a Certain Value in Column A Q aloinam109 <aloinam109@gmail.com> - 2016-11-26 17:03 +0000
  Re: Insert 5 Row if a Certain Value in Column A Q PhunuSEO <PhunuSEO@gmail.com> - 2016-11-27 03:56 +0000
  Re: Insert 5 Row if a Certain Value in Column A Q aloinam109 <aloinam109@gmail.com> - 2016-11-28 03:03 +0000
  Re: Insert 5 Row if a Certain Value in Column A Q aloinam109 <aloinam109@gmail.com> - 2016-11-28 05:03 +0000
  Re: Insert 5 Row if a Certain Value in Column A Q aloinam109 <aloinam109@gmail.com> - 2016-11-28 09:04 +0000
  Re: Insert 5 Row if a Certain Value in Column A Q aloinam109 <aloinam109@gmail.com> - 2016-11-28 16:05 +0000
  Re: Insert 5 Row if a Certain Value in Column A Q anhquan112016 <anhquan112016@gmail.com> - 2016-11-29 01:44 +0000
  Re: Insert 5 Row if a Certain Value in Column A Q Tvlebung396 <Tblebsng105@gmail.com> - 2016-11-29 05:50 +0000

csiph-web