Pessoal tenho um arquivo no qual montei meu primeiro projeto abaixo onde assim que abre o arquivo lê a data defult do Computador e atualiza um cálculo para projeção em gráfico.
Acontece que ele faz apenas até uma certa data. como posso configurar para que ele calcule apenas a partir do momento em que o arquivo for aberto? nas sheets ja existe a forumula de cálculo, porém queria que somente calcula-se quanto for aberto o arquivo é calcule até a data anterior (que é onde estaremos vendo os resultados até o dia de ontem por exemplo).
Public Sub CalculaDesvio()
hoje = Date$
hoje = Format(hoje, "dd/mmm")
For n = 66 To 90
celula = Chr(n)
celdata = celula & "2"
celrac = celula & "5"
celreal = celula & "6"
celula = celula & "7"
dataplan = Format(CDate(Range(celdata).Value), "dd/mmm")
If dataplan < hoje Then
Range(celula).Value = (Range(celreal).Value / Range(celrac).Value) - 1
End If
Next n
For n = 65 To 70
celula = "A" & Chr(n)
celdata = celula & "2"
celrac = celula & "5"
celreal = celula & "6"
celula = celula & "7"
dataplan = Format(CDate(Range(celdata).Value), "dd/mmm")
If dataplan < hoje Then
Range(celula).Value = (Range(celreal).Value / Range(celrac).Value) - 1
End If
Next n
End Sub
Public Sub CalculaDesvio()
hoje = Date$
hoje = Format(hoje, "dd/mm - ddd")
For n = 4 To 34
celula = "k" & n
celdata = "a" & n
celrac = "g" & n
celreal = "h" & n
dataplan = Format(CDate(Range(celdata).Value), "dd/mm - ddd")
If dataplan > hoje Then
Range(celula).Value = (Range(celreal).Value / Range(celrac).Value) - 1
End If
Next n
For n = 4 To 34
celula = "u" & n
celdata = "a" & n
celrac = "q" & n
celreal = "r" & n
dataplan = Format(CDate(Range(celdata).Value), "dd/mm - ddd")
If dataplan > hoje Then
Range(celula).Value = (Range(celreal).Value / Range(celrac).Value) - 1
End If
Next n
For n = 4 To 34
celula = "ae" & n
celdata = "a" & n
celrac = "aa" & n
celreal = "ab" & n
dataplan = Format(CDate(Range(celdata).Value), "dd/mm - ddd")
If dataplan > hoje Then
Range(celula).Value = (Range(celreal).Value / Range(celrac).Value) - 1
End If
Next n
For n = 4 To 34
celula = "ap" & n
celdata = "a" & n
celrac = "al" & n
celreal = "am" & n
dataplan = Format(CDate(Range(celdata).Value), "dd/mm - ddd")
If dataplan > hoje Then
Range(celula).Value = (Range(celreal).Value / Range(celrac).Value) - 1
End If
Next n
For n = 4 To 34
celula = "ba" & n
celdata = "a" & n
celrac = "aw" & n
celreal = "ax" & n
dataplan = Format(CDate(Range(celdata).Value), "dd/mm - ddd")
If dataplan > hoje Then
Range(celula).Value = (Range(celreal).Value / Range(celrac).Value) - 1
End If
Next n
For n = 4 To 34
celula = "bl" & n
celdata = "a" & n
celrac = "bh" & n
celreal = "bi" & n
dataplan = Format(CDate(Range(celdata).Value), "dd/mm - ddd")
If dataplan > hoje Then
Range(celula).Value = (Range(celreal).Value / Range(celrac).Value) - 1
End If
Next n
For n = 4 To 34
celula = "bw" & n
celdata = "a" & n
celrac = "bs" & n
celreal = "bt" & n
dataplan = Format(CDate(Range(celdata).Value), "dd/mm - ddd")
If dataplan > hoje Then
Range(celula).Value = (Range(celreal).Value / Range(celrac).Value) - 1
End If
Next n
For n = 4 To 34
celula = "cg" & n
celdata = "a" & n
celrac = "cc" & n
celreal = "cd" & n
dataplan = Format(CDate(Range(celdata).Value), "dd/mm - ddd")
If dataplan > hoje Then
Range(celula).Value = (Range(celreal).Value / Range(celrac).Value) - 1
End If
Next n
For n = 4 To 34
celula = "cr" & n
celdata = "a" & n
celrac = "cn" & n
celreal = "co" & n
dataplan = Format(CDate(Range(celdata).Value), "dd/mm - ddd")
If dataplan > hoje Then
Range(celula).Value = (Range(celreal).Value / Range(celrac).Value) - 1
End If
Next n
For n = 4 To 34
celula = "cw" & n
celdata = "a" & n
celrac = "cu" & n
celreal = "cv" & n
dataplan = Format(CDate(Range(celdata).Value), "dd/mm - ddd")
If dataplan > hoje Then
Range(celula).Value = (Range(celreal).Value / Range(celrac).Value) - 1
End If
Next n
For n = 4 To 34
celula = "da" & n
celdata = "a" & n
celrac = "cy" & n
celreal = "cz" & n
dataplan = Format(CDate(Range(celdata).Value), "dd/mm - ddd")
If dataplan > hoje Then
Range(celula).Value = (Range(celreal).Value / Range(celrac).Value) - 1
End If
Next n
End Sub