Ter, eu não tenho o código, mas, creio que poderia ser algo assim:
Dim Protocolo As String
Dim UL As Integer 'Última Linha
UL = Sheets("Plan1").Range("A" & Rows.Count).End(xlUp).Row
Protocolo = Len(Cells(UL, "A").Value)
If Protocolo = 0 Then
Protocolo = 1
UL = 0
Else
Protocolo = Left(Cells(UL, "A").Value, Protocolo - 7)
Protocolo = Protocolo + 1
End If
Protocolo = Protocolo & "/" & Format(Date, "ddmmyy")
Cells(UL + 1, "A") = Protocolo
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 26/02/2014 2:59 pm