Sviluppare funzionalita su Microsoft Office con VBA formattazione condizionale in Execel con MACRO.

LoginRegistrati
Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)
  • Autore
    Articoli
  • #29759 Risposta

    mflauto
    Partecipante
      `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.
      #29761 Risposta
      PMC77
      PMC77
      Partecipante
        9 pts

        Se alleghi un file è più facile aiutarti

        Ciao

        Paolo

        #29762 Risposta

        mflauto
        Partecipante

          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
        LoginRegistrati
        Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)
        Rispondi a: formattazione condizionale in Execel con MACRO.
        Gli allegati sono permessi solo ad utenti REGISTRATI
        Le tue informazioni:



        vecchio frac - 2750 risposte

        albatros54
        albatros54 - 1052 risposte

        patel
        patel - 1045 risposte

        Marius44
        Marius44 - 943 risposte

        Luca73
        Luca73 - 757 risposte