Příspěvky uživatele
< návrat zpět
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
Děkuji všem, ale stejak mi to pořád nějak nejde
teď mám vzorec:
=KDYŽ(JE.PRÁZDNÉ(C21);" "; SVYHLEDAT(C21; Zpian!$F$6:$AC$10001;5;0)/10^DÉLKA(SVYHLEDAT(C21; Zpian!$F$6:$AC$10001;5;0))*10^MAX(0;DÉLKA(SVYHLEDAT(C21; Zpian!$F$6:$AC$10001;5;0)/10^DÉLKA(SVYHLEDAT(C21; Zpian!$F$6:$AC$10001;5;0)))-2))
a dopsal by jste mi někdo u něho aby to ubíralo max 3 nuly ?
viz příloha
a pak tam mám ještě makro, které pokaždé klikne na buňka a dá enter ( tlačítko ZAP. v buňce A35 ) aby se mi aktualizoval součet barev pozadí - nevíte jak by se to udělat jinak a lépe
Děkuji všem moc za ochotu
Jiří497 napsal/a:
Ve vzorovém příkladu se číslo 1078500 nevyskytuje, jen 1078000.
Pokud tam 1078500 dopíšu, tak se v pořádku transformuje na 10785.
aha moje chyba... a šlo by, aby se vždy mazali max 3 nuly ?
př. 910000 a zobrazilo by se 910 ?
př.2 1080000 a zobrazilo by se 1080 ?
Díky moc
Jiří497 napsal/a:
Třeba takto:
=KDYŽ(JE.PRÁZDNÉ(B5);" "; SVYHLEDAT(B5; ZPIAN!$F$6:$AC$10001;5;0)/10^délka(SVYHLEDAT(B5; ZPIAN!$F$6:$AC$10001;5;0))*10^MAX(0;délka(SVYHLEDAT(B5; ZPIAN!$F$6:$AC$10001;5;0)/10^délka(SVYHLEDAT(B5; ZPIAN!$F$6:$AC$10001;5;0)))-2)) Příloha: 46908_46907_vyroba-lisy-14.6-b-a-test.xlsx (135kB, staženo 1x)
Parada ty jsi ale hlava :-)
akurát mi nejde třeba když se v listu Zpian oběví např kód 1078500 tak se mi ukáže 1078
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články