Hello all,

I have the code below and it is not working ?

I get a compile error: Sub or function not defined and COUNTIF is highlited ?

Any help woud be appreciated

Sub testToC()
'
Dim poDelay As Variant, lstCell As Long

lstCell = Cells(Rows.Count, "A").End(xlUp).Row
poDelay = CountIf("Q3:Q" & lstCell, ">14")

End Sub

--
Les

Hi Les,

Use

Application.Countif(Range"Q3

etc
"Les" <(E-Mail Removed)> wrote in message news:6E18A151-0B78-4F11-ABE7-(E-Mail Removed)...
| Hello all,
|
| I have the code below and it is not working ?
|
| I get a compile error: Sub or function not defined and COUNTIF is highlited ?
|
| Any help woud be appreciated
|
| Sub testToC()
| '
| Dim poDelay As Variant, lstCell As Long
|
| lstCell = Cells(Rows.Count, "A").End(xlUp).Row
| poDelay = CountIf("Q3:Q" & lstCell, ">14")
|
| End Sub
|
| --
| Les

Since CountIf is a worksheet function, you have to preceed it with

Application.Worksheetfunction.CountIf(etcetera


greetings

"Les" <(E-Mail Removed)> schreef in bericht
news:6E18A151-0B78-4F11-ABE7-(E-Mail Removed)...
> Hello all,
>
> I have the code below and it is not working ?
>
> I get a compile error: Sub or function not defined and COUNTIF is
> highlited ?
>
> Any help woud be appreciated
>
> Sub testToC()
> '
> Dim poDelay As Variant, lstCell As Long
>
> lstCell = Cells(Rows.Count, "A").End(xlUp).Row
> poDelay = CountIf("Q3:Q" & lstCell, ">14")
>
> End Sub
>
> --
> Les

Hi Niek,

Thank you for your reply, that works but the variable gives me an error:2015 ?

--
Les


"Niek Otten" wrote:

> Hi Les,
>
> Use
>
> Application.Countif(Range"Q3
>
> etc
> "Les" <(E-Mail Removed)> wrote in message news:6E18A151-0B78-4F11-ABE7-(E-Mail Removed)...
> | Hello all,
> |
> | I have the code below and it is not working ?
> |
> | I get a compile error: Sub or function not defined and COUNTIF is highlited ?
> |
> | Any help woud be appreciated
> |
> | Sub testToC()
> | '
> | Dim poDelay As Variant, lstCell As Long
> |
> | lstCell = Cells(Rows.Count, "A").End(xlUp).Row
> | poDelay = CountIf("Q3:Q" & lstCell, ">14")
> |
> | End Sub
> |
> | --
> | Les
>
>
>

This seems to work, although I don't have your data

Sub testToC()
'
Dim poDelay As Variant, lstCell As Long

lstCell = Cells(Rows.Count, "A").End(xlUp).Row
poDelay = Application.CountIf(Range("Q3:Q" & lstCell), ">14")

End Sub


--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"Les" <(E-Mail Removed)> wrote in message news:2F083F65-B256-4AFE-865B-(E-Mail Removed)...
| Hi Niek,
|
| Thank you for your reply, that works but the variable gives me an error:2015 ?
|
| --
| Les
|
|
| "Niek Otten" wrote:
|
| > Hi Les,
| >
| > Use
| >
| > Application.Countif(Range"Q3
| >
| > etc
| > "Les" <(E-Mail Removed)> wrote in message news:6E18A151-0B78-4F11-ABE7-(E-Mail Removed)...
| > | Hello all,
| > |
| > | I have the code below and it is not working ?
| > |
| > | I get a compile error: Sub or function not defined and COUNTIF is highlited ?
| > |
| > | Any help woud be appreciated
| > |
| > | Sub testToC()
| > | '
| > | Dim poDelay As Variant, lstCell As Long
| > |
| > | lstCell = Cells(Rows.Count, "A").End(xlUp).Row
| > | poDelay = CountIf("Q3:Q" & lstCell, ">14")
| > |
| > | End Sub
| > |
| > | --
| > | Les
| >
| >
| >

That cracked it thanks very much... ;-0)

--
Les


"Niek Otten" wrote:

> This seems to work, although I don't have your data
>
> Sub testToC()
> '
> Dim poDelay As Variant, lstCell As Long
>
> lstCell = Cells(Rows.Count, "A").End(xlUp).Row
> poDelay = Application.CountIf(Range("Q3:Q" & lstCell), ">14")
>
> End Sub
>
>
> --
> Kind regards,
>
> Niek Otten
> Microsoft MVP - Excel
>
> "Les" <(E-Mail Removed)> wrote in message news:2F083F65-B256-4AFE-865B-(E-Mail Removed)...
> | Hi Niek,
> |
> | Thank you for your reply, that works but the variable gives me an error:2015 ?
> |
> | --
> | Les
> |
> |
> | "Niek Otten" wrote:
> |
> | > Hi Les,
> | >
> | > Use
> | >
> | > Application.Countif(Range"Q3
> | >
> | > etc
> | > "Les" <(E-Mail Removed)> wrote in message news:6E18A151-0B78-4F11-ABE7-(E-Mail Removed)...
> | > | Hello all,
> | > |
> | > | I have the code below and it is not working ?
> | > |
> | > | I get a compile error: Sub or function not defined and COUNTIF is highlited ?
> | > |
> | > | Any help woud be appreciated
> | > |
> | > | Sub testToC()
> | > | '
> | > | Dim poDelay As Variant, lstCell As Long
> | > |
> | > | lstCell = Cells(Rows.Count, "A").End(xlUp).Row
> | > | poDelay = CountIf("Q3:Q" & lstCell, ">14")
> | > |
> | > | End Sub
> | > |
> | > | --
> | > | Les
> | >
> | >
> | >
>
>
>