» Poradna » Programy

Exel odkazy

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 2/2
 |   |  Microsoft Windows XP Chrome 46.0.2490.71  |  [62.77.92.---]

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  |  [80.188.31.---]

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  |  [80.188.31.---]

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