|
Login

TOPIC: personalizzare una stringa

personalizzare una stringa 4 years 1 month ago #10731

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
Ciao
eccoti il file.



Ciao,
Mario
The administrator has disabled public write access.

personalizzare una stringa 4 years 1 month ago #10732

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
Ciao
Riprovo ad allegare il file

File Attachment:

File Name: test_VBA.xlsm
File Size: 14 KB


Ciao,
Mario
The administrator has disabled public write access.
The following user(s) said Thank You: andrea88

personalizzare una stringa 4 years 1 month ago #10733

  • andrea88
  • andrea88's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 15
  • Karma: -1
Ciao Mario,
bravo, è quello che volevo. Grazie! Solo una piccola piccola cosa. Quando scrivo i 4 numeri mi scala sulla cella successiva appena sotto avendo cosi due righe della stessa ID. L'unica soluzione secondo te è nasconderla?
The administrator has disabled public write access.

personalizzare una stringa 4 years 1 month ago #10734

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
Ciao Andrea
Come sarebbe
Quando scrivo i 4 numeri mi scala sulla cella successiva appena sotto avendo cosi due righe della stessa ID.
La macro che t'ho indicato non fa altro che controllare che le cifre siano 4 e, in caso positivo, premette la scritta e incolla il tutto nella cella. Non c'è nulla che possa far riscrivere l'ID nella cella sottostante.

A meno che non ci sia qualche altro codice nel tuo file che si incrocia con quello mio.

Fai sapere. Ciao,
Mario
The administrator has disabled public write access.

personalizzare una stringa 4 years 1 month ago #10735

  • andrea88
  • andrea88's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 15
  • Karma: -1
Ciao,
dunque ti spiego allegando anche il file. Ho due problemi da risolvere dopodiché il tutto diventerà perfetto. Il primo (come vedrai sulla sheet) è che non vorrei vedere prima il numero (es.4512) e poi sotto il codice (PTT-4512) perchè diventa una ripetizione dello stesso ID. Poi secondo problema ma meno difficile, il codice associato a PTT- può essere da 1 a 4 non solo 4. Se riusci a risolvere queste due cosettine il risultato è perfetto e posso tra l'altro utilizzarlo da subito.
Attachments:
The administrator has disabled public write access.

personalizzare una stringa 4 years 1 month ago #10736

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
Ciao Andrea
scoperto l'arcano!
Tu hai impostato il tuo PC che quando clicchi su Enter/Invio ti sposta la cella attiva in basso. Per controllare quanto detto clicca sul logo di Excel in alto a sinistra, nella videata che si apre, in basso, clicca su Opzioni di Excel, nell'elenco a sinistra clicca su Impostazioni avanzate. La prima riga del riquadro Opzioni di modifica dovrebbe essere flaggata. Se togli la spunta la macro così come è adesso funziona.

Se lasci spuntato la macro devi sostituirla con quella che ti posto adesso.
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                 '<== riga aggiunta
        If Len(Target) <= 4 Then              '<== riga modificata
            ActiveCell = "PTT-" & Target.Text
            Target.Select                     '<== riga aggiunta
        Else
            MsgBox "L'inserimento NON è di 4 cifre"
            Target.Select                     '<== riga aggiunta
            ActiveCell = ""
            Target.Select                     '<== riga aggiunta
        End If
    Else                                      '<== riga aggiunta
        MsgBox "L'inserimento NON è una cifra" '<== riga aggiunta
        Target.Select                         '<== riga aggiunta
        ActiveCell = ""                       '<== riga aggiunta
        Target.Select                         '<== riga aggiunta
    End If
        Application.EnableEvents = True
End If
End Sub

Ti ho indicato le righe che ho modificato/aggiunto.
La riga modificata permette l'inserimento fino ad un massimo di 4 cifre. La prima riga aggiunta NON consente l'inserimento di caratteri che non siano cifre.

Riallego il file. Prova e fai sapere.
Ciao,
Mario

File Attachment:

File Name: test_VBA_bis.xlsm
File Size: 15 KB
The administrator has disabled public write access.
Time to create page: 0.335 seconds