erro ao utilizar o operador E
Enviado: 01 Out 2018 às 09:36
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 ↓
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