Thread
:
Difficult Question
View Single Post
#
7
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
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 With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett