Merlin99 napsal/a:
Dodělal jsem přesný příklad jak by to mělo vypadat a myslím že se to bude hodit více lidem.
No neviem.
Nie je mi to jasné a prehľadné to tak isto nie je.
Určite sa mi to "hodiť" nebude.
citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Jak ukládat přepisované data
No neviem.
Nie je mi to jasné a prehľadné to tak isto nie je.
Určite sa mi to "hodiť" nebude.citovat
MS Excel
Téma: Jak ukládat přepisované data 
Zaslal/a Merlin99 21.6.2016 16:56
Zdraví.
resim jeden problem ohledne ukladani dat. Př: Mam vstupni sesit do ktereho chci kazdej den vlozit aktualni data to znamena ze tento sesit se bude kazdej den prepisovat ale ja bych na dalsim sesite potreboval nejakym zpusobem ukladat vsechna minula data. Myslite ze je to nejak možné? nic me nenapada jak to automaticky resit ... viz priloha
Příloha: 
31815_pokus9.rar (9kB, staženo 27x)
31815_pokus9.rar (9kB, staženo 27x)No neviem.
Nie je mi to jasné a prehľadné to tak isto nie je.
Určite sa mi to "hodiť" nebude.
citovatmarjankaj
a co vam neni jasne jde jen v postate udelat makro ktery najde na vsech sesitech aktualni datum v radku a sloupec krizici tento datum skopiruje a vlozi jko hodnoty aby se znicil vzorec. tim se data jakoby ulozi...citovat
a co vam neni jasne jde jen v postate udelat makro ktery najde na vsech sesitech aktualni datum v radku a sloupec krizici tento datum skopiruje a vlozi jko hodnoty aby se znicil vzorec. tim se data jakoby ulozi...citovat
vím že je to složitý macro ale kdyby se to nekomu podarilo nabizim 300 Kč na ucet.citovat
(24.6.2016 10:44)#031850
Zadání je stejně nepochopitelné jako na začátku. Jestli chcete, ozvěte se soukromě, poslal jsem e-mail. Nemyslím si, že by makro bylo složité, jen nikdo netuší, co chcete a evidentně se to nevyřeší tady písemně.citovat
Zdravím
Princip
Do sešitu vstup chci každý den vložit aktuální data, pak vlezu do sešitu START a zmačknu tlačítko
Toto tlačítko by mělo na všech sešitech FINAL najedou najít dnešní datum na řádku 9 a pak následně tento celý sloupec (Z=dnes) (který kříží dnešní datum) skopírovat a vložit jako hodnoty. = tím se zníčí vzorec
Tímto se mi vytvoří historiie dneška, tento postup budu každý den opakovat
Davato už smysl?
Děkuji za jakoukoli pomoc samozřejme se financne domluvime.
Princip
Do sešitu vstup chci každý den vložit aktuální data, pak vlezu do sešitu START a zmačknu tlačítko
Toto tlačítko by mělo na všech sešitech FINAL najedou najít dnešní datum na řádku 9 a pak následně tento celý sloupec (Z=dnes) (který kříží dnešní datum) skopírovat a vložit jako hodnoty. = tím se zníčí vzorec
Tímto se mi vytvoří historiie dneška, tento postup budu každý den opakovat
Davato už smysl?
Děkuji za jakoukoli pomoc samozřejme se financne domluvime.
Příloha: 31851_pokus999.zip (54kB, staženo 19x)
citovat31851_pokus999.zip (54kB, staženo 19x)(24.6.2016 12:14)#031852
Ne, mně osobně to smysl nedává a tady luštit smysl listů FINAL nehodlám (finále by mělo znamenat finále). A už začněte listu říkat list. Soukromě, přes telefon, Skype, TeamViewer.citovat
???
To chcete takéto niečo ?
Sub Kopiruj_Click()
Dim SH As Worksheet, Stlpec As Integer, Meno As String
On Error Resume Next
For Each SH In Worksheets
With SH
Meno = .Name
If InStr(1, Meno, "FINAL") > 0 And Meno <> "FINAL" Then
Stlpec = WorksheetFunction.Match(CDbl(Date), .Rows(9), 0)
If Err = 0 Then
With .Cells(9, Stlpec).Resize(.Cells(Rows.Count, Stlpec).End(xlUp).Row - 8)
.Value = .Value
End With
Else
Err.Clear
End If
End If
End With
Next SH
End Subcitovat
To chcete takéto niečo ?
Sub Kopiruj_Click()
Dim SH As Worksheet, Stlpec As Integer, Meno As String
On Error Resume Next
For Each SH In Worksheets
With SH
Meno = .Name
If InStr(1, Meno, "FINAL") > 0 And Meno <> "FINAL" Then
Stlpec = WorksheetFunction.Match(CDbl(Date), .Rows(9), 0)
If Err = 0 Then
With .Cells(9, Stlpec).Resize(.Cells(Rows.Count, Stlpec).End(xlUp).Row - 8)
.Value = .Value
End With
Else
Err.Clear
End If
End If
End With
Next SH
End Subcitovat
elninoslov : Díky za rady, ale nevím presne jak vase MACRO pouzit. Ale volal jsem si s panem xlnc a on uz natom pracuje dovysvetlil jsem mu detaili problemu. DEKUJIcitovat
Ako použiť makro? Priradiť ho k tlačítku. Neviem či je to to čo ste chcel. Išiel som podľa popisu, ale nepozdáva sa mi. Xlnc-emu to vysvetlite lepšie, lebo je to také "magické"... Držím palec.citovat
Držím palec.citovatelninoslov
omlouvám se vase macro je presne co jsem chtel uz mi to jde. Jen se chci zepat neslo by misto vyhledávani dnesniho datumu zmenit na hledani datumu nad tlacitkem jinak ?? Opravdu klobou skvela prace!
Pokud by to slo bylo by to TOP
omlouvám se vase macro je presne co jsem chtel uz mi to jde. Jen se chci zepat neslo by misto vyhledávani dnesniho datumu zmenit na hledani datumu nad tlacitkem jinak ?? Opravdu klobou skvela prace!
Pokud by to slo bylo by to TOPPříloha: 31866_pokus999.rar (63kB, staženo 19x)
citovat31866_pokus999.rar (63kB, staženo 19x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články