trasformare una colonna in tutte MAIUSSCOLE

[raimea]

ciao a tutti
sto cercando una macro che trasformi il contenuto di una colonna G ( da G:9G300)
in tutte maiuscole.
cioe' la scritta: lazio - roma diventi ---> LAZIO - ROMA
naturalmente deve rimanere il trattino di separazione, e lo spazio.
grazie anticipate.

[raimea]

io leggendo le spegazioni ho ricavato questa macro.

Codice: Seleziona tutto

Sub maiuscolo()
Dim CL As Range
For Each CL In ActiveSheet.Range("g9:g350")

If CL.HasFormula = False Then
CL.Value = UCase(CL.Value)
End If
Next CL
End Sub

solo che e' lunghissima e non termina mai, mi manda excel in ko..
come risolvere , forse dicendo di applicare solo alle celle "piene ? ma come ?
booo

[ricky53]

Ciao,

Visto che i dati non sono molti perché non utilizzare la funzione "MAIUSC" ???

Ciao da Ricky53

[raimea]

nelle celle della colonna G non posso mettere formule xche ci devo scrivere dentro
quindi faro' "girare" la macro in coda ad altra macro.

[ricky53]

Allora puoi uilizzare una colonna di appoggio e sempre "MAIUSC".

Perchè hai scritto che la tua macro impiega tantisismo tempo ad essere eseguita ?
Simulando la tua situazione G9:G350 con celle con dati e con formule (in base ala tua macro) a me con excel 2003 impega meno di "1" secondo.

Ciao da Ricky53

[Anthony47]

Comunque la macro incriminata dovrebbe durare 0.1-0.2 secondi, salvo che il pc non sia gia' impiccato di memoria...
Nell' ipotesi che siano state usate in quantita' industriali le funzioni "volatili", prova ad aggiungere in testa

Codice: Seleziona tutto

Application.Calculation = xlManual


e in coda

Codice: Seleziona tutto

Calculate
Application.Calculation = xlCalculationAutomatic


Ciao

[raimea]

boooo
infatti la macro funziona
solo che ci mette molto, ma alla fine excell mi va in blocco
e mi dice - non risponde- , forse perche' in col G metto i dati usando un copia--> incolla
e quindi si porta dietrio chissa quale diavoleria...
le celle sono settate come formato - generale.

[Anthony47]

Hai applicato il suggerimento precedente?
Aggiungo: e se ci sono anche "macro di evento", aggiungere anche
in testa Application.EnableEvents = False
e in coda Application.EnableEvents = True

Ciao

[raimea]

okkk
risolto con suggerimento di anthony
ora la macro viene svolta in tempi accettabili.
grazie

Codice: Seleziona tutto

Sub maiuscole()

    ActiveSheet.Unprotect
   
  Application.EnableEvents = False    '<<< metto tutto maiuscolo la col G
Application.Calculation = xlManual
Dim CL As Range
For Each CL In ActiveSheet.Range("g9:g350")

If CL.HasFormula = False Then
CL.Value = UCase(CL.Value)
End If
Next CL

Calculate
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True

Range("D1").Select

grazie