Este fórum está sendo desativado

[Fydellys]

Olá,

Eu queria que alguém pudesse me ajudar interpretar este código pois não estou intendendo ele... por favor alguém poderia me ajudar e principalmente onde está em negrito.

Sub chamar()
If ProtegidoVBProject(ActiveWorkbook) Then

Else
sos
End If
Application.EnableEvents = False
Application.Visible = False
Dim cont, auxcont As Integer
Plan1.Range("c15485") = Date
If Plan1.Range("b15485") = nill Then
Plan5.Range("b15485") = Date
End If
cont = Format(Plan1.Range("c15485") - Plan1.Range("b15485"), "0")
auxcont = 9999 - cont
If cont >= 9999 Then
Application.Visible = False
UserForm.Show
Else
menu.Show
End If
End Sub


Att.

[laennder]

Código: Selecionar todos

Plan1.Range("c15485") = Date

A célula C15485 da Plan1 recebe o valor da data atual do sistema operacional.

Código: Selecionar todos

If Plan1.Range("b15485") = nill Then
Plan5.Range("b15485") = Date
End If

Se a célula B15485 da Plan1 estiver vazia, então ela recebe o valor da data atual também.

Código: Selecionar todos

cont = Format(Plan1.Range("c15485") - Plan1.Range("b15485"), "0")

Atribui a variável cont a diferença de dias entre as datas nas células C15485 e B15485, formatando para ser exibido no formato númerico.

[Fydellys]

Obrigado!!! Entendi