Trying to use CountIfs worksheet function in excel VBA









up vote
0
down vote

favorite












Im trying to search a range of data D8:D27 and count the number of entries that are greater than and less than two numbers that I have entered in F29 and F30 respectively. I cannot get the function to work properly. When I run it, it outputs 0 into L27 which is incorrect. I believe I have a syntax error but I cannot figure it out. Any help is appreciated. Thanks



Private Sub Calculation()

Dim MySum1 As Double
Dim UCL1 As Double
Dim LCL1 As Double

UCL1 = Range("F29")
LCL1 = Range("F30")

MySum1 = Application.WorksheetFunction.CountIfs(Range("D8:D27"), "> UCL1", 
Range("D8:D27"), "< LCL1")
Range("L27").Value = MySum1

End Sub


The sample data im using is below. F29 is 235.500 and F30 is 230.500



It should be outputting 4, but I am getting 0 for some reason.



233.232
232.183
233.634
231.342
235.684
231.883
233.931
233.755
232.119
231.543
236.423
233.517
234.653
234.444
231.298
235.755
230.223
233.782
233.511
233.987





excel vba excel-vba







share|improve this question























  • Looks like you should have ">" & CStr(UCL1) instead of "> UCL1"
    – Abdurrahim
    Nov 11 at 16:22











  • I made the changes you mentioned and its still outputting 0. I shared the data in the questions now so you can see exactly what im using. I would like it to count any entries > 235.500 and < 230.500. Thanks for the help.
    – CShield
    Nov 11 at 16:31











  • Wait! I think I figured it out. The countif is looking for a number that satisfies both conditions, which is no possible so thats why its 0. I need to seperate countifs, one for > and one for <. Then Ill add them together. Thanks for your help!
    – CShield
    Nov 11 at 16:35














up vote
0
down vote

favorite












Im trying to search a range of data D8:D27 and count the number of entries that are greater than and less than two numbers that I have entered in F29 and F30 respectively. I cannot get the function to work properly. When I run it, it outputs 0 into L27 which is incorrect. I believe I have a syntax error but I cannot figure it out. Any help is appreciated. Thanks



Private Sub Calculation()

Dim MySum1 As Double
Dim UCL1 As Double
Dim LCL1 As Double

UCL1 = Range("F29")
LCL1 = Range("F30")

MySum1 = Application.WorksheetFunction.CountIfs(Range("D8:D27"), "> UCL1", 
Range("D8:D27"), "< LCL1")
Range("L27").Value = MySum1

End Sub


The sample data im using is below. F29 is 235.500 and F30 is 230.500



It should be outputting 4, but I am getting 0 for some reason.



233.232
232.183
233.634
231.342
235.684
231.883
233.931
233.755
232.119
231.543
236.423
233.517
234.653
234.444
231.298
235.755
230.223
233.782
233.511
233.987





excel vba excel-vba







share|improve this question























  • Looks like you should have ">" & CStr(UCL1) instead of "> UCL1"
    – Abdurrahim
    Nov 11 at 16:22











  • I made the changes you mentioned and its still outputting 0. I shared the data in the questions now so you can see exactly what im using. I would like it to count any entries > 235.500 and < 230.500. Thanks for the help.
    – CShield
    Nov 11 at 16:31











  • Wait! I think I figured it out. The countif is looking for a number that satisfies both conditions, which is no possible so thats why its 0. I need to seperate countifs, one for > and one for <. Then Ill add them together. Thanks for your help!
    – CShield
    Nov 11 at 16:35












up vote
0
down vote

favorite









up vote
0
down vote

favorite











Im trying to search a range of data D8:D27 and count the number of entries that are greater than and less than two numbers that I have entered in F29 and F30 respectively. I cannot get the function to work properly. When I run it, it outputs 0 into L27 which is incorrect. I believe I have a syntax error but I cannot figure it out. Any help is appreciated. Thanks



Private Sub Calculation()

Dim MySum1 As Double
Dim UCL1 As Double
Dim LCL1 As Double

UCL1 = Range("F29")
LCL1 = Range("F30")

MySum1 = Application.WorksheetFunction.CountIfs(Range("D8:D27"), "> UCL1", 
Range("D8:D27"), "< LCL1")
Range("L27").Value = MySum1

End Sub


