Conta carattere rosso



  • Conta carattere rosso
    di Francesca (utente non iscritto) data: 10/04/2012

    Avendo una cartella di excel composta da 50 fogli, come si scrive una macro che mi dia il numero di fogli che nella cella c12 ( di tutti i fogli ) hanno un valore con il carattere rosso ?
    grazie a chi vorrà darmi la soluzione.
    p.s. e se invece del carattere rosso ci fosse un numero negativo ?



  • di Ciao (utente non iscritto) data: 10/04/2012

    Ciao

    inserisci questa macro in un modulo, questa rileva tutti i numeri negativi presenti nella cella c12, numeri negativi si intendono numeri preceduti dal segno meno -10 e non quelli 0,10

    ciao
     
    Sub Conta_Negativi()
    Dim ws As Worksheet
    Dim Conta As Long
    Conta = 0
    For Each ws In ThisWorkbook.Sheets
        If ws.Range("C12") < 0 Then
          Conta = Conta + 1
        End If
    Next ws
    MsgBox "Rilevati N°" & Conta & " Negativi"
    End Sub