Příspěvky uživatele
< návrat zpět
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
Děkuji moc krát vyřešeno
Zdravím hackeři,
můžete mi někdo poradit kde mám chybu?
Dim w As Workbook 'A
Set w = Workbooks.Open(Filename:="adresa.xls")
ThisWorkbook.Sheets("Zpian").Range("A1:AC9999").Copy 'B
w.Sheets("zpian").Range("A1:AC9999").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
Application.CutCopyMode = False
w.Close SaveChanges:=True
Set w = Nothing
v tomhle: w.Sheets("zpian").Range("A1:AC9999").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
mi to píše chybu
elninoslov napsal/a:
Vidím, že v legende sa počíta s chybou (text ##### - chyba NEDOSTUPNÝ). Aj stĺpec UL. Takže aj v stĺpci MIX sa má zobraziť "#####" ak nenájde v Zpian? Alebo má byť potom bunka ="" ?
Makro na počítanie farby .... moje nervy, čo týždeň, to chce niekto spočítavať počet farieb. Na to Excel nieje stavaný. Zmena farby nespôsobí prepočet vzorcov, a teda na to ani makro nereaguje. Mám rozpracovanú celkom sľubnú metódu, ktorá by mala reagovať na zmenu farby, bez potreby niekam klikať, no zatiaľ nefunguje správne. Zmierte sa s potrebou aktualizácie počtu. Akurát asi nieje potrebné aby sa volala vo Vašom prípade makro funkcia pre každú bunku, ale iba jedna pre celý rozsah A5:A34 a pre všetky 3 farby naraz, a len do 1 bunky C35. Mám to tak urobiť?
#### tam jsou správně...
Makro:
Ano, pokud by šlo udělat ať označí a dá enter u všech najednou bylo by lepší...
EDIT:
abych to bylo jednodušší tak bych potřeboval:
=KDYŽ(JE.ČISLO(A2);A2/10^(POZVYHLEDAT(0;MOD(A2;10^{0;1;2;3}))-1);"")
a místo A2 dát:
KDYŽ(JE.PRÁZDNÉ(C21);" "; SVYHLEDAT(C21; Zpian!$F$6:$AC$10001;5;0)
ale nějak pokus omyl se mi to tam nedaří vecpat
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