< návrat zpět

MS Excel


Téma: Přičtení částky rss

Zaslal/a 15.3.2011 19:22

Dobrý den,potřeboval bych poradit mam vytvořeny list ve kterém se přičítá každy měsíc částka k částce z předešlého měsíce.Částka se přičte pouze když složku otevřu poslední den v měsíci pokud ji otevřu v jiný den částka zůstane neřičtena.Tudíž potřebuji aby se částka přičetla automaticky vždy jen poslední den v měsíci a né pokud soubor otevřu v poslední den v měsici a když ho otevřu v jiný den tak se nepřičte.
Předem děkuji za rady...

Zaslat odpověď >

Strana:  « předchozí  1 2 3
#004655
avatar
Měl jsem představu, že zašleš ty své tabulky, já si vůbec nedovedu představit, jak to děláš, ale variantu 4 lze aplikovat např. takto
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
#004662
avatar
Ok,myslíte že by tyto funkce šli vložit do jednoho souboru trochu sem to zjednodušil aby ohodnocení i celková částka byli v jednom...?citovat
#004669
avatar
Pokud vypustím soubor 2, opravuji ohodnocení na souboru 1 a ten je aktuální, tak soubor 2 vůbec nepotřebuji, on a jeho makro slouží pouze pro zaktuálnění souboru 1. tz. i když 6 měsíců nezměním ohodnocení při otevření se mi načte 6x staré ohodnocení, které bylo celou dobu aktuální.citovat
#004676
avatar
Ok,ale když ho třeba otevřu po 6 měsících tak a změním ohodnocení tak se mi znásobí ohodnocující částka kterou právě aktualizuji 6x ???citovat
#004677
avatar
Ne ta která tam byla na přelomu měsíce, aktuální platí vždy od vložení až po změnu. Pokud je přelom nebop více přelomů načte se tam jednou nebo vícekrátcitovat
#004738
avatar
Tady vám zasílám mé seštity,aby jste si udělal obrázek jak to vypada u mě je tam vše popsané...
Příloha: rar4738_nova-slozka.rar (51kB, staženo 35x)
citovat

Strana:  « předchozí  1 2 3

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje