Este fórum está sendo desativado

[Sandman]

bom dia pessoal, estou com um problema que não estou entendendo sinceramente oq acontece, seguinte a ideia é simples, se o mes e o ano forem iguais aos parametros passados no inputbox, é contado, senão não....porem quando eu uso o E e verifico o ano e mes a funcao nao funciona, e se eu tiro o E e verifico somente o mes a funcao funciona, ate usei debug.print para ver se os valores estavam sendo passados e realmente estao mas nao sei pq nao funciona, será que é pq é no excel 2007?
enfim qualquer ajuda é bem vinda
desde já agradeço e segue o código ↓

Código: Selecionar todos

Sub contarMes()
    
    Dim cont, mes, ano As Integer
    cont = 0
    mes = 0
    ano = 0
    
    mes = InputBox("Digite o número do mês desejado...", "Controle de Atendimentos")
    ano = InputBox("Digite o número do ano desejado...", "Controle de Atendimentos")
    
    Plan3.Select
    [a3].Select
    
    While ActiveCell.Value <> ""
        
        Debug.Print Month(ActiveCell.Value)
        Debug.Print Year(ActiveCell.Value)
        
        If Month(ActiveCell.Value) = mes And Year(ActiveCell.Value) = ano Then
            cont = cont + 1
        End If
        ActiveCell.Offset(1, 0).Select
    Wend
    
    MsgBox ("Houveram " & cont & " Atendimentos nesse mês!!!" & vbNewLine & "A média diária de atendimentos por dia é de " & Round(cont / 22, 2) & " atendimentos")

End Sub

[JCabral]

Sandman coloque um exemplo é mais fácil para ajudar

[JCabral]

Sandman, tente substituir

Código: Selecionar todos

If Month(ActiveCell.Value) = mes And Year(ActiveCell.Value) = ano

por

Código: Selecionar todos

If Month(ActiveCell.Value) = CInt(mes) And Year(ActiveCell.Value) = CInt(ano)

[Sandman]

era isso mesmo JCabral,
muito obrigado mesmo meu brother