Boa tarde.
Estou com um problema no seguinte código (quando coloco a condição indexada ao valor de uma célula, apesar do VBA ler o valor - ao testar o código, ao executar o código não funciona corretamente). Se colocar a condição com o valor fixo 8 e 16, aí a macro já executa os passos corretamente:
Sub Auto_Close()
Dim Today
Dim cellc_n5 As String
Dim cellc_n6 As String
cellc_n5 = ThisWorkbook.Worksheets("Multas").Range("n5:n5").Value
cellc_n6 = ThisWorkbook.Worksheets("Multas").Range("n6:n6").Value
Worksheets("Multas").Activate
Today = Format(Now, "d")
'If Today > cellc_n5 And Today < cellc_n6 Then
If Today > 8 And Today < 16 Then
Call envia_email_quotas_atraso
Else
'If Today > cellc_n6 Then
If Today > 16 Then
Worksheets("emails").Activate
....
Obrigado pelo tempo despendido.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Auto Close Macro (IF...)
-
- Acabou de chegar
- Mensagens: 9
- Registrado em: Dom Jan 22, 2017 8:02 pm
-
- Manda bem
- Mensagens: 168
- Registrado em: Sáb Set 24, 2016 4:48 pm
Re: Auto Close Macro (IF...)
Colega, já passei por algo semelhante...
no meu caso ocorreu porque eu declarei a variável incorretamente.
Veja se vc declarou como uma string e quer a leitura de uma integer?
Desconfiei disso, pois vc comentou que quando fixa "16" a função executa...
Vc pode testar... veja quando o número vem carregado pela variável, tal número vem cercado de aspas "16",
se vem, então esta lendo como caractere e não como número...
Veja aí e retorne com os resultados, abs!
no meu caso ocorreu porque eu declarei a variável incorretamente.
Veja se vc declarou como uma string e quer a leitura de uma integer?
Desconfiei disso, pois vc comentou que quando fixa "16" a função executa...
Vc pode testar... veja quando o número vem carregado pela variável, tal número vem cercado de aspas "16",
se vem, então esta lendo como caractere e não como número...
Veja aí e retorne com os resultados, abs!
-
- Acabou de chegar
- Mensagens: 9
- Registrado em: Dom Jan 22, 2017 8:02 pm