Search For:

Does the following help?


Function AutoFilter_Criteria(Header As Range) As String
'On Error GoTo em
Dim strCri1 As String, strCri2 As String

Application.Volatile

...

cmorgan,
Doesn't seem to be a way to do it. Refer to this.

The no calculation in the chart series seems to be the case. But I am not 100% sure.

You could however have the series refer to another named range that is the result of the calculation.
See this...

In column B (or other vacant adajcent column) insert the formula =rand() .

Then copy th formula down for the lenght of column A.
Then sort by the new column of random numbers, and you will have...

Kadence,

Try the following formula.

=IF(ISERROR(SEARCH("z","word")),0,SEARCH("z","word") )

Brians12,
It seems to me that the code is searching for a null/empty value after you delete a cell.
The result of the find will then be the reult of looking for 'nothing' in wSht.Range("Data").
...

Oops,

I should have been a bit more explicit.

For any button 'CommandButton 1' the following code will cause a beep.


Private Sub CommandButton1_Click()
Beep
End Sub

Try this

Private Sub CommandButton1_Click()
Beep
End Sub

U() defines an array, it can be of type Integer, or Long, or Double, or String or Variant.
Defining it as a string may cause the formula to have problems. Try Long or Double or Variant. (Variant...

Rick,

Is there any reason why U() is defined as a string?

I am think thing that U(x, y) = (U(x, y + 1) + U(x, y - 1) + U(x - 1, y) + U(x + 1, y)) / 4# may never be true if there is a rounding...

Ladybug,

I open the folder in explorer, select all the files and then choose print from the right click menu of the mouse.
Note the pritn option only appears when all the files selected support...

The code below is copied from the site and I think will do what you want.

Sub TestFile()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim cell As Range

...

Try the tips at this site http://www.rondebruin.nl/sendmail.htm

like this ?

=INT(((A2+B2)-(A1+B1))*24) & " Hours " & ROUND(MOD(((A2+B2)-(A1+B1))*24,1),1) & " tenths"

Lisa,

It is possible, but why nbot set up a recurring task in Outlok instead.
That will achieve the same thing, and provide a much better reminder mechanism.

try ...

Public Sub realScen()

Dim intPrice As Double
Dim EBITDA As Double
Dim ROR As Double
Dim Price As Double
Dim newprice As Double
Dim...

Why not use

For tiltAngle = 0 To 5*(Pi / 12) Step Pi / 12

You will still get to the same steps, just the end value is 5/12s of PI, not 6/12's

try

ActiveWorkbook.Close SaveChanges:=False

Note you will not save any changes

Without a name - how do you identify it?

You could use Workbooks(index), but means that you must know the index number of the workbook, not it's name. Is that the case?

Try Activeworkbook.close

If you do not want to save any cahnges or have any intervening prompts then use

Activeworkbook.close SaveChanges:=False

CallMeDJ,

I received an error if I have the sheetname in mixed case, and the macro has it in upper case.

Try changing
With Sheets("DATA " & i)
to
With Sheets("Data " & i)

maa564,

look at Bob Umlas under the heading Calculating The Sum Of The Digits.

If you make any selection on the first page, you should disable the options on teh second page and vice versa.

This si what option button group do by default when enclosed in a group frame. Moving...

bremen,

this is untested, but it may give you a start


Sub CopyRoster()

Dim SrcRng(5) As Range
Dim DestRng(5) As Range
Dim s As Integer

Have you tried adding 1994 to the year column on the worksheet.

If that does not work, post the workbook here. It is very difficult to understand the problem without more information.