Questo sito utilizza cookie, anche di terze parti, per migliorare la tua esperienza e offrire servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina o cliccando qualunque suo elemento acconsenti all’uso dei cookie

Rimani informato sugli aggiornamenti di SOS-OFFICE. Inserisci il tuo indirizzo e-mail: Informativa sulla privacy

Unire celle in automatico

Vai
1 Anno 8 Mesi fa - 1 Anno 8 Mesi fa #578 da Joshua_Cr
COM_KUNENA_MESSAGE_CREATED_NEW
Buongiono!

Inserendo in più macro questo codice:
Sub CentraUnisci()
    Dim cella As Range
    Dim intervallo As Range
    Dim celleUnite
    Dim ultima As Integer
    Dim inizio As Integer
    Dim fine As Integer
    ultima = Worksheets("dati").Range("a1").CurrentRegion.Rows.Count
    Application.DisplayAlerts = False
    Set intervallo = Worksheets("dati").Range("a2:a" & ultima)
    intervallo.Sort key1:=Range("a1"), Order1:=xlAscending, Header:=xlYes
    inizio = 2
    For Each cella In intervallo
        If cella <> cella.Offset(1, 0) Then
            fine = cella.Row
            Set celleUnite = Range("a" & inizio & ":A" & fine)
            inizio = fine + 1
            celleUnite.Select
            Selection.Merge
            Selection.VerticalAlignment = xlCenter
        End If
    Next
    Application.DisplayAlerts = True
End Sub

Vorrei che per le celle già unite, non mi restituisca l'errore. Si può ottenere?
Grazie!
Allego video per farmi capire meglio: drive.google.com/file/d/1w5NgkrDmmOXF__93uLiXzEGubkdSSey5/view

PS. Codice postato su un forum di office da Alessandra Salvaggio
Last edit: 1 Anno 8 Mesi fa by Joshua_Cr.

Si prega Accedi o Crea un account a partecipare alla conversazione.

Tempo creazione pagina: 0.440 secondi
Powered by Forum Kunena
Joomla templates by a4joomla