Quote:
Originariamente inviato da fmasta56
Credo di aver capito il problema: non avevo visto la risposta sotto nel link che avevi scritto! Però quel codice VBA non so proprio dove metterlo...non conosco Excel a quel punto (e, giusto per farti contento, non ho mai adoperato nemmeno le macro...!). Se vuoi posso postare una parte del foglio, tutto sarebbe troppo lungo...ma come si fa?
|
tasto destro sulla linguetta del foglio sotto -> codice e incolli questo
Codice:
Private Sub Worksheet_Calculate()
If Range("B8").Value = "" Then
Blink "B10"
Else
Range("B10").Interior.ColorIndex = 0
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.Run Me.CodeName & ".Worksheet_Calculate"
End Sub
poi fai inserisci modulo e incolli questo
Codice:
Sub Blink(cell As String)
If Range(cell).Interior.ColorIndex = 6 Then
Range(cell).Interior.ColorIndex = 0
Else
Range(cell).Interior.ColorIndex = 6
End If
Application.OnTime Now + 1 / 86400, "doagain"
End Sub
Sub DoAgain()
Application.Run Sheets("Sheet1").CodeName & ".Worksheet_Calculate"
End Sub
__________________
"W la foca, che dio la benedoca"
poteva risolvere tutto la sinistra negli anni in cui ha governato e non l'ha fatto. O sono incapaci o sta bene anche a "loro" cosi.
L'una o l'altra inutile scandalizzarsi.[plutus]