Příspěvky uživatele
< návrat zpět
Tímto si otevřeš DISK Z: a vyhledávaš na něm pozde soubory JPG
With Application.FileDialog(msoFileDialogFilePicker) 'spustí dialogové okno pro otevření
.InitialFileName = "Z:\" 'nastavení úvodní složky procházení
.Title = "Vyber adresár" 'nastavení názvu okna
.Filters.Add "Soubory pouze JPG (jpg)", "*.JPG*", 1 'nastavení filtru pro zobrazení souborů
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Nebyly nacteny žádné soubory": Exit Sub 'pokud není vybrán žádný soubor, makro vypíše hlášení a ukončí se
ElseIf .SelectedItems.Count > 1 Then
MsgBox "Vyberte pouze jeden soubor!": Exit Sub 'pokud je vybráno více, než jeden soubor, makro vypíše hlášení a ukončí se
Else
zdrojovy_soubor = .SelectedItems(1) ' načte adresu souboru do proměnné
End If
End With
Workbooks.Open (zdrojovy_soubor) ' otevření souboru, který jsme vybrali
Zdravím mistři,
můžete mi někdo poradit s tímto kódem?
Dim Compld As Range
Set Compld = Range("C:N").find(What:=Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("B1").Value = Compld.Offset(, -9).Value
akurát potřebuji jak je Compld.Offset(, -9) posouvat vždy na sloupec C
Jelikož někdy to je -9 a někdy -5 atd..
Nevíte někdo ?
děkuji
Jiří497 napsal/a:
Set w = Workbooks.Open(Filename:="\\10.71.68.30\_common\_PRODUCTION\FRICTION\LISY\Zpian\dlouhý.xls", ReadOnly:=True)
děkuji moc = člověk se stále učí ..
Děkuji moc
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
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