Soubor 1 buňky A1:D1
200 10 4 2011
Kumulac Sčítanec Měsíc Rok
ub Auto_open()
If Not (Month(Now) = Cells(1, 3) And Year(Now) = Cells(1, 4)) Then
Cells(1, 1) = Cells(1, 1) + Cells(1, 2) * (Month(Now) - (Cells(1, 4) - Year(Now)) * 12 - Cells(1, 3))
Cells(1, 3) = Month(Now)
Cells(1, 4) = Year(Now)
End If
End Sub
Soubor 2 bunka A1
10
Měněné ohodnocení
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open(Filename:="Soubor1.xls").RunAutoMacros Which:=xlAutoOpen
Target.Copy ActiveSheet.Range("B1")
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End If
End Sub
Při jakékoli změně se koncem měsíce načte aktuální částkacitovat