DataDif

A função DataDif é usada para calcular a diferença entre duas datas.
No exemplo a seguir é calculada a diferença entre a data da célula “B1″ e “B2″

selecione a célula “B3″ e digite:

=DATADIF(B1;B2;”Y”)& ” Anos “&DATADIF(B1;B2;”YM”)&” Meses e “&DATADIF(B1;B2;”MD”)&” Dias”

“&” são operadores de concatenação.

Forçar Letras Maiúsculas

Option Explicit
Dim FLAG As Boolean

Public Sub Worksheet_Change(ByVal Target As Range)
‘Função para entrar converter letras minusculas em maiusculas
Dim MaiscStr As String, C1, C2

Select Case Target.Cells.Count
Case Is > 1
For Each C1 In Range(Target.Address)
For Each C2 In Range(“A1:A10″) ‘Intervalo pode ser alterado
If C1.Address = C2.Address Then
If FLAG Then
MsgBox FLAG
Selection.Delete
FLAG = Not FLAG
Exit Sub
End If
MsgBox “Não é permitido arrastar e/ou ” & _
“selecionar” & vbCr & “várias células ” & _
“Neste intervalo.”, vbInformation, “Aviso”
Desfaz
Exit Sub
End If
Next C2
Next C1
Exit Sub
Case Else
If Application.Intersect(Range(Target.Address), _
Range(“A1:A10″)) Is Nothing Or _
Target.Value = “” Then Exit Sub ‘ o intervalo pode ser alterado
End Select

With Target
If .HasFormula = False Then
MaiscStr = UCase(.Value)
Application.EnableEvents = False
.Value = (MaiscStr)
End If
End With
Application.EnableEvents = True
End Sub

Sub Desfaz()
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub

Download da planilha