[Risolto] Range in maiuscolo anche se si inserisce minuscolo

[Gennaro]

Buongiorno, chiedo di nuovo un piccolo aiutino volendo sapere se i c' qualcosa simile a excel di cui ho scritto sotto.
Mi serve che il range sia scritto in lettera maiuscolo anche se inserito in minuscolo.

VBA di excel
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
On Error Resume Next

If Not Intersect(Target, Range("F6:H6000")) Is Nothing Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If

come avere lo steso risultato in Open Calc
Grazie

[charlie]

Ciao, non credo sia corretto parlare di range in maiuscolo ma piuttosto dei dati contenuti nel range.

[Gennaro]

si charly ma purtroppoconosco poco excel e vba per non dire di calc e tutto il resto pero copia qui copia lì incolla qui e mescola tutto ho un fatto un file excel per cui se in una cella del Range(f6:h6000) io scrivo minuscolo quando confermo il dato diventa maiuscolo. Ho cercato qualcosa di simile in rete per opencalc ma non ho trovato la minima traccia per questo essendo ignorante in materia mi sono rivolto al forum. Da notare che essendo digiuno manco anche di un linguaggio tecnico appropriato poichè se dovessi illustrare quello che ho scritto per excell non ne sarei all'altezza. Comunque grazie per avermi letto e per la risposta

[lucky63]

Ho cercato qualcosa di simile in rete per opencalc ma non ho trovato la minima traccia per questo essendo ignorante in materia mi sono rivolto al forum

Vedi questo link e adatta secondo esigenza.
.

[Gennaro]

Ciao lucky53 ti ringrazio ancora una volta per il tuo intervento Premetto l'assoluta ignoranza in materia per cui mi scuso in anticipo se dovessi usare un linguaggio poco tecnico spiegando cosa ho fatto. dal link inviatomi ho trovato utile solo l'allegato il quale è in effetti quello che cercavo vale a dire "maiuscolo in fase di digitazione" ed ho cambiato solo il range come qui di seguito sapendo che sia le righe che le colonne partono da zero contrariamente ad excel che parte da uno
ecco la modifica:

rance excel da b6 ad h6000 che mi necessita

sub maiuscolo
sh = thiscomponent.sheets(0)
for r=5 to 6000 'dalla sesta riga a lla 6000
for c=1 to 7 'dalla prima colonna alla settima
sh.GetCellbyPosition(c,r).string = ucase(sh.GetCellbyPosition(c,r).string)
next
next
End Sub

solo che la modifica non funziona poichè solo le prime 2 colonne inserendo il dato diventa maiuscolo alla conferma
dove sto sbagliando?

[lucky63]

.
Ecco il riscontro.

Codice: Seleziona tutto

Sub ConvertiInMAISCOLO(Target) 
Rem Link del quesito: https://forum.openoffice.org/it/forum/viewtopic.php?f=9&t=11122
Rem Macro da collegare all'evento foglio Contenuto modificato.
Rem Click Destro sul nome etichetta del fogllio > Foglio eventi > Contenuto modificato > ... percorso macro .. OK
   
    Dim Dati()
    Foglio = Target.getSpreadsheet()
    range1 = Foglio.getCellRangeByName("F6:H6000") 'Range di conversione automatica interessato
    range2 = range1.queryintersection(Target.rangeaddress())
    
    If range2.RangeAddressesAsString = "" Then  Exit Sub
  
    Dati = Target.getDataArray 
    For y = LBound(Dati) to UBound(Dati)
        Dati2 = Dati(y)

         for x = LBound(Dati2) to UBound(Dati2)
             If IsNumeric(Dati2(x)) = False Then 
             Dati2(x) = UCase(Dati2(x))      'Ucase = Tutti i caratteri MAIUSCOLO
             'Dati2(x) = LCase(Dati2(x))      'LCase = Tutti i caratteri minuscolo
             end if
         next
    next
   Target.setDataArray(Dati) 
End Sub

Adattare il range in caso di esigenze diverse.
Se vuoi tutto minuscolo utilizzi LCase invece di UCase (Vedi riga commentata) e in tal caso cambia anche nome alla macro).
Già fatto alcuni test e mi sembra OK.
Fai altri test.
.

[Gennaro]

perfetto lucky 53 era proprio quello che cercavo. Se ho capito bene le macro sono due identiche una va in personale e altra in open office.
domani inserisco nel mio file e una volta visto se tutto ok chiuderò con risolto. Approfitto per chiedere se è problematico invece volessi l'inserimento dati in maiuscolo solo in alcune celle tipo A3, B8, G5 ecc.ecc. Intanto ti ringrazio infinitamente a domani

[Gennaro]

perfetto lucky53 iinserito macro nel mio file e dopo un poco di tribolazione dovuta alla mia mancanza di conoscenze la macro ha funzionato e funziona a meraviglia. Non riesco a capire percjhè nell'allegato hai inserito anche la macro nelle "macro personale"!. io comunque o aperto un nuovo modulo e incollato quanto hai scritto abilitando poi il foglio. ringrazio ancora per l'aiuto e vado a porre risolto

[lucky63]

Se ho capito bene le macro sono due identiche una va in personale e altra in open office.

Non riesco a capire percjhè nell'allegato hai inserito anche la macro nelle "macro personale"!.

La macro è una sola inserita ed è inserita in un modulo del file che ti ho allegato altrimenti non avresti potuto testare direttamente il file.

Correggi l'inserimento del [Risolto].
Va inserito davanti al quesito di apertura (iniziale) altrimenti poi non si vede nel riepilogo degli argomenti
Vedi questo link (Ormai lo dovresti sapere).
E visto che ci sei vedi di scrivere correttamente anche il mio NickName.

Approfitto per chiedere se è problematico invece volessi l'inserimento dati in maiuscolo solo in alcune celle tipo A3, B8, G5 ecc.ecc.

E' fattibile.
Se sei ancora interessato apri nuovo quesito indicandovi possibilmente anche un riferimento a questo.
.

[Gennaro]

Grazie a LUCKY63 problema risolto velocemente. mi scuso per essermi fissato su 53 ma sono un po avanti con gli anni e il rimbambimento avanza veloce.
Ora vado subito a correggere il risolto sperando di non fare altro casino!!! Grazie ancora