countif cell back to 0

[jarhead58]

How can I return my count to "0" after using this formula

=MOD(COUNTIFS(F13:T21,R2)+COUNTIFS(F13:T21,"Ground out")+COUNTIFS(F13:T21,"Fly out")+COUNTIFS(F13:T21,"Foul out")-1,3)+1

when F13:T21 are cleared? TIA

 

[Scott T]

could you post the file again, it is working for me regardless of if I call it or put the code in each sub.

 

[jarhead58]

https://www.dropbox.com/s/8s9eu69b74f1lo0/Scorecardtemp.xlsm?dl=0

 

[Scott T]

I can not download file at work so I can not look at this until after work.

 

[jarhead58]

No problem!

 

[Scott T]

Since you are calling a sub in the sheet1 from a module use

Call Sheet1.curinning

 

[jarhead58]

Since you are calling a sub in the sheet1 from a module use

Call Sheet1.curinning

Thats got it! It's working the way I want....for now, until I find another tweak or 2 lol!!! Thanks so much for your time sir!!!

 

[jarhead58]

Quick question for you! I've been trying to find out how I am incrementing my hits but can't determine how. I might be a bit wore out but I do know that I have I2:K2 and N2:Q2 cells set "=1". The only thing even pointing at that area is Module 2. TIA

 

[jarhead58]

Quick question for you! I've been trying to find out how I am incrementing my hits but can't determine how. I might be a bit wore out but I do know that I have I2:K2 and N2:Q2 cells set "=1". The only thing even pointing at that area is Module 2. TIA

Nevermind, I definitely was tired. I somehow removed my formula for "Hits".

 

[jarhead58]

Good Morning Scott

Decided to try something that I thought should be another simple 'Call' from a module like before. Here is the code I used. The Sub called.

Sub ChangeColor()

    If Range("F13:T21" = "N2") Then
        Range("AD16").Interior.Color = RGB(255, 255, 0)
        Else
    End If
    
End Sub

and the call from the module

Sub basehit()    Worksheets("Score").Range("N2").Copy
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    Call Sheet1.ChangeColor
End Sub

I'm getting an runtime error 1004: Application defined or object defined error. What did I miss? BTW, it is in the same coding window as the curinning sub.

 

[jarhead58]

Good Morning Scott

Decided to try something that I thought should be another simple 'Call' from a module like before. Here is the code I used. The Sub called.

Sub ChangeColor()

    If Range("F13:T21" = "N2") Then
        Range("AD16").Interior.Color = RGB(255, 255, 0)
        Else
    End If
    
End Sub

and the call from the module

Sub basehit()    Worksheets("Score").Range("N2").Copy
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    Call Sheet1.ChangeColor
End Sub

I'm getting an runtime error 1004: Application defined or object defined error. What did I miss? BTW, it is in the same coding window as the curinning sub.

Ok, changed this

[COLOR=#333333]If Range("F13:T21" = "N2") Then[/COLOR]

to this

If Range("F13:T21").Value = Range("N2").Value Then

and now getting a Run Time error 13: Type mismatch