Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 73
Default Insert 5 Row if a Certain Value in Column A Q

I want to insert 5 blank rows, above the first time 10000 appears in Column A

Then Subtotal Column E & 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 "10000" 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 = "A"
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) = "10000" Then
..Cells(R, Col).EntireRow.Insert Shift:=xlDown
End If
Next R
End With
Application.ScreenUpdating = True

End Sub
  #2   Report Post  
Banned
 
Posts: 5
Default

Quote:
Originally Posted by View Post
I want to insert 5 blank rows, above the first time 10000 appears in Column A Then Subtotal Column E & 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 "10000" 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 = "A" 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) = "10000" 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!
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 99
Default Insert 5 Row if a Certain Value in Column A Q

Hi,

MyValue = 10000
x = Application.Match(MyValue, Range("A:A"), 0)
Rows(x & ":" & x + 4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

isabelle

Le 2016-11-24 Ã* 15:01, a écrit :
I want to insert 5 blank rows, above the first time 10000 appears in Column A

  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3,872
Default Insert 5 Row if a Certain Value in Column A Q

Hi Isabelle, hi Sean,

Am Fri, 25 Nov 2016 01:10:38 -0500 schrieb isabelle:

Rows(x & ":" & x + 4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove


Rows(x).Resize(5).Insert


Regards
Claus B.
--
Windows10
Office 2016
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 73
Default Insert 5 Row if a Certain Value in Column A Q

Bingo! Thanks all, worked a treat

Any guidance on the Sum Totals in E&F?

Sub InsertBlankLines()

Sheets("YTD").Select

MyValue = 10000
x = Application.Match(MyValue, Range("A:A"), 0)
Rows(x).Resize(5).Insert

End Sub



  #6   Report Post  
Banned
 
Posts: 9
Default

Website batdongsanquangninh.vn lÃ* website hÃ*ng đầu vá» quảng cáo, mua bán bất Ä‘á»™ng sản tại Quảng Ninh, chÃ*nh thức Ä‘Æ°Æ¡c thÃ*nh láº*p vÃ*o năm 2012. LÄ©nh vá»±c hoạt Ä‘á»™ng chÃ*nh của công ty lÃ* quảng cáo, tÆ° vấn, môi giá»›i, mua bán, cho thuê bất Ä‘á»™ng sản.

Trải qua nhiều năm hoạt Ä‘á»™ng chúng tôi đã ná»— lá»±c vượt qua má»i khó khăn để dần từng bÆ°á»›c thay đổi được phÆ°Æ¡ng thức quảng cáo vÃ* mua bán truyá»n thống của ngÆ°á»i dân thÃ*nh phố giúp cho NgÆ°á»i bán vÃ* NgÆ°á»i mua rá»… dÃ*ng thá»±c hiện các giao dịch mua bán nhÃ*, đất má»™t cách minh bạch, nhanh chóng. Rút kinh nghiệm qua việc hoaÌ£t động nhiều năm vaÌ€ tÆ°Ì€ những ý kiến đóng góp của quý khách, trong thá»i gian tá»›i chúng tôi sẽ ná»— lá»±c hÆ¡n nÆ°a nhằm phát triển Website có thêm những tÃ*nh năng Æ°u việt, quảng bá rá»™ng khắp hÆ¡n nữa giúp cho các giao dịch được tiến hÃ*nh má»™t cách nhanh chóng.

Ra Ä‘á»i xuất phát từ trải nghiệm thá»±c tế của chÃ*nh ngÆ°á»i sáng láº*p ra Công ty vá»›i mong muốn giúp cho cá»™ng đồng có được thông tin minh bạch mang lại giá trị lợi Ã*ch tốt nhất cho khách hÃ*ng. Äây chÃ*nh lÃ* cÆ¡ sở ná»n tảng để công ty xây dá»±ng phÆ°Æ¡ng châm kinh doanh vá»›i mong muốn mang đến sá»± chuyên nghiệp, uy tÃ*n, niá»m tin cho khách hÃ*ng.

Các dịch vụ chÃ*nh:

- Äăng tin quảng cáo mua bán nhÃ* đất
- Äăng banner quảng cáo
- Äăng bÃ*i PR quảng bá sản phẩm, dịch vụ bất Ä‘á»™ng sản
- Tư vấn, mua bán bất động sản
- Môi giới bất động sản
- ban nha quảng ninh
- NhÃ* đất hạ long
- NhÃ* đất quang ninh
- ban nha ha long
Má»i thông tin đóng góp, quý khách vui lòng liên hệ

Äịa chỉ : Nguyá»…n Văn Cừ - Hạ Long - Quảng NinhÄiện thoại : 0984.690.188Email :
  #7   Report Post  
Junior Member
 
Posts: 9
Default

Không giống các bệnh lý khác vá» vùng đầu cổ, bệnh ung thÆ° vòm há»ng thÆ°á»ng rất khó phát hiện sá»›m. Cá»™ng thêm tâm lý chủ quan của ngÆ°á»i bệnh, vì thế căn bệnh thÆ°á»ng qua mắt được rất nhiá»u ngÆ°á»i, tiến triển má»™t cách âm thầm, hầu nhÆ° không biểu hiện triệu chứng gì đáng kể, chỉ đến khi giai Ä‘oạn cuối má»›i phát tác mạnh mẽ.

Má»i các bạn xem video để hiểu hÆ¡n vá» căn bệnh Ung thÆ° vòm há»ng
  #8   Report Post  
Banned
 
Posts: 9
Default

Website batdongsanquangninh.vn lÃ* website hÃ*ng đầu vá» quảng cáo, mua bán bất Ä‘á»™ng sản tại Quảng Ninh, chÃ*nh thức Ä‘Æ°Æ¡c thÃ*nh láº*p vÃ*o năm 2012. LÄ©nh vá»±c hoạt Ä‘á»™ng chÃ*nh của công ty lÃ* quảng cáo, tÆ° vấn, môi giá»›i, mua bán, cho thuê bất Ä‘á»™ng sản.

Trải qua nhiều năm hoạt Ä‘á»™ng chúng tôi đã ná»— lá»±c vượt qua má»i khó khăn để dần từng bÆ°á»›c thay đổi được phÆ°Æ¡ng thức quảng cáo vÃ* mua bán truyá»n thống của ngÆ°á»i dân thÃ*nh phố giúp cho NgÆ°á»i bán vÃ* NgÆ°á»i mua rá»… dÃ*ng thá»±c hiện các giao dịch mua bán nhÃ*, đất má»™t cách minh bạch, nhanh chóng. Rút kinh nghiệm qua việc hoaÌ£t động nhiều năm vaÌ€ tÆ°Ì€ những ý kiến đóng góp của quý khách, trong thá»i gian tá»›i chúng tôi sẽ ná»— lá»±c hÆ¡n nÆ°a nhằm phát triển Website có thêm những tÃ*nh năng Æ°u việt, quảng bá rá»™ng khắp hÆ¡n nữa giúp cho các giao dịch được tiến hÃ*nh má»™t cách nhanh chóng.

Ra Ä‘á»i xuất phát từ trải nghiệm thá»±c tế của chÃ*nh ngÆ°á»i sáng láº*p ra Công ty vá»›i mong muốn giúp cho cá»™ng đồng có được thông tin minh bạch mang lại giá trị lợi Ã*ch tốt nhất cho khách hÃ*ng. Äây chÃ*nh lÃ* cÆ¡ sở ná»n tảng để công ty xây dá»±ng phÆ°Æ¡ng châm kinh doanh vá»›i mong muốn mang đến sá»± chuyên nghiệp, uy tÃ*n, niá»m tin cho khách hÃ*ng.

Các dịch vụ chÃ*nh:

- Äăng tin quảng cáo mua bán nhÃ* đất
- Äăng banner quảng cáo
- Äăng bÃ*i PR quảng bá sản phẩm, dịch vụ bất Ä‘á»™ng sản
- Tư vấn, mua bán bất động sản
- Môi giới bất động sản
- NhÃ* đất quảng ninh
- nha dat hạ long
- mua dat quang ninh
- bán nhÃ* ha long
Má»i thông tin đóng góp, quý khách vui lòng liên hệ

Äịa chỉ : Nguyá»…n Văn Cừ - Hạ Long - Quảng NinhÄiện thoại : 0984.690.188Email :
  #9   Report Post  
Banned
 
Posts: 9
Default

Website batdongsanquangninh.vn lÃ* website hÃ*ng đầu vá» quảng cáo, mua bán bất Ä‘á»™ng sản tại Quảng Ninh, chÃ*nh thức Ä‘Æ°Æ¡c thÃ*nh láº*p vÃ*o năm 2012. LÄ©nh vá»±c hoạt Ä‘á»™ng chÃ*nh của công ty lÃ* quảng cáo, tÆ° vấn, môi giá»›i, mua bán, cho thuê bất Ä‘á»™ng sản.

Trải qua nhiều năm hoạt Ä‘á»™ng chúng tôi đã ná»— lá»±c vượt qua má»i khó khăn để dần từng bÆ°á»›c thay đổi được phÆ°Æ¡ng thức quảng cáo vÃ* mua bán truyá»n thống của ngÆ°á»i dân thÃ*nh phố giúp cho NgÆ°á»i bán vÃ* NgÆ°á»i mua rá»… dÃ*ng thá»±c hiện các giao dịch mua bán nhÃ*, đất má»™t cách minh bạch, nhanh chóng. Rút kinh nghiệm qua việc hoaÌ£t động nhiều năm vaÌ€ tÆ°Ì€ những ý kiến đóng góp của quý khách, trong thá»i gian tá»›i chúng tôi sẽ ná»— lá»±c hÆ¡n nÆ°a nhằm phát triển Website có thêm những tÃ*nh năng Æ°u việt, quảng bá rá»™ng khắp hÆ¡n nữa giúp cho các giao dịch được tiến hÃ*nh má»™t cách nhanh chóng.

Ra Ä‘á»i xuất phát từ trải nghiệm thá»±c tế của chÃ*nh ngÆ°á»i sáng láº*p ra Công ty vá»›i mong muốn giúp cho cá»™ng đồng có được thông tin minh bạch mang lại giá trị lợi Ã*ch tốt nhất cho khách hÃ*ng. Äây chÃ*nh lÃ* cÆ¡ sở ná»n tảng để công ty xây dá»±ng phÆ°Æ¡ng châm kinh doanh vá»›i mong muốn mang đến sá»± chuyên nghiệp, uy tÃ*n, niá»m tin cho khách hÃ*ng.

Các dịch vụ chÃ*nh:

- Äăng tin quảng cáo mua bán nhÃ* đất
- Äăng banner quảng cáo
- Äăng bÃ*i PR quảng bá sản phẩm, dịch vụ bất Ä‘á»™ng sản
- Tư vấn, mua bán bất động sản
- Môi giới bất động sản
- mua dat quảng ninh
- mua nha hạ long
- bán nhÃ* quang ninh
- bán nhÃ* ha long
Má»i thông tin đóng góp, quý khách vui lòng liên hệ

Äịa chỉ : Nguyá»…n Văn Cừ - Hạ Long - Quảng NinhÄiện thoại : 0984.690.188Email :
  #10   Report Post  
Banned
 
Posts: 9
Default

Website batdongsanquangninh.vn lÃ* website hÃ*ng đầu vá» quảng cáo, mua bán bất Ä‘á»™ng sản tại Quảng Ninh, chÃ*nh thức Ä‘Æ°Æ¡c thÃ*nh láº*p vÃ*o năm 2012. LÄ©nh vá»±c hoạt Ä‘á»™ng chÃ*nh của công ty lÃ* quảng cáo, tÆ° vấn, môi giá»›i, mua bán, cho thuê bất Ä‘á»™ng sản.

Trải qua nhiều năm hoạt Ä‘á»™ng chúng tôi đã ná»— lá»±c vượt qua má»i khó khăn để dần từng bÆ°á»›c thay đổi được phÆ°Æ¡ng thức quảng cáo vÃ* mua bán truyá»n thống của ngÆ°á»i dân thÃ*nh phố giúp cho NgÆ°á»i bán vÃ* NgÆ°á»i mua rá»… dÃ*ng thá»±c hiện các giao dịch mua bán nhÃ*, đất má»™t cách minh bạch, nhanh chóng. Rút kinh nghiệm qua việc hoaÌ£t động nhiều năm vaÌ€ tÆ°Ì€ những ý kiến đóng góp của quý khách, trong thá»i gian tá»›i chúng tôi sẽ ná»— lá»±c hÆ¡n nÆ°a nhằm phát triển Website có thêm những tÃ*nh năng Æ°u việt, quảng bá rá»™ng khắp hÆ¡n nữa giúp cho các giao dịch được tiến hÃ*nh má»™t cách nhanh chóng.

Ra Ä‘á»i xuất phát từ trải nghiệm thá»±c tế của chÃ*nh ngÆ°á»i sáng láº*p ra Công ty vá»›i mong muốn giúp cho cá»™ng đồng có được thông tin minh bạch mang lại giá trị lợi Ã*ch tốt nhất cho khách hÃ*ng. Äây chÃ*nh lÃ* cÆ¡ sở ná»n tảng để công ty xây dá»±ng phÆ°Æ¡ng châm kinh doanh vá»›i mong muốn mang đến sá»± chuyên nghiệp, uy tÃ*n, niá»m tin cho khách hÃ*ng.

Các dịch vụ chÃ*nh:

- Äăng tin quảng cáo mua bán nhÃ* đất
- Äăng banner quảng cáo
- Äăng bÃ*i PR quảng bá sản phẩm, dịch vụ bất Ä‘á»™ng sản
- Tư vấn, mua bán bất động sản
- Môi giới bất động sản
- mua đất quảng ninh
- bat dong san hạ long
- nha dat quang ninh
- mua dat ha long
Má»i thông tin đóng góp, quý khách vui lòng liên hệ

Äịa chỉ : Nguyá»…n Văn Cừ - Hạ Long - Quảng NinhÄiện thoại : 0984.690.188Email :


  #11   Report Post  
Banned
 
Posts: 9
Default

Website batdongsanquangninh.vn lÃ* website hÃ*ng đầu vá» quảng cáo, mua bán bất Ä‘á»™ng sản tại Quảng Ninh, chÃ*nh thức Ä‘Æ°Æ¡c thÃ*nh láº*p vÃ*o năm 2012. LÄ©nh vá»±c hoạt Ä‘á»™ng chÃ*nh của công ty lÃ* quảng cáo, tÆ° vấn, môi giá»›i, mua bán, cho thuê bất Ä‘á»™ng sản.

Trải qua nhiều năm hoạt Ä‘á»™ng chúng tôi đã ná»— lá»±c vượt qua má»i khó khăn để dần từng bÆ°á»›c thay đổi được phÆ°Æ¡ng thức quảng cáo vÃ* mua bán truyá»n thống của ngÆ°á»i dân thÃ*nh phố giúp cho NgÆ°á»i bán vÃ* NgÆ°á»i mua rá»… dÃ*ng thá»±c hiện các giao dịch mua bán nhÃ*, đất má»™t cách minh bạch, nhanh chóng. Rút kinh nghiệm qua việc hoaÌ£t động nhiều năm vaÌ€ tÆ°Ì€ những ý kiến đóng góp của quý khách, trong thá»i gian tá»›i chúng tôi sẽ ná»— lá»±c hÆ¡n nÆ°a nhằm phát triển Website có thêm những tÃ*nh năng Æ°u việt, quảng bá rá»™ng khắp hÆ¡n nữa giúp cho các giao dịch được tiến hÃ*nh má»™t cách nhanh chóng.

Ra Ä‘á»i xuất phát từ trải nghiệm thá»±c tế của chÃ*nh ngÆ°á»i sáng láº*p ra Công ty vá»›i mong muốn giúp cho cá»™ng đồng có được thông tin minh bạch mang lại giá trị lợi Ã*ch tốt nhất cho khách hÃ*ng. Äây chÃ*nh lÃ* cÆ¡ sở ná»n tảng để công ty xây dá»±ng phÆ°Æ¡ng châm kinh doanh vá»›i mong muốn mang đến sá»± chuyên nghiệp, uy tÃ*n, niá»m tin cho khách hÃ*ng.

Các dịch vụ chÃ*nh:

- Äăng tin quảng cáo mua bán nhÃ* đất
- Äăng banner quảng cáo
- Äăng bÃ*i PR quảng bá sản phẩm, dịch vụ bất Ä‘á»™ng sản
- Tư vấn, mua bán bất động sản
- Môi giới bất động sản
- ban nha quảng ninh
- bán nhÃ* hạ long
- ban dat quang ninh
- mua đất ha long
Má»i thông tin đóng góp, quý khách vui lòng liên hệ

Äịa chỉ : Nguyá»…n Văn Cừ - Hạ Long - Quảng NinhÄiện thoại : 0984.690.188Email :
  #12   Report Post  
Banned
 
Posts: 1
Default

Chúng tôi chuyên cung cấp máy hút chân không .sau đây lÃ* google maps máy hút chân không minh khai
  #13   Report Post  
Banned
 
Posts: 5
Default

Äánh giá nhÃ* cái vwin tốt hay xấu, cáº*p nháº*t link cmd368 má»›i nhất trong năm, link vÃ*o bong88 má»›i nhất không bị chặn
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Insert text in column A and calculate the average from column B Sverre Excel Programming 4 April 24th 09 09:07 AM
Insert a text in Column A and calculate the average from column B Sverre Excel Programming 7 April 23rd 09 12:13 PM
insert a blank column between each column in a data file Holly Excel Discussion (Misc queries) 1 October 31st 07 08:04 PM
insert row / insert column command buttons fairgreen Excel Worksheet Functions 1 October 29th 07 03:41 PM
Macro - Insert&Label Column, if the labeled column doesn't exist Jeff[_43_] Excel Programming 1 December 15th 04 10:33 PM


All times are GMT +1. The time now is 08:58 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"