Příspěvky uživatele
< návrat zpět
elninoslov napsal/a:
Parameter procedúry Open ?
ReadOnly:=True
Když jsem to napsal takhle:
Set w = Workbooks.Open(Filename:="\\10.71.68.30\_common\_PRODUCTION\FRICTION\LISY\Zpian\dlouhý.xls").ReadOnly = True
Tak mi to píše chybu :
Compile ERROR
a makro ani nejede
Type Mismatch
Zdravím,
mám napsané makro:
Dim w As Workbook
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
Sheets("Zpian").Select
Range("A1:AC2000").Select
ActiveSheet.Paste
Ale, když se to připojí a otevře soubor, tak ten soubor je zaheslovaný a chtěl bych, aby to kliklo jen na tlačítko ( Jen pro čtení )
ale nevím jak to udělat..
Dekuji moc
Jiří497 napsal/a:
https://office.lasakovi.com/excel/funkce/index-pozvyhledat-vyber-unikatnich-dat/
zhruba v polovině: Jak nahradit SVYHLEDAT
nebo jak píše marjankaj pomocí vnořených cyklů.
Ja bych asi použil FIND ve VBA.
Ale tam určím primárně vyhledávací jiný sloupec, ale když tam je vyhledavacich sloupců víc tak mi to nejde..
Ale vic se mi líbí ten Váš nápad find to bude asi lepší. Nemáte někdo nějakou ukázku kódu?
Děkuji
Jiří497 napsal/a:
Asi jste nepochopil tuto funkci.
Funkce SVYHLEDAT vyhledá v prvním sloupci tabulky zadanou hodnotu a vrátí hodnotu buňky ve stejném řádku jiného sloupce dané tabulky.
Ten jiný sloupec je napravo. Takže vyhledá hodnotu ve sloupci jedna a vrací hodnotu ze stejného řádku ve sloupci 2 nebo 3 nebo 4...
Ja jsem ÍÁ, a jakou funkci mám zadat ať to hledá v lokaci B:L akdyž najde tak to napíše řadek A ?
Ještě přidávám soubor..
mám v Range A2 769 a v Range A4 mi to najde 766
i když tam je :
Range("A4").FormulaLocal = "=SVYHLEDAT(A2;Database!A:L;SLOUPEC(A))"
a na daném řádku ( v sheets Database ), když to vyhledá 769 se nachází 828 ( ve sloupci A ) ale napíše to tam 766 což vůbec nechápu..
Zdravím,
mohl by jste mi někdo poradit?
Range("A4").FormulaLocal = "=SVYHLEDAT(A2;Database!B:L;SLOUPEC(A);0)"
je to ale špatně napsané...
,ale potřeboval bych když najde hodnotu v v buňkách B:L
tak to napíše hodnotu, která se nachází v daném řádku ve sloupci A.
Př.
A B C D
5 20 21 22
6 50 52 54
7 81 82 83
10 10 5 20
budu hledat např. 82 a vypíše mi to číslo 7 ze sloupce A
lugr napsal/a:
Je to maticový vzorec. Měl jsi to správně, stačilo jen potvrdit CTRL+Shift+EnterPříloha: 47313_47312_kopie-kardex-v0.3aaaaaa.xlsm.zip (35kB, staženo 1x)
aha to si musím pamatovat
to potvrzeníAle když smažu A4 tak se ukážou 00:00:00 - u toho času
Lugr e,
mohl by jsi mi prosím ještě upravit datum zvlášť a čas ?
jsem to zkusil a nějak mi to stále nefunguje 
viz příloha
Děkuji moc
a jak jsi to udělal že to mizí a načítá ?
nechápu jak jsi to udělal
EDIT:
"upravenou" verzi mám v příloze...
mepexg napsal/a:
Ak máte viacej riadkov v archíve, stačí zmeniť bunku na liste Program!A4 na požadovanú figuru a potom už len Data-Refresh-All (Ctrl+Alt+F5) v tabuľke Data-Refresh (Alt+f5) a tabuľka od a11:h? sa zaktulizuje podľa požiadaviek (z archívu sa vyberie zadaná figura - zoradí sa zostupne Datum a čas a ponechá sa prvých 10 riadkov). Ešte raz prikladám prílohu.Příloha: 47306_pq_kardex-v2.2.zip (42kB, staženo 0x)
A jde to i bez refreshe jak to má lugr ?
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
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