Aggiungere codice in un Foglio excel ad uno ivi già esistente

Question

Salve Forum

Ad un codice già  inserito in una scheda di un Foglio Excel, vorrei aggiungere anche il seguente codice, al fine di ottenere anche la scrittura tutta in maiuscolo. Ho provato e riprovato a inserire il predetto codice in aggiunta al già esistente, ma non riesco, il codice vigente è il seguente:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If gblnOnUpdate Then

      'On Error Resume Next

      With Me

        .Application.EnableEvents = False

        .Range(gcstrRGAddr).Value = gcstrRGText

        .Range(gcstrPCAddr).Value = gcstrPCText

        .Application.Goto .Range(gcstrLstAddr), False

        .Range(gcstrUpdAddr).Select

        .Protect

        .Application.EnableEvents = True

      End With

      gblnOnUpdate = False

    End If

End Sub

 Mentre quello di aggiungere, sempre nella stessa scheda è:

'==========>>

Option Explicit

'---------->>

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rCell As Range

On Error GoTo XIT

Application.EnableEvents = False

For Each rCell In Target.Cells

With rCell

If Not .HasFormula Then

.Value = UCase(.Value)

End If

End With

Next rCell

XIT:

Application.EnableEvents = True

End Sub

'<<==========

DOMANDA: l’aggiunta del codice nello stesso Foglio è possibile farla**?**

ringrazio, saluti Paolo

Answer 1

Ciao Paolo Nigro,

rischiamo di fare confusione mischiando le questioni.

Io direi che questo thread si potrebbe chiudere qui, e se segni Risposta è evidente a tutti che è chiuso.

L'altro discorso lo continuerei nel thread che mi pare si intitolasse "Ordinare per cognome", dove ti pregherei di appendere un nuovo post ripetendo le stesse cose scritte a questo al quale sto rispondendo. Così ho sott'occhio tutte le questioni dibattute, senza dover saltapicchiare da un thread all'altro, perché se tu segui solo i tuoi thread io invece ne seguo decine e rischio di far confusione perché l'età avanza, oh se avanza!...

Grazie!

Answer 2

Ciao Maurizio

Premetto che questa mia richiesta è da applicare su una tua realizzazione relativa al mio post del 13/04/2015 denominato “Ordinare per Cognome”, ciò premesso, ti comunico che ho applicato il tuo nuovo codice nella scheda interessata di quel file da te realizzato e, dopo il test, la conversione da minuscolo a maiuscolo avviene correttamente;  nel predetto file risultano comunque le  seguenti nuove incongruenze:

1. Dopo aver trascritto dei dati in un record del range “A:G” ed azionando il pulsante “Aggiorna”, succede che il record in questione viene ordinato in maniera corretta ma senza riportare nella cella della colonna “M” la data di nascita già trascritta nella cella della Colonna “E”;
2. La Colonna “I” (denominata: R.G.) ordina regolarmente i dati trascritti nella Colonna “A”, ma senza riportare la formattazione condizionale del colore rosa (che, quando si accende, a me indica che quel numero non è univoco);
3. Ho notato che se scrivo nella colonna “G” il dato “1/31” esso mi diventa gen-31, per ovviare a quest’incongruenza (che tra l’altro nella colonna “O” mi restituisce il dato da “1/31” in “11324”),  ritengo di poter chiedere di dare a tutte le colonne la formattazione TESTO;
4. In ultimo, se nel range “A:G” registro dei dati in più record con lo stesso numero di “R.G.”, succede che, se per un qualsiasi motivo ho esigenza di cancellarli, i dati ovviamente vanno via ma rimangono erroneamente le celle accese del colore rosa della formattazione condizionale che, a quel punto, non deve avere più motivo di esserci.

Ciao, a dopo, Paolo

Answer 3

Ciao Paolo Nigro,

vedi se così ottieni quello che ti proponi:

Private Sub Worksheet_Change(ByVal Target As Range)

    If gblnOnUpdate Then

      With Me

        .Application.EnableEvents = False

        .Range(gcstrRGAddr).Value = gcstrRGText

        .Range(gcstrPCAddr).Value = gcstrPCText

        .Application.Goto .Range(gcstrLstAddr), False

        .Range(gcstrUpdAddr).Select

        .Protect

        .Application.EnableEvents = True

      End With

      gblnOnUpdate = False

      Exit Sub

    End If

    Dim rCell As Range

    On Error GoTo XIT

    Application.EnableEvents = False

    For Each rCell In Target.Cells

      With rCell

        If Not .HasFormula Then

          .Value = UCase(.Value)

        End If

      End With

    Next

XIT:

    Application.EnableEvents = True

End Sub