» Poradna » Programy

Exel odkazy

 |   |  Microsoft Windows XP Chrome 46.0.2490.71

Dobrý den,prosím o radu, mám tu jednodušší makro které zkopíruje kompletní list a následně ho přejmenuje podle řady jmen v jiném listě ze sloupce A. Následně potřebuji,aby se aktivoval list Vloznoveho a pokud If Cells(i, 2) = "Mistr" ThenTak potřebuji, aby se aktivoval list - Sheets("Vzor (2)").Name = Cells(2, 5) - který se tímto přejmenoval na určitou hodnotu a já teď nevím jak na něj odkázat.Sheets("Jak odkázat na nový název listu").Cells(6, 6) = "Pracovní obuv"For i = 2 To 36 If Cells(i, 235) = "" Then Sheets("Vzor").Select Sheets("Vzor").Copy Before:=Sheets(1) Sheets("Vloznoveho").Select Cells(i, 1).Copy Sheets("Vzor (2)").Select Cells(2, 5).Select ActiveSheet.Paste Sheets("Vzor (2)").Name = Cells(2, 5) Sheets("Vloznoveho").Select If Cells(i, 2) = "Mistr" Then List(Jak odkázat na nový název listu .Cells(6, 6) = "Pracovní obuv" End If Else End IfNext i End Sub

Odpovědi na otázku

 |   |  Microsoft Windows 7 Chrome 40.0.2214.93

Ahoj,prečo proste nevymeníš poradie tých akcií? Skús, či Ti bude fungovať tento postupFor i = 2 To 36If Cells(i, 235) = "" ThenSheets("Vzor").SelectSheets("Vzor").Copy Before:=Sheets(1)'vloženie textu podľa podmienkySheets("Vloznoveho").SelectIf Cells(i, 2) = "Mistr" ThenSheets("Vzor (2)").Cells(6, 6) = "Pracovní obuv"End If'následné premenovanieCells(i, 1).CopySheets("Vzor (2)").SelectCells(2, 5).SelectActiveSheet.PasteSheets("Vzor (2)").Name = Cells(2, 5)End IfElseEnd IfNext iEnd SubInak to makro je pekný paskvil :) To si nahrával a následne upravoval?Ak nepotrebuješ mať na každom liste v bunke (2, 5) jeho názov a je to len pomocný postup, ako list premenovať, tak týchto 5 riadkov kóduCells(i, 1).CopySheets("Vzor (2)").SelectCells(2, 5).SelectActiveSheet.PasteSheets("Vzor (2)").Name = Cells(2, 5)nahraď týmto:Sheets("Vzor (2)").Name = Sheets("Vloznoveho").Cells(i, 1)Daj vedieť, či to funguje podľa Tvojich predstáv, prípadne mi pošli ukážku a čo by si chcel ešte zlepšiť

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 40.0.2214.93

Ešte ma napadla jedna skratka, miesto výberu listu, kopírovanie, výberu iného listu a vloženia môžeš použiť skrátenú formu v podobe odkial.Copy kamTakže miesto napr.Sheets("Vloznoveho").SelectCells(i, 1).CopySheets("Vzor (2)").SelectCells(2, 5).SelectActiveSheet.Pastemôžeš použiťSheets("Vloznoveho").Cells(i, 1).Copy Sheets("Vzor (2)").Cells(2, 5)Je to trocha elegantnejšie riešenie, ako šaškovať s označovaním a ručným kopírovaním

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Vzor, Select, Nový název




Určitě si přečtěte

Rekordy počasí: V Česku to ještě jde, skutečné extrémy zažívají jinde

Rekordy počasí: V Česku to ještě jde, skutečné extrémy zažívají jinde

** Teplotní extrémy dokážou překvapit. Seznamte se s rekordy v Česku i ve světě ** Rekordní hodnoty jsou mnohdy až k neuvěření ** Zjistěte, kdy ke bylo největší horko, zima, déšť či vítr

Karel Kilián | 7

Šmírovačka kamerami Googlu: Koukněte se, co nového zachytily na Street View

Šmírovačka kamerami Googlu: Koukněte se, co nového zachytily na Street View

Google stále fotí celý svět do své služby Street View. A novodobou zábavou je hledat v mapách Googlu vtipné záběry. Podívejte se na výběr nejlepších!

redakce | 44

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

** Pornografie údajně představuje třetinu internetové obsahu a je technologický tahounem ** Do erotického obsahu postupně zasahuje i virtuální realita ** Kromě vizuálního vjemu se pracuje také na virtuálním uspokojení toho hmatového

Jan Dudek | 28

Apple: naše mapy budou nejlepší na světě. Tajně jsme na nich pracovali několik let

Apple: naše mapy budou nejlepší na světě. Tajně jsme na nich pracovali několik let

** Apple odhalil své plány na zcela nové mapy ** Několik let pracuje na nových mapách, které by měly předběhnout konkurenci ** Objeví se s příchodem iOS 12 pro vybrané státy

Karel Javůrek | 50

Alan Turing: Genius, který matematicky stvořil počítač

Alan Turing: Genius, který matematicky stvořil počítač

Řešením matematického problému se dostal k modelu teoretického stroje, který nese jeho jméno a je základem logiky univerzálních počítačů.

Pavel Tronner | 56

Sex a rozmnožování při mezihvězdné cestě: Kolik lidí je potřeba pro let k Proximě Centauri?

Sex a rozmnožování při mezihvězdné cestě: Kolik lidí je potřeba pro let k Proximě Centauri?

** Vědci spočítali, jak velká by musela být posádka pro vícegenerační let k nejbližší hvězdné soustavě ** Proxima Centauri se nachází 4,3 světelných let od nás ** Za současných technologií bychom k ní letěli 6300 let

Petr Kubala | 53


Aktuální číslo časopisu Computer

Velký test 18 bezdrátových sluchátek

Vše o přechodu na DVB-T2

Procesory AMD opět porážejí Intel

7 NVMe M.2 SSD v přímém souboji