You are here:Home-Domande su Excel VBA e MACRO-Formattazione condizionale di celle colorate in base ad un valore tra >25/=-Rispondi a: Formattazione condizionale di celle colorate in base ad un valore tra >25/=
Rispondi a: Formattazione condizionale di celle colorate in base ad un valore tra >25/=2020-02-25T17:32:14+01:00

Home Forum Domande su Excel VBA e MACRO Formattazione condizionale di celle colorate in base ad un valore tra >25/= Rispondi a: Formattazione condizionale di celle colorate in base ad un valore tra >25/=

BySalvBySalv
Amministratore del forum
    Post totali: 771

    Ciao prova a fare in questo modo, non so se funzionerà

    in ogni modulo del foglio dove ce la rotta da segnare fai copia incolla di questo sotto “Option Explicit”

    Private Tmp
    
    Private Sub Worksheet_Activate()
    Tmp = Cells(19, 1)
    End Sub
    
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r, c, d, k, mn, mx
    mn = 25
    mx = 30
    If Not Intersect(Target, Range("B19:P19,B23:P23,B27:P27,B31:P31")) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        r = Target.Row
        c = Target.Column
        d = Target
        Cells(14, 2) = Cells(14, 2) + d
        Cells(r, 17) = Cells(14, 2)
        Tmp = Tmp + d
        If Cells(14, 2) >= mn And Cells(14, 2) <= mx Then
            Cells(r - 1, c).Interior.ColorIndex = 3
            Tmp = 0
        End If
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
    End Sub

    a questo punto in ogni foglio dove ce la rotta dovrebbe funzionare se sono le stesse celle.
    Fai sapere, Ciao By Sal (8-D

    Ciao By Sal (8-)
    se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie