Re: $$Excel-Macros$$ Macro to insert an empty row whenever there is a change in value from the cell above
Is there a way to set it to a constant range? I would like the button to be on Sheet1 but inserting the row on Sheet2 (b5:b500) when ever the data changes from row to row, but I just can't figure how to manipulate the code, to do that. This works great on "Sheet1" Column A but I can't get it to work on Column B. Thank you for your help. Sub Button2_Click() 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 -- 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.
RE: $$Excel-Macros$$ Macro to insert an empty row whenever there is a change in value from the cell above
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 [mailto:excel-...@googlegroups.com ] On Behalf Of Aaron Hoffman Sent: Wednesday, March 12, 2014 11:54 AM To: excel-...@googlegroups.com 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 . To post to this group, send email to excel-...@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. -- 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 quic
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 [mailto: > excel-...@googlegroups.com ] *On Behalf Of *Aaron Hoffman > *Sent:* Wednesday, March 12, 2014 11:54 AM > *To:* excel-...@googlegroups.com > *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 . > To post to this group, send email to excel-...@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.
Re: $$Excel-Macros$$ Macro to insert an empty row whenever there is a change in value from the cell above
Hey that works great! Thank you very much! On Wednesday, March 12, 2014 12:51:24 AM UTC-6, ravinder negi wrote: > > Pfa, if help > > > > *From:* excel-...@googlegroups.com [mailto: > excel-...@googlegroups.com ] *On Behalf Of *Aaron Hoffman > *Sent:* Wednesday, March 12, 2014 11:54 AM > *To:* excel-...@googlegroups.com > *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 . > To post to this group, send email to excel-...@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.
RE: $$Excel-Macros$$ Macro to insert an empty row whenever there is a change in value from the cell above
Pfa, if help From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Aaron Hoffman Sent: Wednesday, March 12, 2014 11:54 AM To: excel-macros@googlegroups.com 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+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