VBA

Num newsgroup de Excel, perguntou-se como se poderia criar uma mensagem no Outlook, para avisar determinada pessoa, que já passaram mais do que três dias sobre a data limite e que, por, isso, essa pessoa deveria contactar os serviços, com urgência. Supondo que, em A1, temos a data inicial, ou seja, a data limite (no exemplo: 07-03-2007) e que, em B1, …

Se pretendermos, ao abrir um workbook, que a célula (resultado da diferença entre duas datas) que contenha um resultado igual ou superior a x dias (no exemplo, 27) apresente uma coloração ( no exemplo, azul) e um comentário, que desaparecerão (coloração e comentário) se a diferença for inferior,  como no exemplo:     podemos utilizar o seguinte Código: Private Sub Workbook_Open()    Dim r As …

Uma pequena adaptação ao post anterior para mostrar como é que se pode apresentar, no comentário, quantos dias já passaram sobre determinada data (cfr. exemplo):     O Código, adaptado:   Private Sub Workbook_Open()    Dim r As Long    Dim temp, temp1 As String     temp = "Atenção!!! Já passaram "     temp1 = " dias sobre o início da baixa!"     For r = Range("C1:C10").Count …

Se pretendermos efectuar uma ordenação por escolha através de uma InputBox, como no exemplo:   para o resultado:   ou:   para o resultado:   podemos utilizar o seguinte código:   Sub Ordena()'' Macro recorded 04-04-2007 by JRod' '     Dim Choice As String    Choice = InputBox("Ordenar por:")    If Choice = "data" Then        Range("A2:B6").Select        Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _                       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _                       DataOption1:=xlSortNormal    ElseIf Choice …

Uma pequena adaptação ao post anterior para mostrar como é que se pode apresentar, no comentário, quantos dias já passaram sobre determinada data (cfr. exemplo):     O Código, adaptado:   Private Sub Workbook_Open()    Dim r As Long    Dim temp, temp1 As String     temp = "Atenção!!! Já passaram "     temp1 = " dias sobre o início da baixa!"     For r = Range("C1:C10").Count …