seštevanje le tistih celic,ki niso obarvane

[rick]

pozdravljeni

verjetno ste že iz naslova razbrali kaj me muči....
torej rad bi v prvi vrstici seštev celice (sum),ampak samo tiste celice,ki
niso obarvane.
za odgovor se najlepše zahvaljujem.

lp

[cedra]

Pozdrav,

Tukaj imate funkcijo, ki vam bo vrnila seštevek celic v izbranem področju:

Koda: Izberi vse

Public Function Sestej_Nepobarvane(podrocje As Range)
   Dim Cell As Object
   Dim x As Double
   Application.Volatile
   x = 0
   For Each Cell In podrocje
         If Cell.Interior.ColorIndex = xlNone Then
         x = x + Cell.Value
      End If
   Next Cell
   Sestej_Nepobarvane = x
End Function

Funkcijo boste našli med uporabnikovimi funkcijami!

lp,

cedra

[rick]

hvala za vaš makro,deluje odlično,
malce le imam težave z osveževanjem oziroma preračunavanjem,
zato sem vključil calculate,vendar tudi to vedno ne zadostuje.
je morda tudi tu kakšna rešitev,da se makro takoj odzove na dogodek?
za odgovor se zahvaljujem.
lp rick

[cedra]

Pozdrav,

Naj vas popravim; to ni macro, ampak funkcija, ki vam omogoča, da v poljubni celici dobite izračun (vsoto), vseh neoznačenih celic!
Preračun je možen s pritiskom na F9!
Še ena možnost:

Koda: Izberi vse

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
    Calculate
Application.EnableEvents = True

End Sub

Vendar pa list spreminjanja ozadja celice ne zazna kot spremembo in ne bo preračunal sam. V primeru pa, da spremenite kjerkoli kako vrednost na listu, pa dela in bo izračunal! Zakaj je temu tako pa ne vem.
Morda pa bo kljub temu služilo vašemu namenu
lp,

cedra

[rick]

pozdravljeni

kot ste rekli,spremembo barve ti funkcija ne zazna......
zelo ste se potrudili,kljub temu je zadeva zelo uporabna.
hvala.

lp rick