Lampeggio celle

  • Lampeggio di due celle di Luigi24
    Ciao a tutti!
    ho trovato parte del codice che segue nel vostro bellissimo sito (che trovo molto istruttivo), e sto tentando di modificarlo per adattarlo alle mie esigenze.
    questo codice, così come è scritto, funziona a metà. in altri termini, la mia intenzione è di far lampeggiare la cella at35 se la cella s8 espone il valore “” (e fin qui funziona), e di far invece lampeggiare la cella av35 se la cella s8 espone il valore 1 (e qui non funziona).
    c’è qualcuno che si prende il disturbo di dare un’occhiata al mio codice per dirmi cosa sto sbagliando? grazie in anticipo a tutti. – luigi24

     
    (nel modulo associato al foglio1)
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Indirizzo = "J" & Range("BH2").Text
    If ((ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False) = Indirizzo) And (Range("BD83").Value = "")) And  (Range(“S8”).Value=””)  Then
    Application.Run ("Lamp")
    ElseIf ((ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False) = Indirizzo) And (Range("BD83").Value = "")) And  (Range(“S8”).Value=1)  Then
    Application.Run(“Lomp”)  
    End If
    End Sub
    
    (nel modulo 1) 
    Sub lamp()
    a = Range("AT35").Value
    Dim i As Integer
    For i = 1 To 4
    Cells(35, 46) = a
    Call Flash_Sequence
    Next i
    End Sub
    Private Sub Flash_Sequence()
    a = Range("AT35").Value
    Dim n As Byte, Start As Variant
    For n = 1 To 10
    Start = Timer
    Do While Timer < Start + 1 / 10
    Loop
    If n Mod 5