Mettere tutto MAIUSCOLO un range di celle

[raimea]

ciao

ho questo codice che mi mette
tutto MAIUSCOLO il contenuto
delle celle del range G13:O500

funziona ma e' molto lento !!

Codice: Seleziona tutto

Sub VPMaiuscole()
   
   Sheets("archivio").Select
   
   For Each x In Range("G13:O500")
      ' Change the text in the range to uppercase letters.
      x.Value = UCase(x.Value)
   Next
   
End Sub


esiste un modo per fare la stessa cosa
piu' velocemente ?

si potrebbe anche controllare le righe
compilate partendo dalla G13 ad UR



ciao

[Raffaele53]

Forse ci sono dei Worksheet_Change() oppure delle Function() che interferiscono, copia il foglio in Files-nuovo e riprova.
Comunque prova pure queste due

Codice: Seleziona tutto

Option Explicit
Sub VPMaiuscole()
   Application.EnableEvents = False
   Application.Calculation = xlCalculationManual
   For Each x In Range("G13:O500")
      x.Value = UCase(x.Value)
   Next
   Application.EnableEvents = True
   Application.Calculation = xlCalculationAutomatic
End Sub
Sub VPMaiuscole2()
Dim Area As Range, Ur As Long
Ur = Sheets("archivio").Range("G" & Rows.Count).End(xlUp).Row
Set Area = Sheets("archivio").Range("G13:O" & Ur)
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Area.Replace What:="v", Replacement:="V", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Area.Replace What:="p", Replacement:="P", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Area.Replace What:="n", Replacement:="N", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
'Aggiungi per altre Lettere>>>> Area.Replace What:="xxxxxx", Replacement:="XXXXXXX", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Set Area = Nothing
End Sub

[raimea]

ciao
la prima si blocca in :

Codice: Seleziona tutto

For Each x In Range("G13:O500")

risponde variabile non definita.

la 2da funziona
ma non posso compilare

Codice: Seleziona tutto

Area.Replace What:="v", Replacement:="V", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

una riga per ogni casistiche che potrebbe trovare nelle celle


comunque grazie

[Anthony47]

Ma e' una operazione che devi fare spesso o devi convertire (una sola volta) il contenuto del foglio?

Se fai Trova "v" e Sostituisci con "V", e poi ripeti per "p" e "n" funziona o no?
Se funziona, i tempi sono accettabili e devi ripetere spesso allora registra una macro mentre fai le tre sostituzioni e dovresti essere a posto
Se questa tecnica non risolve, puoi mostrare che aspetto hanno i dati all'interno delle celle da convertire? Ci sono celle con formule? celle vuote?

[Raffaele53]

Vedendo la foto allegata, le lettere mi sembrano solo tre
Non servono righe per V1,V2,V3,NP basta solo v,n,p

Codice: Seleziona tutto

Option Explicit
Sub VPMaiuscole()
Dim X As Range
Sheets("archivio").Activate
   Application.EnableEvents = False
   Application.Calculation = xlCalculationManual
   For Each X In Range("G13:O500")
      X.Value = UCase(X.Value)
   Next
   Application.EnableEvents = True
   Application.Calculation = xlCalculationAutomatic
   MsgBox "Fatto"
End Sub

[raimea]

ciao

tutto ok

ha ragione raffaele53

Vedendo la foto allegata, le lettere mi sembrano solo tre
Non servono righe per V1,V2,V3,NP basta solo v,n,p

errore mio nell' interpretazione del codice:
io pensavo avrei dovuto compilare una riga x ogni casistica/codice

----------------
x correttezza rispondo anche ad Antony47 :

Ma e' una operazione che devi fare spesso o devi convertire (una sola volta) il contenuto del foglio?

il foglio viene aggiornato continuamente
compilando l' ultima riga disponibile libera,
quindi ogni volta si deve verificare e portare in maiuscolo il contenuto.

-le celle del range NON contengono formule
-SI, da G13 a O500 ci sono celle vuote

Se fai Trova "v" e Sostituisci con "V", e poi ripeti per "p" e "n" funziona o no?

si funziona

faccio prove
ma x ora tutto ok

grazie ad entrambi

ciao

[Raffaele53]

>>>compilando l' ultima riga disponibile libera, quindi ogni volta si deve verificare e portare in maiuscolo il contenuto.
Allora sono già tutte maiuscole nel foglio tranne l'ultima riga, in questo caso puoi semplificare il codice facendogli fare solo le ultime 4/5 righe.

Codice: Seleziona tutto

Option Explicit
Sub VPMaiuscole3()
Dim X As Range, Ur As Long
Sheets("archivio").Activate
Ur = Range("G" & Rows.Count).End(xlUp).Row
   For Each X In Range("G" & Ur - 5 & ":O" & Ur)
      X.Value = UCase(X.Value)
   Next
   MsgBox "Fatto"
End Sub

[raimea]

Allora sono già tutte maiuscole nel foglio tranne l'ultima riga, in questo caso puoi semplificare il codice facendogli fare solo le ultime 4/5 righe.

SI

ottimo , tutto ok

ancora grazie
ciao