i want a code like this
if any row (part of row) in range XX is empty then
do yy....
thank you
rozent
i want a code like this
if any row (part of row) in range XX is empty then
do yy....
thank you
rozent
Dim myRng as range
dim myRow as range
dim delRng as range
set myrng = activesheet.range("a1:x99")
for each myrow in myrng.rows
if application.counta(myrow) <> myrow.cells.count then
'at least one really empty cell.
'do what you want
'if you're deleting
if delrng is nothing then
set delrng = myrow.cells(1)
else
set delrng = union(delrng,myrow.cells(1))
end if
end if
next myrow
if delrng is nothing then
'do nothing
else
delrng.entirerow.delete
end if
????? wrote:
>
> i want a code like this
>
> if any row (part of row) in range XX is empty then
> do yy....
>
> thank you
> rozent
--
Dave Peterson
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks