» Poradna » Zpět na dotaz

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

Tri bodky  |  7. 6. 2020 22:10:21  |  Odpovědí: 2

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 B RadekZapisu = PosledniPlnyRadek + 1 ' urci prvni volny radek Sheets(2).Cells(RadekZapisu, "B").Value = PokusnyFormular.txtTyp.Value 'zapise hodnotu z textboxu txtTyp do prvniho volneho radku sloupce B Sheets(2).Cells(RadekZapisu, "C").Value = ComboBox1.Value 'zapise hodnotu z ComboBoxu1 do prvniho volneho radku sloupce C Sheets(2).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 End Sub

Jméno:
 

E-mail (nepovinné, adresa bude v zabezpečené podobě zobrazena u přezdívky):

:-D :-)) :-) ;-) :-P :-| :-/ :-( 3-[ :-O B-]

Pravidla diskuzí v Poradně webu Živě.cz

Zasláním příspěvku do Poradny souhlasíte s těmito pravidly:

  • Podmínky užívání služby informační společnosti
  • Informace o zpracování osobních údajů
  • Příspěvky se musí týkat tématu otázky.
  • Příspěvky nesmí obsahovat vulgární výrazy a slovní útoky na jiné osoby. Příspěvky nesmí poškozovat web Živě.cz ani jeho provozovatele.
  • Je zakázáno vkládat do příspěvků odkazy na stránky nabízející obsah porušující autorská a jiná práva.
  • Příspěvky nelze využívat k propagaci.
  • Příspěvky, které porušují pravidla diskuzí, budou odstraněny. Případně budou upraveny tak, aby neporušovaly pravidla diskuzí. V textu bude následně uvedeno, že příspěvky byly ze strany moderátorů upraveny.
  • Právo moderovat Poradnu mají pouze zástupci vybraní redakcí Živě.cz. Základní kontrola příspěvku probíhá ještě před jeho zveřejněním.
  • Živě.cz je soukromý web a provozovatel má při řešení sporů, které se týkají příspěvků v Poradně, vždy konečné slovo.

Kdy vám můžeme smazat příspěvek?

  • Když budete vulgární.
  • Když budete slovně útočit na ostatní.
  • Když se nebudete držet tématu dotazu.
  • Když budete poradnu zneužívat pro reklamu.
  • Když záměrně zneužijete cizí přezdívku.
  • Když budete porušovat zákony.
  • A když budete na takové příspěvky reagovat, protože se vždy mažou včetně odpovědí ve stromu.