Un saluto a tutti.
Arrivo tardi ma ormai ho dedicato un po' di tempo così pubblico comunque la mia versione di macro che potrebbe bastare così (da mettere in un modulo vba, basta anche nel modulo del foglio interessato):
Option Explicit
Sub allinea()
Dim x As Integer
For x = 8 To 50
If Range("E" & x) > 0 And Range("K" & x) > 0 Then
Range("H" & x).HorizontalAlignment = xlCenter
ElseIf Range("E" & x) > 0 Then Range("H" & x).HorizontalAlignment = xlLeft
ElseIf Range("K" & x) > 0 Then Range("H" & x).HorizontalAlignment = xlRight
End If
Next x
End Sub
[Modificato da rollis13 13/02/2018 17:50]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)