[ @ 19.07.2017. 15:42 ] @
Imam User Defined funkciju Code: Public Function Svega(p As Range) As Double Dim tabla As Worksheet Dim a As Integer Dim b As Integer a = p.Row b = p.Column For Each tabla In ThisWorkbook.Sheets If tabla.Name <> "Ukupno" Then svega = svega + tabla.Cells(a, b) End If Next tabla End Function Kad je prvi put postavim sve radi OK, medjutim ako nesto menjam ili dodam jos neki sheet ne preracunava automatski. U options imam postavljeno calculation na automatic. Kad prebacim na manual i pozovem radi OK. Sta da uradim da preracunava automatski? |