formattazione condizionale in Execel con MACRO.

[mflautoPartecipante mflauto Karma: 1 pt]

`Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("E2:E5000"), Target) Is Nothing Then Exit Sub
If Target.Value >= 40 And Target.Value <= 80 Then
Cella = Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)   'con "Cella" otteniamo il riferimento senza i simboli del dollaro ($ =rifer. assoluto)
MsgBox "ATTENZIONE : la cella " & Cella & " ha un valore non ammesso"
End If
End Sub
`
Buongiorno al forum,
ho sempre utilizzato la formattazione condizionale dal foglio Excel, ora stavo cercando con una semplice routine di rendermi le cose più facili; mi spiego meglio ho una tabella con diversi fogli dove in ogni foglio devo inserire mensilmente dei dati nella colonna E2:E16000, nelle colonne: F e G ho il range di riferimento, in base al range di riferimento mi deve dare un messaggio e mi deve colorare la cella di rosso1 E' possibile?
Grazie a tutti.
Max
<br data-mce-bogus="1">

Allegati:

You must be logged in to view attached files.

[PMC77Partecipante PMC77 Karma: 18 pts]

Se alleghi un file è più facile aiutarti

Ciao

Paolo

[mflautoPartecipante mflauto Karma: 1 pt]

Ciao Paolo,

visto che ci sono troppe variabili nel foglio da controllare, magari imposto per la prima parte dei valori con la formattazione condizionale e poi mi faccio una copia delle celle, cosa ne pensi?

a questo codice vorrei aggiungere anche la formattazione condizionale, conosco l'istruzione ma non sò come legarla all'istruzione:

.pastespecial paste

Sub CopiAnalisi()
    Application.ScreenUpdating = False
    If MsgBox("Attenzione questa funzione copia tutte le celle, tranne i valori delle analisi" & vbCrLf & "VUOI PROSEGUIRE?", vbYesNo) = vbYes Then
        Range("C5:D29").Copy Destination:=Cells(4, 2).End(xlDown).Offset(1, 1)
        Range("F5:M29").Copy Destination:=Cells(4, 8).End(xlDown).Offset(1, -2)
    End If
    Application.ScreenUpdating = True
End Sub

[Autore]

Articoli