unione di celle

Hai un problema con Excel?

Nuova discussione

unione di celle
di sago (utente non iscritto) data: 11/06/2017 22:54:57
ho foglio1 e foglio2
1) ho creato per ogni foglio un pulsante formatta (agisce sul range B5:N23) formatta e UNISCE le celle di ogni singola riga
2) io ho creato due routine uguali, unica differenza il nome del foglio
e' possibile creare una routine unica che può essere indifferentemente richiamata dai due pulsanti FORMATTA

ringrazio anticipatamente della cortesia e sono sicuro di ricambiare in qualche modo

ub Formatta()
Dim I As Integer
Dim Fgl
Dim Ws
For Each Fgl In Array("Prs_pari", "Prs_disp")
    Set Ws = Sheets(Fgl)

With Ws.Range("B5:N23")
   .NumberFormat = "General"
   .Font.Name = "Arial"
    .HorizontalAlignment = xlDistributed
   
For I = 5 To 23
Ws.Activate
 Ws.Range(Cells(I, 2), Cells(I, 14)).MergeCells = True
Next I
End With
Next Fgl
End Sub

di alfrimpa data: 12/06/2017 09:36:00
Sago ma perché apri una nuova discussione quando ne hai già una aperta (identica) qui?

h t t p://www.excelvba.it/Forum/thread.php?f=1&t=12004

Così si fa solo confusione.

Alfredo

Vuoi Approfondire?