» 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, Obuv




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

V doupěti hackerů na brněnské FIT: Ukázali nám útoky na Bluetooth i vlastní chytré krabičky

V doupěti hackerů na brněnské FIT: Ukázali nám útoky na Bluetooth i vlastní chytré krabičky

** Internet je plný malwaru, to už dnes ví každý ** Víte ale, že lze útočit třeba i na Bluetooth? ** Navštívil jsem hackery z brněnského FITu

Jakub Čížek | 1

Pojďme programovat elektroniku: Jak vlastně funguje akcelerometr a gyroskop nejen ve vašem telefonu

Pojďme programovat elektroniku: Jak vlastně funguje akcelerometr a gyroskop nejen ve vašem telefonu

** Každý současný vybavený mobil má akcelerometr a gyroskop ** Jenže co každé z těchto čidel vlastně dělá a jak vypadá? ** Dnes si to vysvětlíme a do hry zapojíme i Airbus A380 a Arduino

Jakub Čížek | 11

Nová americká jaderná puma změní strategii boje

Nová americká jaderná puma změní strategii boje

** Bombardér Northrop Grumman B-2 Spirit amerického letectva nedávno svrhl jadernou pumu ** Šlo o test nové varianty pumy B61-12 ** Ta by měla mít hlavice schopné explodovat se silou 0,3 až 50 kilotun

Stanislav Mihulka | 60

Užijte si poslední změny času: Už od března 2019 můžeme mít trvale letní čas

Užijte si poslední změny času: Už od března 2019 můžeme mít trvale letní čas

** Evropská komise přijala legislativní návrh na zrušení střídaní času ** Možná tak v březnu 2019 přesuneme ručičky hodinek naposledy ** Od toho okamžiku bude permanentně platit letní čas

Karel Kilián | 98

Roboruka se 100 let učila otočit kostičku. Skutečné A.I. se možná nikdy nedočkáme

Roboruka se 100 let učila otočit kostičku. Skutečné A.I. se možná nikdy nedočkáme

** Strojové učení v posledních deseti letech dokázalo divy ** Používáme ho dnes každý den nejen ve vyhledávači ** A přesto se člověku nepřibližuje ani náznakem

Jakub Čížek | 59


Aktuální číslo časopisu Computer

Jak vytvořit a spravovat vlastní web

Velký test herních klávesnic a DVB-T2 tunerů

Vše o formátu RAW

Vybíráme nejlepší základní desku