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.
Zdravím, potřebuji prosím pomoc.
Chci opakovat makro importu z webu, nejlépe cyklem, pro různé http adresy, co se liší jen kódem na konci.
Umím to složitě tak, že si složím dle makra pro 1 import a těch kódů text tolika maker za sebou, kolik je adres.
Pak tento sloupec textu kopíruju po "blocích" 100 adres do maker ve VBA. Zkusmo jde 100 adres, pak je text makra
asi moc dlouhý, hází chybu. Adres může být až 1000, tedy 10 maker. Trochu pracný postup.
Umíte někdo tohle dostat do cyklu, aby se doplňovala www adresa, celá nebo jen ten číselný kód, ze sloupce E v List1 ? Víc v souboru, je tam zdroj.makro pro 1 adresu. Excel 2007/2010.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.