View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
orquidea orquidea is offline
external usenet poster
 
Posts: 132
Default Macro subprocedure

Yes, I tried you formula with NETWORKDAYS and worked. I am trying to put
that into a macro. Let see.
Below is the original macro I did.

Range("O2").Select
Do
If ActiveCell.Value = "#VALUE!" Then
ActiveCell.Value = "No Info"
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Offset(0, -13) = ""


I also would like to know how could I say
If ActiveCell.Value = any number then
ActiveCell.Offset(1,0)

Thanks
Orquidea

"akphidelt" wrote:

You want to post the macro?

Also try

=If(Iserror(Networkdays(G8,H8),"No Info",Networkdays(G8,H8))

"orquidea" wrote:

Thanks for your reply. The problem is that I am using the formula
=NETWORKDAYS(G8,H8). Then a macro will copy this formula all the way down in
the column until there is data available. In some rows, there G or H is
empty and then I get the error mesage. I need to use a macro. Could you
help me with ti please

"orquidea" wrote:

Hi All

Could anyone please help me to write a subprocedure wich replace the cell
with the error note #VALUE! with the comment "No Info"
I have the below

If ActiveCell.Value = numero (I don' know how to tell the computer
that any number is valid) Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Value = "No Info"
End If

Thanks,
Orquidea