ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   loop and fine & replace (https://www.excelbanter.com/excel-programming/394406-loop-fine-replace.html)

NewToVB

loop and fine & replace
 
I need to loop through an entire range ("A1:X16"), looking at each cell to
see if it has #N/A in it. If N/A is not found I need to close the workbook.
If it is found, I need to replace it with "" save and close the workbook.
The reason I'm looping first rather than just find and replacing is because
when the data isn't found, an excel message box comes up saying no data could
be found and I want to avoid this message box. Any ideas on how to do this?
I'm using Visual Studio rather than VBA, they are very similar but a few
things are different, but any ideas will be greatly appreciated! Thanks!

Bob Phillips

loop and fine & replace
 
VBA, you will have to adapt

fFound = False
For Each cell in Range("A1:X16")
If Application.ISNA(cell.value) then
cellValue = ""
fFound= True
EndIf
Next cell

If fFound Then
Activeworkbook.Save
Endif

Activeworkbook.Close

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"NewToVB" wrote in message
...
I need to loop through an entire range ("A1:X16"), looking at each cell
to
see if it has #N/A in it. If N/A is not found I need to close the
workbook.
If it is found, I need to replace it with "" save and close the workbook.
The reason I'm looping first rather than just find and replacing is
because
when the data isn't found, an excel message box comes up saying no data
could
be found and I want to avoid this message box. Any ideas on how to do
this?
I'm using Visual Studio rather than VBA, they are very similar but a few
things are different, but any ideas will be greatly appreciated! Thanks!




NewToVB

loop and fine & replace
 
Thank you!

"NewToVB" wrote:

I need to loop through an entire range ("A1:X16"), looking at each cell to
see if it has #N/A in it. If N/A is not found I need to close the workbook.
If it is found, I need to replace it with "" save and close the workbook.
The reason I'm looping first rather than just find and replacing is because
when the data isn't found, an excel message box comes up saying no data could
be found and I want to avoid this message box. Any ideas on how to do this?
I'm using Visual Studio rather than VBA, they are very similar but a few
things are different, but any ideas will be greatly appreciated! Thanks!



All times are GMT +1. The time now is 10:07 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com