Příspěvky uživatele
< návrat zpět
elninoslov: Nevíte, kde je problém, skript funguje, ovšem, když spustím makro jiné, které kopíruje do jiného sešitu data, tak na mě vyletí hláška: Runtime error 9, subscript out of range, Debug mě odkáže právě na 1. řádek tohoto skriptu.
Fantazie a hluboká poklona, moc děkuji!
Děkuji moc, kód vypadá naprosto precizně, leč se mi nedaří data zkopírovat. Zároveň jste se správně zeptal na omezení, šlo by kód poupravit na to, že zdrojová data, data v listu1, budou zamčena, a to bez hesla? Můžete prosím Váš kód vložit a otestovat v mém pokusném souboru? Byl bych Vám opravdu vděčen.
Máte pravdu, napsal jsem to zmatečně, zkrátka do jakého listu se mají data zkopírovat je proměnlivá hodnota (není podstatné), cílové umístění bude přečteno z buňky AO1 (makro přečte Text: např. "list1"), což bude název listu, kam se mají data vložit. Adresa umístění tedy není pevně daná.
Dobrý den, po několika marných pokusech zkopírovat odněkud a upravit funkční makro se obracím na vás s prosbou a vložení funkčního kódu s těmito požadavky:
Potřebuji zkopírovat data Z:
Zdroj.xlsm List1 Rozsah: A1:S25
DO: Cil.xlsx název listu, do kterého se mají data zkopírovat dynamicky přečíst z buňky AO1 zdrojového souboru
Nakonec uložit a zavřít oba sešity.
Pro jistotu: umístění obouklsouboru: C:\Pokus
Předem moc děkuji
Mockrát děkuji, to je přesně ono! Skvělé a díky oběma!
Dobrý den,
rád bych exportoval tabulku jako obrázek pomocí VBA.
Mám tabulku na Listu názvaném "CELKEM", a rád bych tabulku rozsahu A2:U40 exportoval dynamickým názvem - název souboru by byl v buňce A1 a umístění cesty, kam bych exportoval, by bylo např. v buňce AM1. Formát by měl být jpg, png, nebo bmp.
Děkuji za Vaše rady, případně odkazy.
Moc děkuji oběma, perfektní.
Dobrý den, ve VBA jsem neznalec, ale potřeboval bych a vás poprosil o radu na tento (zjednodušený) příklad:
Když buňka A1 (List1) = Pravda, pak skryj List2
List se musí skrýt po změně hodnoty, která se propojí se zaškrtávacím políčkem,zkoušel jsem to takhle, ale je tam nějaká blbost:
Private Sub Worksheet_Change(ByVal Target As Range)
If .Range("A1") = 1 Then
Sheets("List2").Visible = False
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