unire celle

Hai un problema con Excel?

Nuova discussione

unire celle
di fed (utente non iscritto) data: 11/06/2016 17:11:03
Io voglio che quando scrivo su una casella una certa parola, ad esempio ferie, mi si unisca a quella cella tutte le celle vicine che dico io. In altre parole dovrebbe il programma mi deve usare in automatico il comando "unisci e centra" dopo che ho scritto in quella determinata cella la parola "ferie"

di alfrimpa data: 11/06/2016 17:41:13
Ciao Fed

Supponendo che la parola "ferie" sia scritta in colonna A e si vogliano unire le celle delle colonne A, B e C prova la macro qui sotto da inserire nel modulo del foglio interessato.

Alfredo

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
    If Target.Value = "ferie" Then
        Range("a" & Target.Row & ":" & "c" & Target.Row).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    End If
End If
End Sub

Vuoi Approfondire?