Příspěvky uživatele
< návrat zpět
mepexg napsal/a:
V prílohe je posledných 10 riadkov z archívu a zoradené dátumy zostupne.Příloha: 47293_pq_kardex-v2.2.zip (41kB, staženo 8x)
Tak nějak mi to od tebe taky nejde ale PQ mám..
Od lugr mi to jede jak má jen těch posledních 10 z historie
Diky moc vsem,
Jak budu u pc tak na to mrknu a zkusim pochopit jak jste to udelali
Jeste jednou moc dekuji
lugr napsal/a:
Tak to musí už někdo chytřejší. Ale měl byste něco udělat s tím makrem, všiml jsem si, že přenášíte buňky i se vzorci a formátem což Vám bude dělat neplechu. Kopírujte pouze hodnoty.
Jo to vim, ale neprisel jsem na to jak to udelat
Děkuji moc všem
a šlo by to, aby to napsalo vždy posledních 10 z archívu od nejnovějšího data ?
Teď v příloze je lepší soubor
mepexg napsal/a:
KT a filter ?!
jo, ale chci aby to udělalo automaticky podle kritéria - tudiž A4 je to moc velký soubor nejde tu nahrát :-(
z 31 Kb se stalo 20MB a nevím proč zas tak velký objem dat to není :-(
EDIT:
už jsem na to přišel
Ahoj Hackeři,
mohl by jste mi někdo poradit, nebo jak nejlépe udělat automatický filtr podle range?
V příloze v sheets Program range A4 - zadám (číslo figury)
a pod tím bych chtěl, aby to ze sheets Archív vyfiltrovalo to číslo figury a zkopírovalo na sheets Program ( vyznačeno žlutě )
Nebo nenapadá vás jak by to šlo jednodušeji udělat ?
Ale musí to právě udělat ihned co zadám číslo figury do A4 a odentruji...
Díky
Zdravím hackeři 
mám kód:
Dim datax As Range
Set datax = Sheets("Archív").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("Program").Range("A7:E7").Copy Destination:=datax
Set datax = Nothing
zapisuje vše jak má, ale potřeboval bych aby do "Archívu" zapisoval vždy do F aktuální datum a čas - kdy kliknu na tlačítko..
Díky za jakoukoliv pomoc
Stalker napsal/a:
Momentálně sem na telefonu tak to neověřím, ale tohle by mělo fungovat
=SUMA(1/COUNTIF(A1:A20;A1:A20))
Maticově (CTRL+SHIFT+ENTER)
Tak to nejede
proč nenapíšeš tady zadání ?
Ahojte,
můžete mi někdo poradit jak mám "sečíst" různé čísla ( neumím to vysvětlit)
Příklad...
1
1
2
1
2
3
výsledek = 3
Příklad 2...
1
1
2
výsledek = 2
Chci docílit, aby to sečetlo kolik tam je vyskytujícíh různých čísel...
(tzv. "nepočítalo duplicitní a určilo kolik tam je ruzných čísel )
našel jsem nějakou funkci UNIQUE - ale ta mi nejde
( =POČET2(UNIQUE(A1:A20)) )
https://exceltown.com/navody/funkce-a-vzorecky/jak-pocitat-v-excelu-pocty-unikatnich-hodnot/
děkuji moc
Dim w As Workbook 'A
Set w = Workbooks.Open(Filename:="\\10.71.68.30\_common\_PRODUCTION\FRICTION\LISY\Zpian\dlouhý.xls")
Range("A1:AC2000").Select
Selection.Copy
w.Close SaveChanges:=True
Set w = Nothing
A ted, jenom vložit do souboru v kterém je makro
Tak nic z toho mi nefunguje :-(
Prostě chci jen z jednoho souboru zkopírovat všechny data v listu zpian a zkopírovat do aktivního kde je makro do listu Zpian..
Nevite nekdo?
elninoslov napsal/a:
Oblasti v oboch zošitoch sú rovnaké? Nie sú tam zlúčené iné bunky, alebo na iných miestach?
Skúste zameniť xlAdd za xlPasteSpecialOperationAdd.
A určite chcete hodnoty pridávať k predošlým?
elninoslov napsal/a:
Oblasti v oboch zošitoch sú rovnaké? Nie sú tam zlúčené iné bunky, alebo na iných miestach?
Skúste zameniť xlAdd za xlPasteSpecialOperationAdd.
A určite chcete hodnoty pridávať k predošlým?
Ne nechci k predeslym, ale cele smazat a zadat aktualni data
Uživatelské menu
\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