Excel Unire celle senza perdere il testo

[Statix]

Ciao a tutti,
come da titolo ho bisogno di unire delle celle con del testo ,
in rete ho trovato questa macro che va bene,
ma c'è un problema il testo è allineato cella per cella ,
vorrei che quando si uniscono le celle il testo sia centrato in alto a destra e testo a capo

Codice: Seleziona tutto

Public Sub UnioneCelle()

Dim rng As Range
Dim rg As String
Dim txt As String

Set rng = Selection
If rng.Areas.Count > 1 Then
    MsgBox "Il comando non può agire su selezioni multiple.", vbExclamation, "Attenzione."
    Exit Sub
End If

txt = ""
For r = rng.Row To rng.Row + rng.Rows.Count - 1
    rg = ""
    For c = rng.Column To rng.Column + rng.Columns.Count - 1
        rg = rg & ActiveSheet.Cells(r, c).Value & " "
    Next c
    rg = Left(rg, Len(rg) - 1)
    txt = txt & rg & vbLf
Next r
txt = Left(txt, Len(txt) - 1)

rng.UnMerge
rng.ClearContents
rng.Merge
rng.Cells(1, 1).Value = txt

End Sub

vedi foto
la macro mi unisce come in cella D4
mentre vorrei che unisca come in cella F4

[Statix]

una altra cosa che mi era sfuggito,
se era possibile nella macro aggiungere anche il bordo in nero

[Anthony47]

Ti suggerisco questa macro:

Codice: Seleziona tutto

Sub UnioneCelle2()
Dim Cell As Range, NRiga As String
'
If Selection.Areas.Count > 1 Then
    MsgBox "Il comando non può agire su selezioni multiple.", vbExclamation, "Attenzione."
    Exit Sub
End If
For Each Cell In Selection
    NRiga = NRiga & Cell.Value & " "
Next Cell
'
With Selection
    .UnMerge
    .ClearContents
    .Merge
    .Value = Trim(NRiga)
End With
Call Macro3   'Macro autoregistrata
End Sub

Per quanto riguarda la formattazione finale, ti suggerisco di selezionare un gruppo di celle gia' unite e poi registrare una macro mentre applichi le formattazioni che ti servono su quel range; infine inserisci un Call MacroX in coda (al posto della mia Call Macro3)

Ciao

[Statix]

Ciao Anthony47,
la macro funziona però non ho capito
la macro registrata,
ho provato a fare la registrazione della macro,
ho visto che la selezione dei range viene diversa,
la formattazione deve essere applicata al range che io seleziono nel foglio,
quando unisco le celle

[Statix]

ok forse ho capito l'errore nella macro registrata
ho eliminato la selezione delle celle ed infatti funziona.
grazie moltissimo

[Statix]

Ciao Anthony47,
mi è sorto un altro problema, dopo aver lavorato diverse ore mi sono accorto che un altra macro collegata non mi funziona,
dovrei modificare una delle 2,
quindi volevo chiederti se era possibile modificare questa macro,
dovrebbe unire solo il testo delle celle selezionate nella prima cella della selezione senza unire le celle.
purtroppo mi urge, sto preparando dei quiz e ho poco tempo a disposizione,
ti ringrazio tantissimo.

[ricky53]

Ciao,
puoi inviare questa macro

[Statix]

Ciao Ricky53,
la macro da modificare è quella che ha postato Anthony47,
nel frattempo ho trovato sempre in rete quest'altra macro che fa quello che mi serve,
cioè seleziona il range che voglio unire il testo nella prima cella della selezione,
l'unico problema che poi devo cancellare a mano le celle sottostanti selezionate.

Codice: Seleziona tutto

 Sub unisci()
 Dim testo As String
 Dim cella As Range

 For Each cella In Selection
 testo = testo & " " & cella.Value
 Next cella
  Selection.Rows(1).Value = testo
 End Sub

[Anthony47]

ho capito l'errore nella macro registrata
ho eliminato la selezione delle celle ed infatti funziona

Infatti (forse era scritto in modo un po' criptico) la macro autoregistrata doveva escludere la selezione delle celle.

Per la nuova richiesta, modifica le istruzioni tra With Selection /End With:

Codice: Seleziona tutto

With Selection
    .UnMerge
    .ClearContents
'    .Merge
    .Cells(1, 1).Value = Trim(NRiga)
End With


Non so come vorrai cambiare la macro autoregistrata per formattare il nuovo testo, ma credo che hai capito la logica.

Ciao

[Statix]

Ciao Anthony47
è perfetta ,grazie