| Descricao: |  Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, verifica inconsistência de digitação do total de caracteres em determinada celula, se form maior ao número permitido, retorna uma mensagem de erro, mostrando o total correto que contém o valor digitado.
Sub verifica_quantidade_de_caracteres()
If Len(ActiveCell.Value) >= 9 Then
MsgBox "Este numero [ " & ActiveCell.Value _
& " ] contem mais de nove caracteres , contém [ " _
& Len(ActiveCell) & " ] caracteres", vbCritical, "Saberexcel - o site das macros"
'ActiveCell.Value = "" 'limpa os valores da célula ativa
'ActiveCell.Activate 'retorna o foco para digitação ativando a célula
End If
End Sub
Aprenda tudo sobre Aplicativo Microsoft Excel VBA com SaberExcel
|