Příspěvky uživatele
< návrat zpět
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
Soubor v příloze.
a potřebuji to dostat do E5 až E31, L5- L31,Q5 - Q31,V5 - V31
prostě , aby se nezobrazili ty nuly na konci
nejlepší by bylo Jiří asi to tvoje
Jiří497 napsal/a:
marjankaj napsal/a:Jiří497 napsal/a:Příloha, příloha, příloha.......
A nedal som?
To bylo na Fantastyk. Že by mohl dát přílohu s tím co mu nefunguje.
Jiří497 napsal/a:
marjankaj napsal/a:Jiří497 napsal/a:Příloha, příloha, příloha.......
A nedal som?
To bylo na Fantastyk. Že by mohl dát přílohu s tím co mu nefunguje.
Napisu jak dojdu do prace k večeru
marjankaj napsal/a:
Jiří497 napsal/a:Příloha, příloha, příloha.......
A nedal som?
Už jsem to stáhl.. jo to funguje, ale nějak mi nejde když chci spojit tyto dva vzorečky...
KDYŽ(JE.PRÁZDNÉ(B5);" ";SVYHLEDAT(B5;Zpian!F6:AC9999;5;0))
a to tvoje nebo od Jíří497 :-(
=KDYŽ(JE.PRÁZDNÉ(B5);" ";SVYHLEDAT(B5;Zpian!F6:AC9999;5;0))
a k tomu přidat...
(E5/10^(DÉLKA(E5)))*10^MAX(0;(DÉLKA(E5/10^(DÉLKA(E5)))-2)
Dík
marjankaj napsal/a:
=(A1/10^(LEN(A1)-1))*10^(LEN(A1/10^(LEN(A1)-1))-2)
=(A1/10^(délka(A1)-1))*10^(délka(A1/10^(délka(A1)-1))-2)
ten mi nejde vůbec
Jiří497 napsal/a:
Taková blbost, když těch nul nebude na konci moc.
Aneb jak trávit dlouhé zimní večery vnořováním dalších a dalších a dalších... když:
=KDYŽ(MOD(A2;10);A2;KDYŽ(MOD(A2;100);A2/10;KDYŽ(MOD(A2;1000);A2/100;KDYŽ(MOD(A2;10000);A2/1000;"Konec"))))
Musí se samozřejmě jednat o číslo.
Jedná se jen o 2,3 nebo 4 nuly a když mám teď vzoreček:
=KDYŽ(JE.PRÁZDNÉ(B5);" ";SVYHLEDAT(B5;Zpian!F6:AC9999;5;0))
jak teď tam vložím ty když pro 2,3 a 4 nuly :-(
Ten tvuj vzorec funguje, ale nějak se mi nedaří ho vložit do toho mého
jedná se vždy čísla jen v tomto formátu... (1023000 nebo 205000 nebo 999500)
Díky
Zdravím hackeři 
,
už mi došly nápady...
Potřeboval bych smazat nuly na konci buňky..
Př. 1023000 nebo 205000 nebo 999500
a potřeboval bych, aby to pokaždé mazalo ( nebo skrylo ) jen nuly na konci..
Dík za radu
nevím co se stalo, už by to tam mělo být
tak jsem zkusil to udělat jinak, že jsem přidal do makra: ( nejedná se o soubor, který je tady vložený..)
Columns("AA:AH").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"B4"), CopyToRange:=Range("D4:L116"), Unique:=False
Všechny data jsem zkopíroval do sloupců AA až AH a vyhledávací parametr je v poli B4 a má se napsat do polí D4 až L116 - tedy pokud se na tom řádku shoduje.., ale stejnak mi to nějak nefunguje
Zdravím,
už 12 hodin nemůžu přijít na věc kterou místní borci udělají za pár sekund :-)
Chtěl bych do tabulky vypisovat data.. z různých listů.
Např. Když napíšu do pole A2 - auto ( tak se to vypise tabulku ze sešitu auto, pokud napisu autobus tak se to vypise parametry ze sesitu autobus )
viz příloha
Děkuji mnohokrát za jakoukoliv pomoc
S pozdravem
Fantasyk
Zdravím,
chtěl bych se jen zeptat, jelikož ani google o ničem takovém neslyšel, jestli jde udělat v excelu makro tak, aby to udělalo printscreen nebo nejlépe výřez, konkrétního grafu a dal tzv do bufferu, abych mohl kdekoliv jinde dát vložit (ctrl+v) a objevil by se tam ten obrázek...
Dík všem za info
Fantasyk
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