Word
Excel
PowerPoint
Access
Outlook
ECDL
Poradna - Makro, přidání řádku dle podmínky
Vložení příspěvkuhlavní kategorie | zpět | + odpovědět na toto téma
| Makro, přidání řádku dle podmínky - diskuze na toto téma |
| Dobrý den,
Potřeboval bych napsat makro které by přidalo řádek do aktivní tabulky za předem stanovené podmínky.
Podmínky
Najdi 8 řádek, a nad něj vlož prázdný
Začni hledat 8 řádek od 2 řádku (v první řádku je nadpis každé buňky, poté už je dodržena logika 8 řádků vždy)
V příloze vzorová tabulka (v 8 řádku je sloupec celkem, a nad něj bych potřeboval ten prázdný řádek) snažil jsem se něco vytvořit a pohledat, ale bohužel mi to nejde našroubovat na moji tabulku.
Děkuji za pomoc Podařilo se mi vypotit toto:
Sub Makro1()
Rows("8:8").Select 'řádek 8
Selection.Copy
Rows("8:8").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
Application.CutCopyMode = False
End Sub
Ale potřeboval bych to "vylepšit" do fáze že to projede celou tabulku (má přes 10 tisíc řádků) a vždy dodrží podmínku stanovou zde. Odpověď Skúste toto. Ak to správne chápem, tak ide o vloženie nového prázdneho riadku. A to sa dá pre viac riadkov súčasne. Naopak ak potrebujete kópiu dát z 8. riadku do nového 9. riadku. Tak to bude trvať strašne dlho, lebo sa bude musieť použiť Vaša metóda veľa krát (10000:8). Odpověď Tak se mi podařilo si s tím ještě trošku pohrát, a udělat makro dle toho co potřebuji ale nedaří se mi ho upravit pro své potřeby aktuálně.
Potřebuji aby makro našlo ve sloupci E buňku která obsahuje text Pokuty.
Jakmile ho najde tak nad tuto buňku vytvoří nový řádek a do toho řádku nakopíruje hodnoty z buněk A až D (tyto hodnoty naleje v novém řádku do buněk A až D) které se nacházejí pod tím novým řádkem. A do buňky E v novém řádku naleje slovo Kóje.
Aktuálně makro dělá 3 řádky, já bych potřeboval pouze 1.
Děkuji za pomoc Odpověď |