The sample data im using is below. F29 is 235.500 and F30 is 230.500



It should be outputting 4, but I am getting 0 for some reason.



233.232
232.183
233.634
231.342
235.684
231.883
233.931
233.755
232.119
231.543
236.423
233.517
234.653
234.444
231.298
235.755
230.223
233.782
233.511
233.987





excel vba excel-vba







share|improve this question















Im trying to search a range of data D8:D27 and count the number of entries that are greater than and less than two numbers that I have entered in F29 and F30 respectively. I cannot get the function to work properly. When I run it, it outputs 0 into L27 which is incorrect. I believe I have a syntax error but I cannot figure it out. Any help is appreciated. Thanks



Private Sub Calculation()

Dim MySum1 As Double
Dim UCL1 As Double
Dim LCL1 As Double

UCL1 = Range("F29")
LCL1 = Range("F30")

MySum1 = Application.WorksheetFunction.CountIfs(Range("D8:D27"), "> UCL1", 
Range("D8:D27"), "< LCL1")
Range("L27").Value = MySum1

End Sub


The sample data im using is below. F29 is 235.500 and F30 is 230.500



It should be outputting 4, but I am getting 0 for some reason.



233.232
232.183
233.634
231.342
235.684
231.883
233.931
233.755
232.119
231.543
236.423
233.517
234.653
234.444
231.298
235.755
230.223
233.782
233.511
233.987





excel vba excel-vba




excel vba excel-vba






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Nov 12 at 7:22









Pᴇʜ

19.9k42650




19.9k42650










asked Nov 11 at 16:16









CShield

12




12











  • Looks like you should have ">" & CStr(UCL1) instead of "> UCL1"
    – Abdurrahim
    Nov 11 at 16:22











  • I made the changes you mentioned and its still outputting 0. I shared the data in the questions now so you can see exactly what im using. I would like it to count any entries > 235.500 and < 230.500. Thanks for the help.
    – CShield
    Nov 11 at 16:31











  • Wait! I think I figured it out. The countif is looking for a number that satisfies both conditions, which is no possible so thats why its 0. I need to seperate countifs, one for > and one for <. Then Ill add them together. Thanks for your help!
    – CShield
    Nov 11 at 16:35
















  • Looks like you should have ">" & CStr(UCL1) instead of "> UCL1"
    – Abdurrahim
    Nov 11 at 16:22











  • I made the changes you mentioned and its still outputting 0. I shared the data in the questions now so you can see exactly what im using. I would like it to count any entries > 235.500 and < 230.500. Thanks for the help.
    – CShield
    Nov 11 at 16:31











  • Wait! I think I figured it out. The countif is looking for a number that satisfies both conditions, which is no possible so thats why its 0. I need to seperate countifs, one for > and one for <. Then Ill add them together. Thanks for your help!
    – CShield
    Nov 11 at 16:35















Looks like you should have ">" & CStr(UCL1) instead of "> UCL1"
– Abdurrahim
Nov 11 at 16:22





Looks like you should have ">" & CStr(UCL1) instead of "> UCL1"
– Abdurrahim
Nov 11 at 16:22













I made the changes you mentioned and its still outputting 0. I shared the data in the questions now so you can see exactly what im using. I would like it to count any entries > 235.500 and < 230.500. Thanks for the help.
– CShield
Nov 11 at 16:31





I made the changes you mentioned and its still outputting 0. I shared the data in the questions now so you can see exactly what im using. I would like it to count any entries > 235.500 and < 230.500. Thanks for the help.
– CShield
Nov 11 at 16:31













Wait! I think I figured it out. The countif is looking for a number that satisfies both conditions, which is no possible so thats why its 0. I need to seperate countifs, one for > and one for <. Then Ill add them together. Thanks for your help!
– CShield
Nov 11 at 16:35




Wait! I think I figured it out. The countif is looking for a number that satisfies both conditions, which is no possible so thats why its 0. I need to seperate countifs, one for > and one for <. Then Ill add them together. Thanks for your help!
– CShield
Nov 11 at 16:35

















active

oldest

votes











Your Answer






StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);













draft saved

draft discarded


















StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53250655%2ftrying-to-use-countifs-worksheet-function-in-excel-vba%23new-answer', 'question_page');

);

Post as a guest















Required, but never shown






























active

oldest

votes













active

oldest

votes









active

oldest

votes






active

oldest

votes















draft saved

draft discarded
















































Thanks for contributing an answer to Stack Overflow!


  • Please be sure to answer the question. Provide details and share your research!

But avoid …


  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.

To learn more, see our tips on writing great answers.





Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


Please pay close attention to the following guidance:


  • Please be sure to answer the question. Provide details and share your research!

But avoid …


  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.

To learn more, see our tips on writing great answers.




draft saved


draft discarded














StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53250655%2ftrying-to-use-countifs-worksheet-function-in-excel-vba%23new-answer', 'question_page');

);

Post as a guest















Required, but never shown





















































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown

































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown







-

這個網誌中的熱門文章

How to read a connectionString WITH PROVIDER in .NET Core?

圖片
6 I added .AddJsonFile("Connections.json", optional: true, reloadOnChange: true) in public Startup(IHostingEnvironment env) Connections.json contains: "ConnectionStrings": "DefaultConnection": "Server=(localdb)\mssqllocaldb;Database=DATABASE;Trusted_Connection=True;MultipleActiveResultSets=true", "COR-W81-101": "Data Source=DATASOURCE;Initial Catalog=P61_CAFM_Basic;User Id=USERID;Password=PASSWORD;Persist Security Info=False;MultipleActiveResultSets=False;Packet Size=4096;", "COR-W81-100": "Data Source=DATASOURCE;Initial Catalog=Post_PS;User Id=USERID;Password=PASSWORD;Persist Security Info=False;MultipleActiveResultSets=False;Packet Size=4096;", "MSEDGEWIN10": "Data Source=DATASOURCE; Initial Catalog=COR_Basic; Persist Security Info=False;Integrated Security=true;MultipleActiveResultSets=False;Packet Size=4096;Application Name="COR_Basic"", "server&qu
閱讀完整內容

In R, how to develop a multiplot heatmap.2 figure showing key labels successfully

圖片
1 2 I'm trying to develop a multiplot heatmap.2 saved to a pdf. I'm having some success but the axis labels are getting chopped off. Subplot titles are also desirable but again the labels are getting chopped. Here's my reproducible code: library(gridExtra) library(grid) library(gridGraphics) library(gplots) Col = colorRampPalette(c("red","orange","yellow", "white")) grab_grob <- function() grid.echo() grid.grab() par(cex.main=0.1, mar = c(1,1,1,1) ) #data<-read.table("heatmap.input.matrix.data.txt") lmat = rbind(c(2,3),c(4,1),c(4,1)) lwid = c(2.5,4) lhei = c(0.5,4,3) labRowvec <- c(rep(NULL, dim(matrix(runif(1000, 1,10),ncol=50))[1])) labColvec <- c(rep(NULL, dim(matrix(runif(1000, 1,10),ncol=50))[2])) gl <- lapply(1:12, function(i) heatmap.2(matrix(runif(1000, 1,10),ncol=50), dendrogram = "none",offsetRow=-0.5, offsetCol=-1,srtCol=0, density="density", lmat =lmat,lhei = l
閱讀完整內容

Museum of Modern and Contemporary Art of Trento and Rovereto

圖片
Art museum in Rovereto TN, Italy Museum of Modern and Contemporary Art of Trento and Rovereto Museo d'arte moderna e contemporanea di Trento e Rovereto MART, Entrance Location Corso Angelo Bettini, 43, 38068 Rovereto TN, Italy Coordinates 45°53′38″N 11°02′42″E  /  45.8940°N 11.0450°E  / 45.8940; 11.0450 Coordinates: 45°53′38″N 11°02′42″E  /  45.8940°N 11.0450°E  / 45.8940; 11.0450 Type Art museum Director Gianfranco Maraniello Public transit access Trento train station. Taxis outside station. Website mart.trento.it The Museum of Modern and Contemporary Art of Trento and Rovereto (MART) ( Museo d'Arte Moderna e Contemporanea di Trento e Rovereto , in Italian) is a museum centre in the Italian province of Trento. The main site is in Rovereto, and contains mostly modern and contemporary artworks, including works from renowned Giorgio Morandi, Giorgio de Chirico, Felice Casorati, Carlo Carrà and Fortunato Depero. Fortunato Depero's house in Rovereto (known as Casa d
閱讀完整內容