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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 10:38 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com