"I got help when I was stumped for years there." Just re-read that, reads funny. I was stumped over several things over the years, not one thing for years.😯
Jim Most of what we call management consists of making it difficult for people to get their work done. <http://www.brainyquote.com/quotes/quotes/p/peterdruck163694.html> Peter Drucker <http://www.brainyquote.com/quotes/quotes/p/peterdruck163694.html> On Thu, Feb 23, 2017 at 5:54 PM, James Edwards <[email protected]> wrote: > You might want to go to the forum at Mr Excel > > https://www.mrexcel.com/forum/index.php > > The people there are OUTSTANDING. I got help when I was stumped for years > there. > > Jim > > Most of what we call management consists of making it difficult for people > to get their work done. > <http://www.brainyquote.com/quotes/quotes/p/peterdruck163694.html> > Peter Drucker > <http://www.brainyquote.com/quotes/quotes/p/peterdruck163694.html> > > On Thu, Feb 23, 2017 at 5:17 PM, Micheal Espinola Jr < > [email protected]> wrote: > >> Not discounting anyone here, but I would imagine that there are much >> better support forums than this for this type of question. I would hit-up >> an Excel-specific forum. >> >> -- >> Espi >> >> >> On Thu, Feb 23, 2017 at 9:20 AM, Christopher Bodnar < >> [email protected]> wrote: >> >>> Sorry for OT, but know there is some great talent here. >>> >>> >>> >>> I’ve got a list in excel. All I want to do is create a blank row below >>> each item in the list, then group that new row and the original one above >>> it. So like this: >>> >>> >>> >>> TEST1 >>> >>> TEST2 >>> >>> TEST3 >>> >>> >>> >>> Will be >>> >>> TEST1 >>> >>> ==NEW ROW GROUPED WITH ROW ABOVE >>> >>> TEST2 >>> >>> ==NEW ROW GROUPED WITH ROW ABOVE >>> >>> TEST3 >>> >>> ==NEW ROW GROUPED WITH ROW ABOVE >>> >>> >>> >>> This is the macro I have that will add the blank row, but not sure how >>> to get it to do the grouping: >>> >>> >>> >>> ********************************************************* >>> >>> Sub insertrow() >>> >>> >>> >>> Application.ScreenUpdating = True >>> >>> Dim count As Integer >>> >>> Dim X As Integer >>> >>> >>> >>> For count = 1 To 20 >>> >>> If ActiveCell.Value <> "" Then >>> >>> ActiveCell.Offset(1, 0).Select >>> >>> Range(ActiveCell, ActiveCell.Offset(0, 0)).EntireRow.Insert >>> >>> ActiveCell.Offset(1, 0).Select >>> >>> For X = 1 To 1 >>> >>> Next X >>> >>> Else >>> >>> ActiveCell.Offset(1, 0).Range("a1").Select >>> >>> End If >>> >>> Next count >>> >>> >>> >>> End Sub >>> >>> >>> >>> ********************************************************* >>> >>> >>> >>> Thanks >>> >>> >>> >>> >>> >>> *Christopher Bodnar* >>> Enterprise Architect II, Corporate Office of Technology:Enterprise >>> Architecture and Engineering Services >>> >>> Tel 610-807-6459 <(610)%20807-6459> >>> 3900 Burgess Place, Bethlehem, PA 18017 >>> [email protected] >>> >>> [image: cid:[email protected]] >>> >>> * The Guardian Life Insurance Company of America* >>> >>> * www.guardianlife.com <http://www.guardianlife.com/>* >>> >>> >>> >>> >>> >>> ------------------------------ >>> ----------------------------------------- This message, and any >>> attachments to it, may contain information that is privileged, >>> confidential, and exempt from disclosure under applicable law. If the >>> reader of this message is not the intended recipient, you are notified that >>> any use, dissemination, distribution, copying, or communication of this >>> message is strictly prohibited. If you have received this message in error, >>> please notify the sender immediately by return e-mail and delete the >>> message and any attachments. Thank you. >>> >>> >> >
