< návrat zpět
MS Excel
Téma: Kopie dat z buňěk 
Zaslal/a Martin12345678 20.10.2013 15:11
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
Předem se omlouvám, že to zase vytahuju, ale narazil jsem na problém při vkládání do formuláře. Pokud je ve zdrojovém sloupci mezi obsazenými buňkami jedna prázdá, tak vyzkočí chyba.
A já bych právě potřeboval, aby se i ta prázdná buňka ve sloupci zkopírovala do cílového listu (Aby se kopírovalo vše mezi první a poslední buňkou v daném rozmezí včetně prázdných buněk).
Přikládám soubor. Prosím o pomoc...
Příloha: 
15927_databaze.rar (90kB, staženo 13x) citovatPalooo(28.10.2013 15:34)#015936 skuste toto:
Příloha: 15936_databaze.zip (113kB, staženo 18x) citovatJojo, funguje super. Ještě to prozkoumám a zkusím všechny možnosti formuláře, ale vypadá to, že je to to co jsem potřeboval. Ještě jednou díky;-)
citovat
RSS nejnovější články