MS Excel

Preco nevyskusas zaznamnik makra?

Nieco na sposob Sheets("NazovSheetu").ListObjects("NazovTabulky").ListRows.Add (1)nefunguje?citovat

Ja som presvedceny, ze prikaz, ktory som sem dal, pridava riadok na zaciatok Table. Pisal si, ze tvoj kod pada na tomto kroku. Bez prilohy je to varenie z vody.citovat

Zdravím Vás

Rozumím, že by bylo mnohem lepší dodat k dotazu také soubor s problémem. Bohužel, potřeboval jsem vyřešit problém a měl jsem na to velmi málo času a navíc jsem musel vycházet z dokumentu, který již jakési makra obsahoval. Tvorbu maker se pokouším dělat jen výjimečně, ale nyní jsem nenarazil na možnost jiného řešení, takže můj aktuální dokument byl plný kódů, kterým jsem úplně nerozuměl, obsahoval mé slepé cesty a nebo pokusy, které by pravý programátor napsal úplně jinak.

V takové situaci mi bylo hloupé odeslat soubor jako přílohu, protože to mou vizitku trochu znehodnocuje.

Nyní jsem v situaci, kdy mi sešit dělá to, co jsem potřeboval, tedy:
- Mám list se skladovými zásobami, tedy umím říci, jaké materiály mám na skladě a jejich počet
- Mám list pro navádění pohybů pro skladníka, takže skladník při příjmu a výdeji dohledá materiál, dodá pohyb a makro zapíše novou hodnotu do skladu
- Mám jakýsi log pohybů, z kterého umím dohledat kdy se jaký materiál přijal a kdy se odebral
- Mám šablonu pro vytvoření skladové karty, která mi pomocí rozšířeného filtru vyexportuje pouze mnou vybraný materiál a následně AutoFiltrem zobrazím mnou vybrané období.

Předpokládám, že pro zkušeného programátora je to jednodušší projekt, ale já jsem to lepil několik dnů, kdy jsem se nevyhnul právě změnám z tabulky na Tabulku a podobně. Proto již v tuto chvíli neumím zapsat číslo chyby, protože došlo ke změnám. Soubor jsem pročistil od kódů, které vím že neměly smysl a nebo nic neovlivnily, takže je možné se kouknout, ale onen zmíněný kód mi prostě nový řádek nevytvořil (nebo jsem jej ladil špatně)

Každopádně, všem děkuji za pomoccitovat

Ano, takto jsem to myslel.

Mám list, kde jsem potřeboval na začátek tabulky vložit nový a prázdný řádek. To jsem udělal kódem:
Range("A2:I2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow

Po nějaké době jsem musel kvůli jinému makru změnit oblast na tabulku a mým kódem jsem neuspěl. Zkusil jsem tedy řádek nahradit za:
Sheets("ODPIS_MATERIALU").ListObjects("Tabulka1").ListRows.Add (1)
Tohle mi ale nový řádek nevytvořilo. Krokoval jsem pomocí F8, ale tento kód jen projel. Ověřil jsem, zda mám správně název listu a název tabulky.

Proto jsem se rozhodl změnit Tabulku na tabulku a v navazujících makrech jsem změnil návaznosti.

Píšu to proto, že nyní už nevím, zda mi vyskakovalo nějaké chybové hlášení a v mém aktuálním souboru je to uděláno jinak, takže chybu nevyvolám. V každém případě, budu zjišťovat, co vše mám špatně a postupně budu předělávat, takže časem pravděpodobně příjdu na to, kde jsem měl problém a proč mi zaslaný kód nefungoval, když všude jinde fungujecitovat