|
Login

TOPIC: personalizzare una stringa

personalizzare una stringa 4 years 1 month ago #10738

  • andrea88
  • andrea88's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 15
  • Karma: -1
ciao mario,
continua a non funzionare. ti allego il file con la prova
Attachments:
The administrator has disabled public write access.

personalizzare una stringa 4 years 1 month ago #10739

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
Ciao Andrea
Da me funziona benissimo.
Ho notato, però che potrebbe trattarsi di una riga mancante. Ti allego la macro (ho evidenziato la riga aggiunta).
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    Application.EnableEvents = False
    If IsNumeric(Target) Then
        If Len(Target) <= 4 Then
            Target.Select          '<== riga aggiunta
            ActiveCell = "PTT-" & Target.Text
            Target.Select
        Else
            MsgBox "L'inserimento NON è di 4 cifre"
            Target.Select
            ActiveCell = ""
            Target.Select
        End If
    Else
        MsgBox "L'inserimento NON è una cifra"
        Target.Select
        ActiveCell = ""
        Target.Select
    End If
    Application.EnableEvents = True
End If
End Sub

Prova ancora e fai sapere.
Ciao,
Mario
The administrator has disabled public write access.

personalizzare una stringa 4 years 1 month ago #10740

  • andrea88
  • andrea88's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 15
  • Karma: -1
Finalmente ci siamo. Risultato perfetto. Bravo! ;)
The administrator has disabled public write access.

personalizzare una stringa 4 years 1 month ago #10742

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
Grazie per il gradito riscontro.
Son contento per te.
Ciao,
Mario
The administrator has disabled public write access.
Time to create page: 0.490 seconds