$$Excel-Macros$$ Insert Blank Row After Each Row
Dear Friends, Please help me to insert blank/new row under each row using any macro. Thanks N.Sundarvelan 9600160150 -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. Sample_Data.xlsx Description: MS-Excel 2007 spreadsheet
Re: $$Excel-Macros$$ Insert Blank Row After Each Row
This method is an easier but roundabout to insert blank rows between exiting rows. You can do as follows: 1. You need a blank column adjacent to your data. For example, I have a worksheet comprises A1:E9, you can use column F. 2. In cell F1 input the number 1, and input 2 in cell F2. 3. Select the number 1 and number 2, and double-click the fill handle, Excel will auto-fill the cells in column F. 4. Then copy this new column F (F1:F9), select the cell F10, and paste the auto-fill number from F1:F9. See screenshot: [image: doc-insert-blank-rows1] 5. And then click *Data* *Sort*, and a* Sort Warning* dialog box will pop out, select* Expand the selection* option, and click* Sort*… See screenshot: 6. And a *Sort* dialog box will appear, choose* Column F *from the *Sort by* dropdown list. See screenshot: 7. Click *OK*. Then delete the column F. And the new blank rows have been inserted in the exiting rows. See screenshot: *Note*: If you would like to insert two or three blank rows between each row, you can copy the new auto-fill column two or three times to add the new rows. -- [image: arrow blue right bubble]* Insert alternate blank rows with VBA code* If the above way is a little complex, you can also use the VBA code to solve it. 1. Click* Developer* *Visual Basic*, a new* Microsoft Visual Basic for applications* window will be displayed, click *Insert* * Module*, and input the following code into the *Module*: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub InsertBlackRows() 'Updateby20131127 Dim Rng As Range Dim WorkRng As Range Dim FirstRow As Integer, xRows As Integer, xCols As Integer On Error Resume Next xTitleId = KutoolsforExcel Set WorkRng = Application.Selection Set WorkRng = Application.InputBox(Range, xTitleId, WorkRng.Address, Type:=8) FirstRow = WorkRng.Row xRows = WorkRng.Rows.Count xCols = WorkRng.Columns.Count Application.ScreenUpdating = False WorkRng.Cells(xRows, 1).Resize(1, xCols).Select Do Until Selection.Row = FirstRow Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Selection.Offset(-1, 0).Select Loop Application.ScreenUpdating = True End Sub 2. Then click [image: doc-multiply-calculation-3] button to run the code, then a dialog is diaplayed on the screen for you to select a range to insert blank rows, see screenshot: 3. Click *Ok*, and a new blank row will be inserted between every two rows. See screenshots: -- [image: arrow blue right bubble]* Quickly insert specific numbers of blank rows with Kutools for Excel* The two methods all just refer to inserting blank rows between each rows, if I want to insert a blank row after every nth rows, how should I do? The tool *Insert blank rows columns* of* Kutools for Excel* can help you to do this quickly and easily. *Kutools for Excel: http://www.extendoffice.com/product/kutools-for-excel.html * with more than 120 handy Excel add-ins, free to try with no limitation in 30 days.* Get it Now http://www.extendoffice.com/download/kutools-for-excel.html * After installing *Kutools for Excel*, please do as this: 1. Select the range that you want to insert the blank rows. 2. Click *Kutools* * Insert ** Insert Blank Rows Columns*…, see screenshot: 3. In the *Insert Blank Rows Columns* dialog box, choose* Blank rows* from *Insert type*, and then specify the numbers into *Interval of* and* Rows* box that you need. See screenshot: 4. Then click *OK*. And the blank rows have been inserted after every two rows. See screenshots: *Note*: the number in the *Interval of* and* Rows* can be adjusted to meet your need. For example, you can insert three, four, five… blank rows after every one, two, three… rows. *Click to know more about this Insert Blank Rows Columns feature http://www.extendoffice.com/product/kutools-for-excel/excel-insert-blank-rows-column.html* . On Thu, Jun 4, 2015 at 1:37 PM, Sundarvelan N nsund...@gmail.com wrote: Dear Friends, Please help me to insert blank/new row under each row using any macro. Thanks N.Sundarvelan 9600160150 -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS
Re: $$Excel-Macros$$ Insert Blank Row After Each Row
Try: Sub Add_Rows() Dim R, nRows nRows = Application.WorksheetFunction.CountA(ActiveSheet.Range(A:A)) Application.ScreenUpdating = False Application.CutCopyMode = False For R = nRows To 2 Step -1 Cells(R, A).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next R Application.ScreenUpdating = TrueEnd Sub Paul- “Do all the good you can, By all the means you can, In all the ways you can, In all the places you can, At all the times you can, To all the people you can, As long as ever you can.” - John Wesley - From: Sundarvelan N nsund...@gmail.com To: excel-macros@googlegroups.com Sent: Thursday, June 4, 2015 4:07 AM Subject: $$Excel-Macros$$ Insert Blank Row After Each Row Dear Friends, Please help me to insert blank/new row under each row using any macro. ThanksN.Sundarvelan9600160150-- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
$$Excel-Macros$$ Insert a row and subtotal
Hello, does anyone know how to add subtotals once my code has run a sum for both the Par Value and a sumproduct for the coupon rate? I have a code that gathers the data i need but i can't figure out this last part. https://www.box.net/shared/0fknh9819pk9t8m7jxz9 Here is the file i'm trying to work with. Thanks in advance, Matt -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
Re: $$Excel-Macros$$ Insert a row and subtotal
Thanks Don, I did try that before but is it possible to get a sumproduct formula under the market value? Matt On Feb 10, 10:09 am, dguillett1 dguille...@gmail.com wrote: Why not let excel do the heavy lifting using subtotals. See attached in SalesAidSoftware module Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Monizri Sent: Friday, February 10, 2012 8:15 AM To: MS EXCEL AND VBA MACROS Subject: $$Excel-Macros$$ Insert a row and subtotal Hello, does anyone know how to add subtotals once my code has run a sum for both the Par Value and a sumproduct for the coupon rate? I have a code that gathers the data i need but i can't figure out this last part. https://www.box.net/shared/0fknh9819pk9t8m7jxz9 Here is the file i'm trying to work with. Thanks in advance, Matt -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. --- --- To post to this group, send email to excel-macros@googlegroups.com 20121.xlsm 54KViewDownload -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
Re: $$Excel-Macros$$ Insert a row and subtotal
See changes where sumproduct formula is evaluated I am available for excel projects . Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Monizri Sent: Friday, February 10, 2012 9:21 AM To: MS EXCEL AND VBA MACROS Subject: Re: $$Excel-Macros$$ Insert a row and subtotal Thanks Don, I did try that before but is it possible to get a sumproduct formula under the market value? Matt On Feb 10, 10:09 am, dguillett1 dguille...@gmail.com wrote: Why not let excel do the heavy lifting using subtotals. See attached in SalesAidSoftware module Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Monizri Sent: Friday, February 10, 2012 8:15 AM To: MS EXCEL AND VBA MACROS Subject: $$Excel-Macros$$ Insert a row and subtotal Hello, does anyone know how to add subtotals once my code has run a sum for both the Par Value and a sumproduct for the coupon rate? I have a code that gathers the data i need but i can't figure out this last part. https://www.box.net/shared/0fknh9819pk9t8m7jxz9 Here is the file i'm trying to work with. Thanks in advance, Matt -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. --- --- To post to this group, send email to excel-macros@googlegroups.com 20121.xlsm 54KViewDownload -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com 20121.xlsm Description: application/vnd.ms-excel.sheet.macroenabled.12
Re: $$Excel-Macros$$ INSERT THE ROW
THANKS A LOT On Thu, Nov 3, 2011 at 3:56 PM, ashish koul koul.ash...@gmail.com wrote: check the attachment On Thu, Nov 3, 2011 at 3:50 PM, Jai jaihumtu...@gmail.com wrote: HOW CAN INSERT THE PLEASE GIVE THE VBA CODE OR FORMULA -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- *Regards* * * *Ashish Koul* *http://www.excelvbamacros.com/* P Before printing, think about the environment. -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
Re: $$Excel-Macros$$ INSERT THE ROW
Save your file as .xls or .xlsM and run this Sub inserttworows() For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 Rows(i).Resize(2).Insert 'MsgBox i Next i End Sub Don Guillett SalesAid Software dguille...@gmail.com From: Jai Sent: Thursday, November 03, 2011 5:20 AM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ INSERT THE ROW HOW CAN INSERT THE PLEASE GIVE THE VBA CODE OR FORMULA -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
Re: $$Excel-Macros$$ INSERT THE ROW
Dear Jai, Please use below code as per your requirement. *Sub InsertSpecificRows() Dim InsQuan As Integer On Error Resume Next InsQuan = InputBox(Enter number of rows to insert, Your Call) If InsQuan = 0 Then MsgBox Invalid number entered, vbCritical, Stop! Exit Sub End If Application.ScreenUpdating = False Do Until Selection.Value = ActiveCell.Offset(1, 0).Range(A1:A InsQuan).Select Selection.Insert Shift:=xlDown ActiveCell.Offset(InsQuan, 0).Select Loop [A1].Select Application.ScreenUpdating = True End Sub * -- Thanks regards, Noorain Ansari *http://excelmacroworld.blogspot.com/*http://excelmacroworld.blogspot.com/ *http://noorain-ansari.blogspot.com/* http://noorain-ansari.blogspot.com/ On Thu, Nov 3, 2011 at 3:50 PM, Jai jaihumtu...@gmail.com wrote: HOW CAN INSERT THE PLEASE GIVE THE VBA CODE OR FORMULA -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
Re: $$Excel-Macros$$ INSERT THE ROW
Selections could be removed. Don Guillett SalesAid Software dguille...@gmail.com From: NOORAIN ANSARI Sent: Thursday, November 03, 2011 10:49 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ INSERT THE ROW Dear Jai, Please use below code as per your requirement. Sub InsertSpecificRows() Dim InsQuan As Integer On Error Resume Next InsQuan = InputBox(Enter number of rows to insert, Your Call) If InsQuan = 0 Then MsgBox Invalid number entered, vbCritical, Stop! Exit Sub End If Application.ScreenUpdating = False Do Until Selection.Value = ActiveCell.Offset(1, 0).Range(A1:A InsQuan).Select Selection.Insert Shift:=xlDown ActiveCell.Offset(InsQuan, 0).Select Loop [A1].Select Application.ScreenUpdating = True End Sub -- Thanks regards, Noorain Ansari http://excelmacroworld.blogspot.com/ http://noorain-ansari.blogspot.com/ On Thu, Nov 3, 2011 at 3:50 PM, Jai jaihumtu...@gmail.com wrote: HOW CAN INSERT THE PLEASE GIVE THE VBA CODE OR FORMULA -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
Re: $$Excel-Macros$$ insert new row if column is missing date....
Sub InsertDatetUntilToday() ' coded by: siti Vi / Jakarta, May 16, 2011 '--- Dim SeleDate As Date, DiffDate As Long, n As Long Do While ActiveCell 0 If IsDate(ActiveCell) And ActiveCell Date Then If Not IsEmpty(ActiveCell(2, 1)) Then SeleDate = ActiveCell.Value DiffDate = Date - SeleDate ActiveCell(2, 1).Resize(DiffDate, 1).EntireRow.Insert For n = 1 To DiffDate ActiveCell(n + 1, 1) = SeleDate + n Next n End If End If ActiveCell(n + 1, 1).Activate Loop Me.Cells(1).Activate End Sub On Sun, May 15, 2011 at 4:32 PM, Stuart swilson2...@gmail.com wrote: Hi all I hope someone can help with this. My data is in columns A to F with the short date being in column B. The data is sorted in date order and the first date that appears in column B is 23/12/2002 and the next row contains the date 14/01/2002. What I need is for a macro to look at the first date in the cell that I have selected and then look at the next date and fill in the missing dates until it reaches today. The data can go down in an unlimited amount of rows. So basically the macro would insert a new row with the date is column B as 24/12/2002, 25/12/2002, 26/12/2002 and so on and so forth. I hope this makes sense to someone Best regards Stuart -- -- 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 Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel ctv_Insert Row and Date.xls Description: MS-Excel spreadsheet
$$Excel-Macros$$ insert new row if column is missing date....
Hi all I hope someone can help with this. My data is in columns A to F with the short date being in column B. The data is sorted in date order and the first date that appears in column B is 23/12/2002 and the next row contains the date 14/01/2002. What I need is for a macro to look at the first date in the cell that I have selected and then look at the next date and fill in the missing dates until it reaches today. The data can go down in an unlimited amount of rows. So basically the macro would insert a new row with the date is column B as 24/12/2002, 25/12/2002, 26/12/2002 and so on and so forth. I hope this makes sense to someone Best regards Stuart -- -- 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 Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel
$$Excel-Macros$$ Insert Coloured Row VBA Code - MS Excel - Slight change in Code?
Hi, I have the below VBA code that inserts a coloured row based on a changing value in Cell 'C3' What I want to do is to have the macro let the user input the cell ref themselves of 'Range(c3).Select' bit of the code. How can I change the below code to help me do this? Sub Insert_row() Dim Number_of_rows As Long Dim Rowinsert As Integer Number_of_rows = Range(A65536).End(xlUp).Row Ans = InputBox(How many rows do you want to insert ?, Rows, 1) If IsNumeric(Ans) Then Rowinsert = CInt(Ans) Else MsgBox Invalid number entered, vbCritical, Error Exit Sub End If Range(c3).Select Do Until Selection.Row = Number_of_rows + 1 If Selection.Value Selection.Offset(-1, 0).Value Then Selection.EntireRow.Resize(Rowinsert).Insert Selection.EntireRow.Interior.ColorIndex = 6# Number_of_rows = Number_of_rows + Rowinsert Selection.Offset(Rowinsert + 1, 0).Select Else Selection.Offset(1, 0).Select End If Loop End Sub -- -- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678 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 To unsubscribe from this group, send email to excel-macros+unsubscribegooglegroups.com or reply to this email with the words REMOVE ME as the subject.