Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Difficult Question
Okay, I'm trying to do something very strange, but I have to find a way to
get all the data in an orderly fashion. I want to do the following: Seek the blank rows and select each cell one up from the blanks. For each selection(essentially the last row of each set of data separated by a blank row), IF (Cell = 2) Then Insert 28 rows IF (Cell = 3) Then Insert 27 rows IF (Cell = 4) Then Insert 26 rows ETC.ETC.... That would make each grouping of data have the exact same amount of rows, which is what I NEED to continue with my project. Need more clarification, please ask. THANKS!!!!!! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Difficult Question
something like
Sub insertrowssize() ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert End Sub -- Don Guillett SalesAid Software "bodhisatvaofboogie" wrote in message ... Okay, I'm trying to do something very strange, but I have to find a way to get all the data in an orderly fashion. I want to do the following: Seek the blank rows and select each cell one up from the blanks. For each selection(essentially the last row of each set of data separated by a blank row), IF (Cell = 2) Then Insert 28 rows IF (Cell = 3) Then Insert 27 rows IF (Cell = 4) Then Insert 26 rows ETC.ETC.... That would make each grouping of data have the exact same amount of rows, which is what I NEED to continue with my project. Need more clarification, please ask. THANKS!!!!!! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Difficult Question
How do I get it to select the cells right above the blank ones? Thanks!!!
"Don Guillett" wrote: something like Sub insertrowssize() ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert End Sub -- Don Guillett SalesAid Software "bodhisatvaofboogie" wrote in message ... Okay, I'm trying to do something very strange, but I have to find a way to get all the data in an orderly fashion. I want to do the following: Seek the blank rows and select each cell one up from the blanks. For each selection(essentially the last row of each set of data separated by a blank row), IF (Cell = 2) Then Insert 28 rows IF (Cell = 3) Then Insert 27 rows IF (Cell = 4) Then Insert 26 rows ETC.ETC.... That would make each grouping of data have the exact same amount of rows, which is what I NEED to continue with my project. Need more clarification, please ask. THANKS!!!!!! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Difficult Question
Right, that makes sense, but how do I select the blank spaces first? :) I
know I'm too demanding.... Thanks!!! "Don Guillett" wrote: IF?? I understand your question ActiveCell.offset(-1).Resize(30 - Range("a1")).EntireRow.Insert -- Don Guillett SalesAid Software "bodhisatvaofboogie" wrote in message ... How do I get it to select the cells right above the blank ones? Thanks!!! "Don Guillett" wrote: something like Sub insertrowssize() ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert End Sub -- Don Guillett SalesAid Software "bodhisatvaofboogie" wrote in message ... Okay, I'm trying to do something very strange, but I have to find a way to get all the data in an orderly fashion. I want to do the following: Seek the blank rows and select each cell one up from the blanks. For each selection(essentially the last row of each set of data separated by a blank row), IF (Cell = 2) Then Insert 28 rows IF (Cell = 3) Then Insert 27 rows IF (Cell = 4) Then Insert 26 rows ETC.ETC.... That would make each grouping of data have the exact same amount of rows, which is what I NEED to continue with my project. Need more clarification, please ask. THANKS!!!!!! |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Difficult Question
Also, how do I input that into an If Statement? I tried to just do
If (Cell = 16) Then ActiveCell.offset(-1).Resize(14 - Range("a1")).EntireRow.Insert End If But that didn't work I know I'm missin somethin... "Don Guillett" wrote: IF?? I understand your question ActiveCell.offset(-1).Resize(30 - Range("a1")).EntireRow.Insert -- Don Guillett SalesAid Software "bodhisatvaofboogie" wrote in message ... How do I get it to select the cells right above the blank ones? Thanks!!! "Don Guillett" wrote: something like Sub insertrowssize() ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert End Sub -- Don Guillett SalesAid Software "bodhisatvaofboogie" wrote in message ... Okay, I'm trying to do something very strange, but I have to find a way to get all the data in an orderly fashion. I want to do the following: Seek the blank rows and select each cell one up from the blanks. For each selection(essentially the last row of each set of data separated by a blank row), IF (Cell = 2) Then Insert 28 rows IF (Cell = 3) Then Insert 27 rows IF (Cell = 4) Then Insert 26 rows ETC.ETC.... That would make each grouping of data have the exact same amount of rows, which is what I NEED to continue with my project. Need more clarification, please ask. THANKS!!!!!! |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Difficult Question
nextblankrow=range("a1").end(xldown).row+1 so maybe this would work. not tested range("a1").end(xldown).row+1.Resize(30 - Range("a1")).EntireRow.Insert -- Don Guillett SalesAid Software "bodhisatvaofboogie" wrote in message ... Also, how do I input that into an If Statement? I tried to just do If (Cell = 16) Then ActiveCell.offset(-1).Resize(14 - Range("a1")).EntireRow.Insert End If But that didn't work I know I'm missin somethin... "Don Guillett" wrote: IF?? I understand your question ActiveCell.offset(-1).Resize(30 - Range("a1")).EntireRow.Insert -- Don Guillett SalesAid Software "bodhisatvaofboogie" wrote in message ... How do I get it to select the cells right above the blank ones? Thanks!!! "Don Guillett" wrote: something like Sub insertrowssize() ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert End Sub -- Don Guillett SalesAid Software "bodhisatvaofboogie" wrote in message ... Okay, I'm trying to do something very strange, but I have to find a way to get all the data in an orderly fashion. I want to do the following: Seek the blank rows and select each cell one up from the blanks. For each selection(essentially the last row of each set of data separated by a blank row), IF (Cell = 2) Then Insert 28 rows IF (Cell = 3) Then Insert 27 rows IF (Cell = 4) Then Insert 26 rows ETC.ETC.... That would make each grouping of data have the exact same amount of rows, which is what I NEED to continue with my project. Need more clarification, please ask. THANKS!!!!!! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Difficult ------------- question | Excel Discussion (Misc queries) | |||
difficult question | Excel Discussion (Misc queries) | |||
Difficult (at least to me) formula question | Excel Worksheet Functions | |||
Another very difficult question; sorry! | Excel Programming | |||
A difficult question | Excel Programming |