Příspěvky uživatele
< návrat zpět
Range("A1").Copy Range("d1")
Na to je tento príkaz. Stačí ak zameníš v cykle hodnoty from=1 a to=2. Zrejme si to budeš vedieť vypočítať. Napríklad ako to uviedol Hokuston. 
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, PrintToFile:=True, Collate:=True, IgnorePrintAreas:=False
Asi u teba stránka znamená niečo iné ako list.
Teda predpokladám že List1 má viac stránok? A ty chceš z toho listu tlačiť iba určitý počet stránok?
Jediný problém mám se sloupcem D, N, P. Potřebuji, aby se mi vždycky z buňky pod ní zkopíroval vzorec, né hodnota. Šlo by to nějak pozměnit? Děkuji
--------------------
napríklad aj takto
Range("d1").Formula = Range("d1").offset(1,0).Formula
alebo
Range("D2").Copy Range("d2").Offset(-1, 0)
No keďže prílohy sa asi nedočkám(neviem či kopíruješ hodnoty alebo vzorce)
tak namiesto
Sheets("Přehled").Select
Range("F2").Copy
Range("O2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
By som dal
Sheets("Přehled").Range("F2").Copy sheets("Přehled").Range("O2")
Ale keď nevidím obsah listu tak je to iba také teoretizovanie.
Ale ten tvoj kód sa mi ani nechce čítať nie to ešte aj analyzovať.
myslím, že by si to mohol zrýchliť, keby si dal prílohu. Píšeš, že máš vytvorený list, ale my nemáme. A asi si ho vytvárať nebudeme(a ani nevieme vytvoriť)
No ja by som vyhodil tie SELECTy.
elninoslov napsal/a:
Nie, nezabudol, je to hneď druhé slovo...
No mne to došlo. Ale zadávateľ to nemusel pochopiť.
Ale potom z prílohy to zrejme pochopil.
eLCHa napsal/a:
lajos musí říct, nicméně
"192.168.254.255" + 1
Vám vyjde
"192.168.254.0"
a to podle mne není o 1 větší, ale o 255 menší ;)
No s tým ja už nič nenarobím. To je na rozhodnutí lajosa.
=LEFT(A1;FIND(",";SUBSTITUTE(A1;".";",";3)))&RIGHT(A1;(LEN(A1)-FIND(",";SUBSTITUTE(A1;".";",";3))))+1
prípadne takto
=LEFT(A1;FIND(",";SUBSTITUTE(A1;".";",";3)))&MOD(RIGHT(A1;(LEN(A1)-FIND(",";SUBSTITUTE(A1;".";",";3))))+1;256)
@elninoslov.
Asi si zabudol napísať, že ide o maticový vzorec.
elninoslov napsal/a:
-Keď bude označených viac buniek, reaguje len na prvú.
-Vkladá vzorec na aktuálnu bunku
-Keďže je to vzorec, tak reaguje aj na zmenu bunky, či už výpočtom alebo vložením.
Veď to som písal na začiatku, že ja by som tam dal vzorec.
Ale praktický význam tam stále nevidím. Čo s tým mieni ďalej robiť? Preto som sa tým ani nezaoberal.
@eLCHa
A ak by mal zobrazené obidva listy(inak ten význam je dosť pochybný), tak sa udalosť Workbook_SheetSelectionChange nevyvolá.
Teda zbytočnosť.
Pavlus napsal/a:
Šlo by to např. tak, že na prvním listu se vytvoří událost SelectionChange, která vždy při změně výběru přepíše na druhém listu požadovanou buňku.
P.
Asi by som tam dal radšej vzorec, namiesto hodnoty. Čo ak zmení hodnotu bunky cez CTRL+V?
A nebude problém ak vyberie nejakú oblasť? A nie iba jednu bunku?
Akosi mi uniká praktické využitie tejto vymoženosti.
Skús rozšírený filter
Range("A1:A17").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("D1"), Unique:=True
Iska napsal/a:
Třikrát huráááá!!!!
Funguje perfektně, mám 13tis řádků, takže mám spoustu ušetřeného času. Mockrát děkuji!!!
A čo ti funguje? Akosi som nepochopil:
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