[Risolto] Formattazione maiuscolo

[Elettronica 2.0]

Buongiorno
espongo il mio problema,avrei bisogno di sapere come posso formattere delle celle in modo tale che qualsiasi testo io incolli, quest'ultimo venga sempre incollato in maiuscolo indipendentemente dal formato originale ( maiusc o minusco)
in attesa di un riscontro ringrazio anticipatamente per le risposte

Alex

[unlucky83]

Secondo me si può fare solo con una macro che legge il contenuto della cella e lo trasforma in maiuscolo.

[Elettronica 2.0]

essendo abbastanza profano di questi argomenti,è una cosa semplice ? ci vogliono formule complesse? ho provato a cercare sul forum ma non ho trovato nulla ... se qualcuno mi potesse aiutare ...altrimenti domani a lavoro sono rovinato :S

[unlucky83]

Questa cosa che cerchi:
1-deve funzionare su un solo file?
2-deve funzionare su tutti i fogli del file?
3-deve funzionare su un numero limitato di celle o su tutte le celle del foglio?
4-ti va bene se prima incolli il testo in minuscolo o maiuscolo per poi avviare la macro manualmente per sistemare il testo?

La macro per cambiare il testo di una cella è semplicissima, ma la cosa si complica in base alle risposte (il punto 4 soprattutto può dare dei problemi)
Fortunatamente non devi fare tutto da solo, puoi chiedere tutto l'aiuto che ti serve

[Elettronica 2.0]

ti ringrazio della risposta...allora in breve...lavoro con 1 file 1 solo foglio , incollo testo suddiviso su 2 colonne con un numero di righe che puo variare dalle 20 lle 50 righe...se non si complica troppo la situazione preferirei una cosa automatica ...altrimenti se mi spiegi come fare la macro la lancio manulamente io no problem....grazie ancora

[patel]

la macro da abbinare ad un pulsante potrebbe essere questa, valida per le colonne A e B fino alla riga 50

Codice: Seleziona tutto

sub maiuscolo
  sh = thiscomponent.sheets(0)
  for r=0 to 50
    for c=0 to 1
      sh.GetCellbyPosition(c,r).string = ucase(sh.GetCellbyPosition(c,r).string)
    next
  next
end sub

se hai difficoltà allega un file di esempio, te lo restituisco con la macro

in automatico avrei una soluzione, ma funziona soltanto copiando una cella alla volta oppure in fase di digitazione

[Gaetanopr]

in automatico avrei una soluzione, ma funziona soltanto copiando una cella alla volta oppure in fase di digitazione

Anche con più celle

Codice: Seleziona tutto

Sub Main(Target)    
    Dim Dati()
    sh = Target.getSpreadsheet()
    range1 = sh.getCellRangeByName("A1:B50")
    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)) 
         next
    next
   Target.setDataArray(Dati) 

End Sub

[patel]

Ottimo come sempre Gaetano

[Elettronica 2.0]

in automatico avrei una soluzione, ma funziona soltanto copiando una cella alla volta oppure in fase di digitazione

Anche con più celle

Codice: Seleziona tutto

Sub Main(Target)    
    Dim Dati()
    sh = Target.getSpreadsheet()
    range1 = sh.getCellRangeByName("A1:B50")
    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)) 
         next
    next
   Target.setDataArray(Dati) 

End Sub

Gaetanopr anche questa volta mi hai salvato !!! era esattamente di questo che avevo bisogno !!!!! ti ringrazio molto per la tua risposta e sopratutto per il modello gia compilato con la macro ....voglio anche ringraziare unlucky83 per le sua disponibilita nelle risposte....grazie a tuttiiiii

alla prossima, saluti

Alex