VBA formula, "D" in the cell, so Count if is ""D"", but thats an error

[Tinkerz]

Hi

Worksheets("Calculations").Range("C5").Offset(0, offsetcounter) = Application.WorksheetFunction.CountIf(Worksheets(wsnew.Name).Range("R:R"), ""D"")

I am trying to do a CountIf statement, the criterea is "D", thats in the Cell, this is a download so I cant change it, is there a simple workaround, because I need to write in the Countif statement ""D"" for it to be seen as a string "D" wont find the Counts.

Thanks

 

[Weaver]

In this application, I don't believe you need the duplicated speech marks around the D, which you probably would if you were inserting the formula into a cell.

Application.WorksheetFunction.CountIf(Worksheets(wsnew.Name).Range("R:R"), "D")

 

[Tinkerz]

The Cells in the range contains "D", not D

so the critera for the formula need to be ""D"", to register as a string in the countif critera

Thanks

 

[Jonmo1]

Believe it or not, you need TRIPLE quotes

Application.WorksheetFunction.CountIf(Worksheets(wsnew.Name).Range("R:R"), """D""")

 

[Jonmo1]

Just a sidenote, this is redundant
Worksheets(wsnew.Name).Range("R:R")

The whole purpose of creating a worksheet object is to avoid having to use
Worksheets("name")...

This will suffice
wsnew.Range("R:R")