Ciao Stefano
Prova con questa macro da inserire nel modulo del foglio1; in A1 ci deve essere la formula
- Codice: Seleziona tutto
=CASUALE.TRA(1;44)
Questa è la macro che probabilmente si può anche sfoltire.
- Codice: Seleziona tutto
Private Sub Worksheet_Calculate()
Range("a3:a50").Borders(xlDiagonalDown).LineStyle = xlNone
Range("a3:a50").Borders(xlDiagonalUp).LineStyle = xlNone
Range("a3:a50").Borders(xlEdgeLeft).LineStyle = xlNone
Range("a3:a50").Borders(xlEdgeTop).LineStyle = xlNone
Range("a3:a50").Borders(xlEdgeBottom).LineStyle = xlNone
Range("a3:a50").Borders(xlEdgeRight).LineStyle = xlNone
Range("a3:a50").Borders(xlInsideVertical).LineStyle = xlNone
Range("a3:a50").Borders(xlInsideHorizontal).LineStyle = xlNone
Range("a" & Range("a1").Value + 2).Borders(xlDiagonalDown).LineStyle = xlNone
Range("a" & Range("a1").Value + 2).Borders(xlDiagonalUp).LineStyle = xlNone
With Range("a" & Range("a1").Value + 2).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 3
.TintAndShade = 0
.Weight = xlMedium
End With
With Range("a" & Range("a1").Value + 2).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 3
.TintAndShade = 0
.Weight = xlMedium
End With
With Range("a" & Range("a1").Value + 2).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 3
.TintAndShade = 0
.Weight = xlMedium
End With
With Range("a" & Range("a1").Value + 2).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 3
.TintAndShade = 0
.Weight = xlMedium
End With
Range("a" & Range("a1").Value + 2).Borders(xlInsideVertical).LineStyle = xlNone
Range("a" & Range("a1").Value + 2).Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
In pratica ogni volta che il foglio viene ricalcolato il valore di A1 cambia e viene applicato il bordo alla cella corrispondente.
Tieni però presente che ogni volta (anche quando inserisci il dato in altre celle) viene scatenato l'evento Calculate per cui cambia il valore in A1 e di conseguenza viene lanciata la macro.
Fa sapere se era questo che volevi o a specificare meglio qual è la tua esigenza.