[ pcpopovic @ 14.03.2016. 13:57 ] @
Koristim Makro (VBA kod) za datume: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim cl As Range Application.ScreenUpdating = False Set Rng = ThisWorkbook.Worksheets("Promet").Range("B4:B203") For Each cl In Rng If cl.Text <> "" And cl.Formula <> cl.Text Then cl.Formula = cl.Text End If Next cl Application.ScreenUpdating = True End Sub U delu (liniji): If cl.Text <> "" And cl.Formula <> cl.Text Then ’ Obojeno je žutom bojom mi javlja grešku (1004). Formula (funkcija) na koju se odnosi ovaj kod je =IF(C4<>"";TODAY();"") Šta se dešava? Da li je ovo moguće? Primetio sam da se ovo javlja kad zaključam radni list. |