Příspěvky uživatele

Pravda, druhý sešit musí být otevřený, to není nej řešení. Ale píšeš ... časem se změní. Když změny nebudou příliš časté, zvolil bych řešení nedělat to takhle v buňce, ale nechat odkazy na soubor ve vzorcích tak jak jsou a potom: karta Data / Upravit odkazy / Změnit zdroj ....

Něco takového dělám nepřímým odkazem, napsal jsem tam i ten vzorec, ale s jiným sešitem jsem to netestoval. Pro stejný sešit - jiný list tam je ukázka a funguje v Excelu 2007-2010. U staršího to může být ale jinak.

Zkusím to já. Konečně můžu s něčím pomoct.
Nejlíp bude použít vba kód do události listu. Postup:
V Excelu pomocí Alt+F11 skočit do editačního okna vba, vlevo nahoře dvakrát poklepat na jméno listu, ve kterém chceš mít tuhle funkci. V hlavním okně vpravo nahoře místo "General" zvolit "Worksheet" a vedle navolit událost "Change". Pak nakopírovat celý kód. Zavřít editor. Sešit musí být pak uložený jako .xlsm ve v.2007 a novější.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim radek As Long
If Target.Address = "$A$1" Then
If Len(Target) > 0 Then
If IsEmpty(Cells(1, 2)) Then
Cells(1, 2) = Target
Else
radek = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(radek, 2) = Target
End If
End If
End If
End Sub

K tomu Runtime Error bych měl jednu poznámku. Stahuju někdy do excelu data z www jistého cyklo webu, asi 700-800 adres stránek a trvá to asi 2.5hod. Tuhle chybu mi to hlásí když tam uploadují web a asi zrovna ta stránka není k dispozici. Mám to vyzkoumané. V čase kdy určitě vím že se tam výsledky nemění to celé jede bez chyby. Tak třeba....

Milan-D: Interior.Color je lepší, nechápu ale, že ve všech podobných makrech, ze kterých jsem čerpal nápady je ColorIndex. Tak mě nenapadlo zkoumat všechny možnosti Interior.
Marjankaj: skvělé, funguje to jak potřebuju a navíc jsem se zase něco přiučil. Líbí se mi ta verze s "Array" a ohromil mě Intersect - to je to co mi chybělo, abych nějak pokročil sám při svých pokusech. Bylo jich dost, takové procházení slepých cestiček. Target vím co je, ale nedařilo se mi ho správně použít. Díky moc.

Zdravím, potřeboval bych pomoc. Mám makro, které mi kopií formátu barví řádky, podle jakéhosi vzorkovníku na listu. Ale chtěl bych stejnou činnost dát do události listu Worksheet change. Stejné makro mi tam nechodí, chtělo by to nějaký lepší postup a větší zkušenosti, rád bych se od někoho přiučil. Více vysvětleno v příloze, Excel 2007-2010. Dík.

Možná jsem úplně vedle, ale nemůže být na Win7 instalovaná 64-bit verze Excelu? Tam jsou potom různá omezení a spousta věcí tam není k dispozici.

Fajn, to od Jezy vyzkoušeno, funguje.
Poki, ty nejjednodušší věci člověka často nenapadnou. Taky jsem si myslel, že tím SET se mi označí oblast v listu, ale ona to vlastně není aktivace, takže to taky funguje jsem chtěl.
Překvapilo mě vbNewLine u komentáře, já používal "nahrané" Chr(10).
Ale celé makro už mám v kupě a funguje, je radost sledovat, jak se mi doplňují komentáře v oblasti 250ř./40sl. - hlavně při menší lupě.
Děkuji za pomoc a tohle téma může asi někdo zamknout.

Díky za trpělivost. Už vím co bylo špatně. S tím AND mi to fakt funguje, chvíli jsem kroutil hlavou, ale už je mi to jasné.
Autosize u komentáře vlastně znám, jen mě to nenapadlo použít ve vba.
Ještě se chci zeptat, potřebuju komentář smazat předtím, než v buňce založím nový, při dalším spuštění makra je jinak chyba. A celé tohle mám jako součást větší akce, kde obsah komentáře hledám jinde přes VLookUp a je pokaždé jiný. Ale když dám před AddComment řádek
bunka.Comment.Delete při prvním spuštění hodí chybu "Object variable or With block variable not set". Jak ale jednou makro projde, a řádek doplním později, už funguje. Bude tam asi chybět nějaké Dim, nebo jiná věc.
Jak byste komentář smazal Vy? Dík.

Ano, tohle funguje!! Díky. To je skvělá finta. Dokonce tu logiku i chápu :). Já zas nebyl tak daleko se svým zápisem, jak koukám, ale přivítal bych vysvětlení, proč to s tou prázdnou hodnotou nefunguje.
Můžu mít ještě otázku? Když chci přizpůsobit velikost komentáře, umím to jedině někde okoukaným zápisem:

bunka.Comment.Text Text:="KOMENTAR"
Set cmt = bunka.Comment
With cmt.Shape
.ScaleWidth 3.5, msoFalse, msoScaleFromTopLeft
End With

Nešlo by to napsat jednodušeji, jen pro tu šířku, něco jako
bunka.Comment.Shape.ScaleWidth ... atd ? Mě se to nepovedlo, ale nevím....
A k fóru: jak dostanu kód do zeleného pole?

Ahoj, jenom drobnost. U rozhodování IF se prý může použít složená podmínka s OR nebo AND.
Ale když to zkusím, stále hází chyby, asi mám špatný zápis. Poraďte někdo prosím. Excel 2007, 2010

Pardon, že se do toho motám, kouknul jsem na to pro poučení. Poki, ale dvě poslední jména ze sloupce A to nezaznamená. Na mě moc složitý vzorec, abych věděl proč.

Díky! Vyzkoušel jsem, funguje! Já zkoušel nahradit v jedné buňce znak, nějaký, který v sešitě určitě nebude za prázdný - ale tohle mě nenapadlo a navíc při testech mi tam vypadlo jedno = a tak jsem usoudil, že to nejde :). Ale mě stačí třeba jen trochu popostrčit. Dík.

Prosím nevíte někdo, zda existuje ve vba možnost vyresetovat dialog nahradit?
Mám makro, které v cyklu zaměňuje jména a používá přepínač "jen celé buňky", nějak takto:
Cells.Replace What:=puvodni .., Replacement:=nove .., LookAt:=xlWhole
Po skončení makra a ctrl+h v excelu tam zůstane jednak předvyplněné poslední jméno a zaškrtlé "celé buňky". Jak se toho zbavit?? Pak třeba hledám ctrl+f a nenajdu nic, neuvědomím si, že to je přestavené, není to hned vidět. Dík.

Děkuji za opravdu rychlou odpověď. Funguje skvěle, mám to i s bonusem přejmen.listu. Já vlastně jen skládal řádky vba kódu z různých příkladů a nikam to nevedlo. Ale POMALU do toho začínám pronikat. Díky.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje