-
Articoli
-
`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">
Se alleghi un file è più facile aiutarti
Ciao
Paolo
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
Login
Registrati
Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)
Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)