» Poradna » Programy

Makro excel

 |   | 

Ahoj, poradí mi někdo jak udělat makro, které by načetlo z několika listů všechny neprázdné buňky a umístilo je na nový list?

Mohlo by vás také zajímat

Odpovědi na otázku

 |   | 

Asi by to chtělo dotaz více specifikovat, nicméně jen základ:Podmínkou je,aby byly vyplněny všechny buňky bez prázdných buněk mezi začátkem a koncemkrok 1) vrátit se na začátek prvního listu(je třeba aby i ostatní listy sešitu byly na výchozích pozicích)krok 2) spustit načítání makra(Nástroje->makro->záznam nového makrakrok 3) stisknout ctrl+home (dostane tě na určený začátek listu)krok 4) stisknout ctrl+shift+šipka dolů, následně ctrl+shift+šipka doprava(krok 2 a 3 označí plné buňky v listu ale jen od plné do poslední plné, jakmile bude v označovaném seznamu jediná prázdná buňka, pak to označí jen po první prázdnou))krok 5) stisknout crtl+c(kopírování označeného)krok 6) stisknout ctrl+pg down(přepne Tě do následujícího listu)krok 7) stisknout ctrl+home (dostane tě na určený začátek listu)krok 8) stisknout ctrl+v (vloží do nového listu)pokud byl dotaz na něcojiného, tak se omlouvám, ale z dotazu to nebylo zcela patrné, o co konkrétně se jedná

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

Děkuji, nejdřív jsem to musel vyzkoušet, problém je že bych to potřeboval vyčíst z více listů najednou, tzn. nejde držet shift a označovat jen listy. Jinak pokud bych chtěl vyčíst jen jeden list tak to by fungovalo parádně. Jinak jednalo se přesně o tohle...

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

zhruba takto (neni to odzkouseno, nemam zrovna k dispozici Excel):Sub Presun()Dim ....Set Vystup=Worksheets("list pro ulozeni").Range("A1")i=0For Each MySheet In ActiveWorkbook.Worksheets If MySheet.Name<>"list pro ulozeni" Then 'pro vsechny listy mimo list pro ulozeni Set MyArea = Nothing For Each MyCell In Worksheets(MyWorksheet).UsedRange 'na celem listu vyhledat neprazdne bunky If Not IsEmpty(MyCell.Value) Then If MyArea Is Nothing Then Set MyArea = MyCell ' prvni MyCell do MyArea Set MyArea = Union(MyArea, MyCell) End If Next MyCell For Each MyCell In MyArea Vystup.Offset(i,0).Value = MyCell.Value i=i+1 Next MyCell End If Next MySheetEnd sub

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

Související témata: Makro


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

Archivovat data do cloudu, na HDD, SSD, DVD, nebo Blu-ray? Co je nejvýhodnější?

Archivovat data do cloudu, na HDD, SSD, DVD, nebo Blu-ray? Co je nejvýhodnější?

** Kam doma natrvalo uložit data? Vyplatí se ještě optická média? ** Jaké kapacity disků a médií má smysl koupit? ** Cenovou výhodnost si ukážeme na příkladech s 2TB úložištěm

Lukáš Václavík | 118

Lukáš Václavík
ZálohováníÚložištěPevné disky
Testy procesorů Ryzen 5000: AMD překonalo Intel ve všech směrech

Testy procesorů Ryzen 5000: AMD překonalo Intel ve všech směrech

** AMD začalo prodávat nové procesory Ryzen 5000 s architekturou Zen 3 ** K dispozici jsou nezávislé testy z celého světa ** AMD překonává Intel ve všech směrech

Karel Javůrek | 69

Karel Javůrek
ProcesoryTestyAMD
Co je to UWB? Nová technologie zastoupí Wi-Fi, Bluetooth i NFC a slibuje velké věci

Co je to UWB? Nová technologie zastoupí Wi-Fi, Bluetooth i NFC a slibuje velké věci

** V nových mobilech se začíná objevovat tajemná zkratka UWB ** Jde o další technologii, jak navzájem propojit různá zařízení ** Oproti Wi-Fi a Bluetooth má řadu výhod

Lukáš Václavík | 36

Lukáš Václavík
UWBIoTTechnologie
Šéf Spotify: Budeme zdražovat. Náš obsah se zlepšil
Markéta Mikešová
PředplatnéSpotify
Nejlepší notebooky do 20 000 Kč. Tipy, co se dnes vyplatí koupit

Nejlepší notebooky do 20 000 Kč. Tipy, co se dnes vyplatí koupit

** S cenou do 20 tisíc lze vybrat solidní notebook na práci i hry ** Přenosné notebooky nabídnou i kovová těla a rychlý hardware ** Možná největší problém je nedostupnost, nejžádanější kusy jsou vyprodané

David Polesný | 33

David Polesný
VánoceNotebooky
Messenger a Instagram přicházejí v Evropě o funkce. Kvůli nové směrnici o soukromí
Vladislav Kluska
EvropaInstagramFacebook Messenger
Nejlepší příslušenství k počítači. Tipy na osvědčené klávesnice, tiskárny, routery…

Nejlepší příslušenství k počítači. Tipy na osvědčené klávesnice, tiskárny, routery…

** Tipy na užitečné příslušenství k počítačům ** Poradíme, s jakými produkty neuděláte chybu ** Některé z věcí mohou být dobrými vánočními dárky

David Polesný, Stanislav Janů | 20

David PolesnýStanislav Janů
Příslušenství
Čím nahradit WhatsApp: Vyberte si z 10 alternativních komunikátorů

Čím nahradit WhatsApp: Vyberte si z 10 alternativních komunikátorů

** Z WhatsAppu kvůli novým podmínkám utíkají tisíce uživatelů ** Čím nahradit populární aplikaci pro zasílání zpráv? ** Vybrali jsme pro vás 10 alternativních komunikátorů

Karel Kilián | 110

Karel Kilián
KomunikaceWhatsAppInstant Messaging
WhatsApp konečně umožní smazat velké soubory z konverzací, aby nezabíraly místo
Vladislav Kluska
WhatsAppFacebookInstant Messaging

Aktuální číslo časopisu Computer

Jak prodloužit výdrž notebooku

Velké testy: gamepady a inkoustové tiskárny

Důkladný test Sony Playstation 5