Preciso de uma ajuda.
Eu tenho uma planilha desta forma:
E quero limitar quantidade de caracteres e o tipo
Na coluna segment quero limitar em 6 caracteres, se for menos que 6 ou mais que 6. Retorna a msg "Limite de caracteres não atingido"
Na coluna date quero limitar a tipo date em 8 caracteres,se for menos que 8 ou mais que 8. Retorna a msg "Limite de caracteres não atingido"
E na coluna number quero limitar a tipo numero em 4 caracteres,se for menos que 4 ou mais que 4. Retorna a msg "Limite de caracteres não atingido"
Eu comecei a escrever algo, mas não estou enxergando aonde estou errando. E sinceramente há muito tempo não escrevo codigo VBA
Não estou lembrada como selecionar a coluna e colocar a macro.
'Se não houver 4 números' If IntTamanho <> 4 Then MsgBox "Limite de Caracteres não Atingido ", vbCritical Application.EnableEvents = False Rng.ClearContents Application.EnableEvents = True Se alguem puder ajudar, eu já agradeço
Código está assim:
Sub LimitarCaractere()
Dim TRACKER As Workbook '<-- Tracker
Dim MARKET As Worksheet '<-- Aba
Dim i As Long '<-- Linha selecionada
Dim SEGM As String '<-- Segment
Dim FLT As Integer '<-- Flight
Dim Ddate As Date '<-- Date
Set TRACKER = ActiveWorkbook
Set MARKET = TRACKER.ActiveSheet
i = ActiveCell.Row
'Limita o número de cacteres na célula
If i > 6 Then
ActiveCell = Left(ActiveCell, 6)
MsgBox "Limite de caracteres Ultrapassado na Célula: " _
& ActiveCell
End If
End Sub
Obrigada