| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
end subroutine
I have a macro that is consolidating a text file with lots of white space,
and up to five rows of blank rows when I import the file into Exel. The macro looks to see if certain types of data are in the row, if not delete the row (including if the row is blank) I'd like to tell the sub routine to go to the next subroutine if the ten rows below the active cell are all blank. Any suggestions? Thanks Melric |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
end subroutine
Perhaps use
Set rng = Activecell.Resize(10,1).Entirerow If Application.CountA(rng) = 0 Then 'all blank etc. -- HTH RP (remove nothere from the email address if mailing direct) "melric" wrote in message ... I have a macro that is consolidating a text file with lots of white space, and up to five rows of blank rows when I import the file into Exel. The macro looks to see if certain types of data are in the row, if not delete the row (including if the row is blank) I'd like to tell the sub routine to go to the next subroutine if the ten rows below the active cell are all blank. Any suggestions? Thanks Melric |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
end subroutine
It worked!!!
Many thanks "Bob Phillips" wrote: Perhaps use Set rng = Activecell.Resize(10,1).Entirerow If Application.CountA(rng) = 0 Then 'all blank etc. -- HTH RP (remove nothere from the email address if mailing direct) "melric" wrote in message ... I have a macro that is consolidating a text file with lots of white space, and up to five rows of blank rows when I import the file into Exel. The macro looks to see if certain types of data are in the row, if not delete the row (including if the row is blank) I'd like to tell the sub routine to go to the next subroutine if the ten rows below the active cell are all blank. Any suggestions? Thanks Melric |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
end subroutine
Pleasure.
Bob "melric" wrote in message ... It worked!!! Many thanks "Bob Phillips" wrote: Perhaps use Set rng = Activecell.Resize(10,1).Entirerow If Application.CountA(rng) = 0 Then 'all blank etc. -- HTH RP (remove nothere from the email address if mailing direct) "melric" wrote in message ... I have a macro that is consolidating a text file with lots of white space, and up to five rows of blank rows when I import the file into Exel. The macro looks to see if certain types of data are in the row, if not delete the row (including if the row is blank) I'd like to tell the sub routine to go to the next subroutine if the ten rows below the active cell are all blank. Any suggestions? Thanks Melric |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Call a subroutine using variable subroutine name | Excel Discussion (Misc queries) | |||
| SUBROUTINE HELP | Excel Discussion (Misc queries) | |||
| association of hot key with subroutine | Excel Programming | |||
| editing a subroutine | Excel Programming | |||
| Every second subroutine | Excel Programming | |||
Linear Mode
