Příspěvky uživatele

To je pravda, ta informace mě určitě nepomůže.
Zapoměl jsem to zmínit do textu, ale vycházel jsem z toho, že dojde ke změně mého kódu a tam je oblast definována:-(

Potřebuji překopírovat více sloupců.Mě šlo jen o vyřešní jednoho sloupce pač zbytek už bych si dle vzoru dodělal.
Popravdě se v tom kódu vůbec neorientuji, ale všiml jsem si, že tam není ukončení oblasti pro kopírování buněk...start je jasný B24, ale jak je tam vyřešen konec oblasti z které se kopíruje (B24:B373 (v příkladu je konec na B124))?

Popravdě jsem nečekal, že to bude takhle složitý kód, jaký jsi napsal. Myslel jsem, že jen něco málo doplníš do toho mého původního a pojede to. Proto jsem sem dodatečně vložil přílohu pro vyzkoušení. Kdybych tušil, že to bude takhle náročný, tak jsem jí sem dal hned. Tak se nezlob

Zde přikládám soubor s příkladem.
Kód je přidělen k tlačítku na listu Nabídka.
Je zde i druhý kód, který má skrýt řádky po přenesení dat.

Díky moc. Zkoušel jsem oba kódy. První přenese data, ale neřeší můj problém:-( Druhý hlásí chybu v tomto místě:
Set SourceRange = Range(FirstCell, LastCell)
Kód jsem vložil pod tlačítko CommandButton1.

Mé znalosti programování jsou typu pokus omyl. Co potřebuji si tak nějak obstarám vzorci a pokud potřebuji něco makrem tak pátrám zde po diskuzi. Takže takový začátečník. Jen pracovně moc nestíhám se samoukou VBA. Proto jsem rád, že mě tu lidi pomáhají.

Díky za typ, ale dneska na tom dělám celé odpoledne a už jsem v nouzi a musel jsem tu požádat o pomoc. Můžu tě poprosit (nebo někoho jiného, kdo by si udělal chvilku)o úpravu kódu té první varianty, tak aby se kopírovali jen neprázdné buňky (v rozmezí první až poslední obsazená)?

Potřeboval bych zkonzultovat můj problém s kopií dat.
Níže uvedený kód kopíruje oblast buněk do oblasti na jiném listu. Zdrojová data obsahují vzorce a do cílové oblasti vkládám pouze hodnoty. Problém je ten, že v cílovém listu mám nastavený jiný kód, který má z vložené (kopírované)oblasti zjistit obsazené buňky a kde je prázdná buňka tak se skryje řádek. Bohužel ale při vložení kopírované oblasti do cílového listu se i prázdné buňky tváří jako kdyby tam byla data a tak druhý kód na skrytí řádků nefunguje.
Napadlo mě, zda by nešlo již při výběru ze drojové oblasti vybrat, kopírovat jen obsazené buňky (je možné, že mezi obsazenými buňkami budou i prázdné buňky, tudíž by se měla kopírovat oblast od B24 až poslední obsazená buňka)?
Nebo nějaké jiné řešení?
Jsem v koncích, prosím někoho zkušenějšího o pomoc. Předem děkuji. M.
Sheets("Nabídka_im").Select
Range("B24:B373").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Nabídka").Select
Range("B24:B24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

No jasně, ve Value byl zápis, takže tím je to vyřešeno. Díky :-)

Děkuji...hledal jsem něco v tomto smyslu na fóru, ale nic. Ponechám to tak jak to je.

Super, děkuji moc.
Ještě bych potřeboval...jak při otevření UF vyčistím Combobox, po zavření UF mě tam zůstává poslední zobrazený záznam a já bych potřeboval, aby byl čistý, nebo maximálně na prvním záznamu. Jde to nějak?

Zdravím, mám jeden malý dotaz. V UF mám několik textboxů a zajímá mě zda jde po otevření UF zvolit umístění "kurzoru" na daný textbox. Myslím tím, že po otevření UF bude přednastavený př. textbox3 do kterého mohu bez nutnosti kliku na něj rovnou vložit text. Snad jsem to napsal srozumitelně;-) Děkuji

I tobě moc díky za pomoc...

Super, díky ti moc...

Půjde to zapracovat do výše uvedeného kódu?
Omlouvám se, že se ptám jako bl..c, ale fakt v těch kódech plavu:-(

Opravdu nikdo?

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje