La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Buongiorno,
data la funzione
TESTO.UNISCI(delimitatore; ignora_vuote; testo1; [testo2]; …)
vorrei sapere se come delimitatore è possibile inserire un "paragrafo" (facendolo a mano userei ALT+INVIO) questo per far si che il contenuto di [testo1], [testo2] ecc. venga disposto su più righe anziché su unica riga sempre dentro la medesima cella (vedi risultato della funzione in foglio1 cella A1 e quello che vorrei ottenere come da esempio in cella A2 realizzato usando ALT+INVIO).
Grazie.
ciao
ti direi
CODICE.CARATT(10)
=TESTO.UNISCI(CODICE.CARATT(10);VERO;Foglio2!A1&Foglio2!B1;Foglio3!A1&Foglio3!B1;Foglio4!A1&Foglio4!B1;Foglio5!A1&Foglio5!B1)
attento però il foglio 5 A1 ha uno spazio davanti
se hai quel problema
devi aggiungere ANNULLA.SPAZI()
esempio
ANNULLA.SPAZI(Foglio2!A1&Foglio2!B1)
Buonasera,
scusa gianfranco ma ora mi trovo a risolvere un altro problema sempre legato alla precedente funzione, ovvero vorrei evitare che se la cella B1 (e quindi a seguire B2, B3 ecc.) è vuota non venga riportato il contenuto della cella A1 (e così per A2, A3 ecc.). E' possibile?
Grazie.
ciao
=TESTO.UNISCI(CODICE.CARATT(10);;SE(Foglio2!B1="";"";Foglio2!A1&Foglio2!B1);SE(Foglio3!B1="";"";Foglio3!A1&Foglio3!B1);SE(Foglio4!B1="";"";Foglio4!A1&Foglio4!B1);SE(Foglio5!B1="";"";Foglio5!A1&Foglio5!B1))
immagino che non ci possano essere dati in B se la A non ha un nome
altrimenti cambia con
SE(O(Foglio2!B1="";Foglio2!A1="");"";Foglio2!A1&Foglio2!B1)
su tutti i fogli
Grazie gianfranco,
la prima soluzione funziona.
Ora mi si presenta un'altro problema. Quando (in Foglio2, Foglio3 ecc.) il testo inserito supera le dimensioni della cella o successivamente viene modificato riducendo il contenuto, la cella del primo foglio (Foglio1) non si adatta in automatico (ho impostato su tutte le celle "Testo a Capo"). Come devo fare?...(se può essere una soluzione la macro con propietà AutoFit come devo impostarla?).
Ti ringrazio.
Ho provato a inserire la macro ma non funziona in automatico. Cosa non va? e poi, come dicevo prima, se vado a modificare il contenuto delle celle, in Foglio1 l'altezza non si adegua.
@fabio, la macro, per come è impostata, va eseguita manualmente ogni volta.
Se vuoi che venga eseguita automaticamente ad ogni variazione apportata su qualsiasi foglio della cartella di lavoro, dovresti modificarla come segue:
Sub AutofitRows()
Dim c As Range
Dim WB As Workbook
Dim WS As Worksheet
Set WB = ThisWorkbook
For Each WS In WB.Worksheets
For Each c In WS.UsedRange
If c.WrapText Then c.Rows.AutoFit
Next c
Next WS
Set WB = Nothing
End Sub
Inoltre dovresti aggiungere la seguente riga al gestore eventi Workbook_SheetChange della cartella di lavoro (oggetto Questa_cartella_di_lavoro del VB Editor):
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
Call AutofitRows
End Sub
Prova e fammi sapere.
"Fatti non foste a viver come bruti,
ma per seguir virtute e canoscenza"
ah! ah!
allora ci siete 😆
lasciare un povero formulista come me a fare macro 😶
mi scarico il file altra cosa imparata 👍
Perfetto, funziona benissimo!
Grazie Gianfranco!
Un'ultima domanda, spero.
A tutt'oggi è possibile lavorare su questo file usando l'app di Excel su cellulari Android?
Grazie.
ciao
non ne ho la più pallida idea 😆
mai usato excel su android
prova ma con le macro non so se si può
Ciao Gianfranco,
pazienza.
Ti ringrazio.
