Witam.
Mam funkcję robiącą proste obliczenia dla komórek w wybranym zakresie
Problem polega na tym że nie mogę używać funkcji dla komórek nie znajdujących się blisko siebie.
Wszystko działa poprawnie dla zakresu np: (A1:A100) lecz w przypadku wybrania (A1;B5;B6) funkcja zwraca błąd (Error 2023)
Brak mi pomysłów.

Kopiuj
Public Function SUMNUMS(Area As Range)
Dim Cell As Range
Dim i As Double

i = 0
For Each Cell In Area
    If IsNumber(Cell.Value) = True Then
        i = i + Cell.Value
    End If
Next Cell

SUMNUMS = i
End Function