Conta celle contenenti formule

[ABRAMO48Partecipante ABRAMO48 Karma: 1 pt]

Buongiorno,

Come posso fare per contare il numero di celle che, in un intervallo, contengono formule?

grazie!

[D@niloPartecipante D@nilo Karma: 12 pts]

Buongiorno

ipotizziamo l'intervallo A1:D5 in una cella metti

 

=MATR.SOMMA.PRODOTTO(--VAL.FORMULA(A1:D5))

[albatros54Moderatore albatros54 Karma: 83 pts]

lato VBA

Option Explicit
Sub SpecialCells()
    Dim ws As Worksheet
    Dim rgSpecial As Range
    Dim a As Integer
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets("foglio1")
    Set rgSpecial = ws.Range("a1:d5").Cells.SpecialCells(xlCellTypeFormulas, xlFormula)
    a = WorksheetFunction.Count(rgSpecial)
    Set rgSpecial = Nothing
    Set ws = Nothing
End Sub

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[ABRAMO48Partecipante ABRAMO48 Karma: 1 pt]

ottimo! ma 

Set rgSpecial = ws.Range("a1:d5").Cells.SpecialCells(xlCellTypeFormulas, xlFormula)

mi da errore: "non è stara trovata alcuna cella" quando non ne trova, come faccio ad intercettare questo caso?

[ABRAMO48Partecipante ABRAMO48 Karma: 1 pt]

ovvio, con ON ERROR ...

[ABRAMO48Partecipante ABRAMO48 Karma: 1 pt]

già, ... era anche nell'esempio ...

[Autore]

Articoli