Pfa.. now it will ask u to select range first……
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Aaron Hoffman Sent: Wednesday, March 12, 2014 1:14 PM To: excel-macros@googlegroups.com Cc: Soum Subject: Re: $$Excel-Macros$$ Macro to insert an empty row whenever there is a change in value from the cell above To ask you another question, how would you edit this code to select a specific range on a specific sheet. As you can see I added Sheets("Sheet2").Select to select sheet2, not sure if this is the best way, but also I would like to run have the macro run from cell b4:b500, however when I try to change various parts of this macro I keep getting runtime errors. Thanks again! Sub Button2_Click() Sheets("Sheet2").Select Dim lrow As Integer Dim frow As Integer Dim rng As Range Set rng = Range("a1:a" & Range("a1").End(xlDown).Row) lrow = rng.Rows.Count frow = rng.Row For a = lrow To frow Step -1 If a <> frow Then If Range("a" & a) <> Range("a" & a).Offset(-1, 0) Then Range("a" & a).EntireRow.Insert End If End If Next End Sub On Wednesday, March 12, 2014 12:51:24 AM UTC-6, ravinder negi wrote: Pfa, if help From: excel-...@googlegroups.com <javascript:> [mailto:excel-...@googlegroups.com <javascript:> ] On Behalf Of Aaron Hoffman Sent: Wednesday, March 12, 2014 11:54 AM To: excel-...@googlegroups.com <javascript:> Subject: $$Excel-Macros$$ Macro to insert an empty row whenever there is a change in value from the cell above Hi I am new to using macros in Excel, but I was curious if someone could give me some advice. I am looking for a macro that will insert a blank row whenever 2 values in the same column don't match. For example in range b5:b500 I have several different dates, and two make the spreadsheet look better when I print it, I would like there to be a blank row between every time the value is different between two cells. Any help would be very much appreciated. Thanks. -- 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...@googlegroups.com <javascript:> . To post to this group, send email to excel-...@googlegroups.com <javascript:> . 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. -- 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.
insert row between rows.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12