Příspěvky uživatele
< návrat zpět
Už dobrý, jen musel jsem tam dát ten active sheet, bez toho to nešlo. A dávalo to na list 1. Díky moc. Nemohl jsem hned napsat druhý post a pak už jsem na to zapomněl.
Sub Makro1()
Sheets("List1").Select
Range("A1").Select
x = Range(Selection, Selection.End(xlDown)).Rows.Count
a = Int(Rnd() * x) + 1
bb: b = Int(Rnd() * x) + 1
If b = a Then GoTo bb
cc: c = Int(Rnd() * x) + 1
If c = b Or c = a Then GoTo cc
Sheets("List2").Select
ActiveSheet.Range("A1") = Sheets("List1").Cells(a, 1)
ActiveSheet.Range("A2") = Sheets("List1").Cells(b, 1)
ActiveSheet.Range("A3") = Sheets("List1").Cells(c, 1)
End Sub
Díky za makro, ale nějak to nefunguje, přepisuje mi to data v prvním listu 
Ahoj, potřeboval bych poradit s makrem. Mám tabulku, kde bude ve sloupci A na každém řádku nějaký text, max asi 500řádku, ale počet se bude průběžně měnit 300-500 cca. A potřebuji makro, kde po spuštění mi náhodně vybere tři řádky s textem a zkopíruje mi to do ruhého listu ve stejném sešitě.
Byl by schopen někdo poradit?
Moc děkuji za pomoc 
Pááááni, to je přesně ono, moc díky 
Napsal jsem Vám email, tak na to mrkněte. Díky
Ta šablona musí být externě jinde na disku, ale to místo bude pořád stejné. Makro se bude spouštět z tohoto sešitu, respektive vygeneruje se vždy nový xls soubor, kde bude tabulka ve tvaru co je Sheet1 a tady se spustí makro, které budu mít přes osobní makro nastavené někde v menu excelu.
- situace, že bude více řádku než 31 v 5,6,7 nastat může, ale toto jsem zatím nechtěl řešit, aby to nebylo moc složité, to až pak nějak na konec. Ale ideálně bych to chtěl vyřešit tak, že pokud bude více než 31 položek, tak se na stejném listu zkopíruje ten formulář s prázdným polem 5,6,7 a tam se bude pokračovat, ostatní pole by zůstaly stejná. Bude se to pak tisknout jako dálší stránka. Přetečení může pak nastat u pole 6, kde by bylo ideální aby text nebo číslo pokračovalo na dalším řádku a tím se posunuly hodnoty v 5,6,7 o řádek dolů.
- části 1,2,4,8,9 číslo bude vždy jedno, ale u 3 bude text
- 1,2,3,4 jsou stejné pro každý list
- 8,9 jsou vždy na konci
Uff, takhle to vypadá teda ještě složitěji 
Nevím hlavně jak makrem vyřešit to kopírování do těch šablon, když počet těch řádků bude vždy jiný
Příloha opravena, omlouvám se.
Ahoj, moc prosím o radu.
Potřebuji udělat makro: Otevřu tabulku Sheet1, která bude mít vždy stejný počet sloupců, ale různý počet řádků. Spustím osobní makro, které mi vytvoří tolik nových listů kolik je vyplněných buněk ve sloupci A. Do všech těchto listu načte prázdnou šablonu (v příloze je již vyplněná), která bude uložena na disku. Potom makro zkopíruje data z Sheet1 do ostatních listů viz příloha. Na konec makra vyskočí oznámení, bylo vytvořeno n listů. :) prosím, prosím, odměna jistá 
No páni, funguje to, díky moc, jseš borec. Tohle bych nedal dohromady ani omylem. Moc jsi mi pomohl, pošli mi do mejlu adresu, něco ti pošlu 
Trochu jsem to zjednodušil.List 1 sloupec B, vzorec SVYHLEDAT z List 2, kde potřebuji ze sloupce B zkopírovat text ano,ne, když je ano, tak i s hypertextovým odkazem. Ten hypertextový odkaz v Listu dvě, se zadává ručně na různé listy v sešitě.
Ve druhém sloupci mám nějaký text a po kliknutí se mi to odkáže na jiný list v sešitě, i když tam napíšu přimo tu adresu, tak se mi vytáhne jenom ten text, nevytvoří se mi hypertextový odkaz, respektive hypertextový odkaz se mi vytvoří díky =HYPERTEXTOVÝ.ODKAZ ale ten je prázdý Potřebuji aby se mi vytáhnul jak ten text, tak i ten odkaz, spokojil bych se i s tím kdybych musel mít napsaný ve druhém sloupci v textu odkaz na sešit.
Doufám že jsem to napsal nějak srozumitelně :) Pátral jsem různě po internetu, ale nic funkčního jsem nenašel.
Přeci není možné, že by taková jednoduchá věc nešla udělat :(
Kdo mi to pomůže vyřešit, má u mě flašku
Dobrý den,
prosím Vás o radu.
Nemůžu přijít na nejspíše triviální věc, jak přes funkci SVYHLADAT najít buňku s hypertextovým odkazem, konkrétně odkaz na jiný list v sešitě a aby se mi obsah včetně tohoto odkazu zkopiroval do buňky se vzorcem SVYHLEDAT.
Zatím mám vzoreček =HYPERTEXTOVÝ.ODKAZ(KDYŽ(A10="";"";SVYHLEDAT(A10;zákazník!$A$2:$C$65536;2;NEPRAVDA)))
To mi funguje tak, že mi zkopíruje pouze obsah buňky.
Jak to udělat aby mi to zkopírovalo i včetně odkazu?
Nejraději bych to vyřešil jen vzorcem, ale pokud by to jinak nešlo, tak i přes VBA. Akorát potřebuju ten vzorec rozkopírovat do dalších řádku, tak si myslím že ideální by bylo si vytvořit vlastní funkci, ale s tím si nevím rady.
Podařilo se mi dát dohromady tuhle funkci:
Function ExLink(rng As Range) As String
If rng(1).Hyperlinks.Count Then ExLink = rng.Hyperlinks(1).Address
End Function
Ta ale dokáže vytáhnout pouze externí odkaz, ne odkaz na list v sešitě.
Předem děkuji za jakoukoliv pomoc
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články