hopefully 3 easy questions :D

[venomatic]

Hi, I'm new to MrExcel and hope I can bother someone for a few quick questions. Thank you in advance!!!!!!! I apologize if some of them are too easy, and/or too weird.

1) Suppose I simply want to count the number of times I execute any program:

Static Counter As Integer
Dim Msg As String
Counter = Counter + 1
Msg = "Number of executions: " & Counter

Since the count displays 1 at the first run, is it fair to say that Counter is initialized at zero?

2) For

MsgBox Worksheets("Sheet1").Range("F3").Column

I can probably replace "Sheet1" with 1. Is this good practice?

3) Suppose I want to check if a group of cells all have formulas.

'apparently FormulaTest as Boolean isn't a good idea'
Dim FormulaTest As Variant
FormulaTest = Worksheets("Sheet2").Range("A1:A2").HasFormula
If TypeName(FormulaTest) = "Null" Then MsgBox "Mixed!"

So if A1 has a formula, and A2 doesn't, "Mixed!" is displayed. But for some reason, if I want to display or print true/false (i.e. both cells have formulas or don't have), I need to say MsgBox FormulaTest. This is all right with me, but although it works, it apparently has a run-time error.

Apparently, VBE says that the Variant can only return a Null, not a value. Assuming I understood that, is there a proper alternative to display true/false/mixed?

Thanks again :>

 

[mikerickson]

1) Yes, all variables of type Long, Integer, Double, Single and Byte are initialized as 0.

2)Sheets(1) will refer to the leftmost tab (including hidden tabs). Sheets("Sheet1") will refer to the sheet that is named Sheet1.
They may (or may not) be the same sheet. This link has more info on the three ways to refer to a sheet.
http://www.mrexcel.com/forum/showthread.php?t=253546&highlight=code

 

[mikerickson]

3) This shows how to probe if a range has all formulas, no formula or some yes some no.

Sub test()
    Dim formulaExists As Variant
    formulaExists = Range("A1:A2").HasFormula
    If IsNull(formulaExists) Then
        MsgBox "mixed"
    ElseIf formulaExists Then
        MsgBox "all have formula"
    Else
        MsgBox "none have formula"
    End If
End Sub

 

[venomatic]

certainly excellent work sir!
much obliged!

I'm not 100% sure on the last statement (although I've done a little if-else in C++ and C#), so I'll be reviewing it carefylly