» Poradna » Programy

Makro v excelu - zápis na jiný list souboru

 |   |  Microsoft Windows 10 Chrome 83.0.4103.97

Mám v excelu na listu 1 vytvořený formulář pro zadávání dat. Po stisku tlačítka Uložit dojde k zápisu dat z formuláře na první volný řádek tohoto listu. Viz kód níže včetně zakomentování. Potřebuji zapsat data na list 2. Jak v makru určím, že zápis bude provedený na list 2, přestože jsem na listě 1? Kde najdu nějaké manuály pro vytváření maker? Děkuji.Private Sub Ulozit_Click() PosledniPlnyRadek = Cells(Rows.Count, "B").End(xlUp).Row ' najde posledni plny radek ve sloupci B RadekZapisu = PosledniPlnyRadek + 1 ' urci prvni volny radek Cells(RadekZapisu, "B").Value = PokusnyFormular.txtTyp.Value 'zapise hodnotu z textboxu txtTyp do prvniho volneho radku sloupce B Cells(RadekZapisu, "C").Value = ComboBox1.Value 'zapise hodnotu z ComboBoxu1 do prvniho volneho radku sloupce C Cells(RadekZapisu, "A").Value = Format$(Now, "dd/mm/yyyy hh:nn:ss") 'zapise aktualni datum do sloupce A PokusnyFormular.txtTyp.Value = vbNullString ' vymaze textbox ComboBox1.Value = vbNullString ' vymaze ComboBox1

Odpovědi na otázku

 |   |  Microsoft Windows 10 Chrome 83.0.4103.61

Skus pred Cells pridat, ze sa ma jednat o druhy list = Sheets(2).Cells...atd.Private Sub Ulozit_Click()PosledniPlnyRadek = Sheets(2).Cells(Rows.Count, "B").End(xlUp).Row ' najde posledni plny radek ve sloupci BRadekZapisu = PosledniPlnyRadek + 1 ' urci prvni volny radekSheets(2).Cells(RadekZapisu, "B").Value = PokusnyFormular.txtTyp.Value'zapise hodnotu z textboxu txtTyp do prvniho volneho radku sloupce BSheets(2).Cells(RadekZapisu, "C").Value = ComboBox1.Value'zapise hodnotu z ComboBoxu1 do prvniho volneho radku sloupce CSheets(2).Cells(RadekZapisu, "A").Value = Format$(Now, "dd/mm/yyyy hh:nn:ss")'zapise aktualni datum do sloupce APokusnyFormular.txtTyp.Value = vbNullString ' vymaze textboxComboBox1.Value = vbNullString ' vymaze ComboBox1End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 83.0.4103.97

Díky, jdu zkusit

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 83.0.4103.97

Super, funguje přesně jak jsem si představoval. Díky...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 83.0.4103.61

Nebo můžeš na první řádek hned pod SUB dátSheets(2).select 'tím se ti aktivuje druhý list pro další příkazy, nebo místo 2 napiš název listu do uvozovek

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 83.0.4103.97

Díky, jdu zkusit

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

Související témata: Nn


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

Co přijde po Netflixu a Amazonu? Tohle jsou streamovací služby, na které v Česku čekáme

Co přijde po Netflixu a Amazonu? Tohle jsou streamovací služby, na které v Česku čekáme

** Rozhodujete se mezi Netflixem a HBO Go? Věřte, bude hůř ** Na trhu je mnohem víc ambicióznějších streamovacích služeb ** Některé by mohly do ČR zamířit ještě letos

Lukáš Václavík | 45

Za hranicemi Chromu: 13 nejzajímavějších prohlížečů, které „nikdo“ nepoužívá

Za hranicemi Chromu: 13 nejzajímavějších prohlížečů, které „nikdo“ nepoužívá

** Šesti nejpoužívanějším prohlížečům patří 94 % trhu ** Různé „klony“ Chromu slibují lepší funkce nebo jiný design ** Také Firefox má řadu zajímavých odnoží

Lukáš Václavík | 40

Jak uložit dokument z Wordu, aby vydržel celé roky? Je to těžší než cesta na Mars

Jak uložit dokument z Wordu, aby vydržel celé roky? Je to těžší než cesta na Mars

** Jak uložit soubory, aby vydržely vnoučatům? ** A co kdyby měly přečkat celá staletí? ** Teď se o to pokouší GitHub a je to oříšek i pro lingvisty

Jakub Čížek | 118

Z rozmazané šmouhy krásná fotka. Takhle kouzlí nová umělá inteligence MyHeritage

Z rozmazané šmouhy krásná fotka. Takhle kouzlí nová umělá inteligence MyHeritage

** MyHeritage slibuje nejlepší neuronovou síť pro vylepšování fotek ** Funguje tím líp, čím horší fotku upravuje ** Otestovali jsme desítky různých snímků

Marek Lutonský, Lukáš Václavík | 39


Aktuální číslo časopisu Computer

Megatest: nejlepší notebooky do 20 000 Kč

Test 8 levných IP kamer

Jak vybrat bezdrátová sluchátka

Testujeme Android 11