Poradna - nejde makro na novo pridane harky
hlavní kategorie | zpět | + odpovědět na toto témanejde makro na novo pridane harky - diskuze na toto téma |
Dobry den,
vedel by miekto pomoct s makrom v uvedenej tabulke.Pri kliknuti na nova tabulka sa mi vytvori nova tabulka s cislovanim od 1 do xxx.Ked si napr otvorim hociktoru tabulku tak potrebujem pomocou makra skopirovat udaje zo stlpca C,G,M a skopirovat to do zosita sklad do stlpcov B,C,D
Jedno makro som si uz sice vytvoril ale nefunguje mi na dalsie novovytvorene tabulky Pokud myslíš to makro "sklad", tak funguje na všechny vytvořené sešity. Problém je v tom, že to máš aktuálně naprogramované tak, že se ti vždy data na listu sklad přepisují, místo toho aby se vkládaly údaje pod sebe. Řešením je tedy pomocí kódu nají první volný řádek, a až na ten vkládat hodnoty.
P. Odpověď Prikladam este raz tabulku s inymy udajmi napr v stlpci G sa vzdy menia hodnotya mne tam ukaze udaje len zo zositu 3 kedze podla tohoto som vytvaral makro. Ak sa da tak toto makro sa kludne moze zmazat a znovu vytvorit lebo niesom extra schopny do makier. Odpověď Sloupec C se překopíruje správně, no a pak už se vždy odvoláváš na list s názvem "3", proto to nefunguje - Sheets("3").Select. Principiálně se lze tomuto vyhnout tím, že všechny 3 oblasti vybereš (a tím pádem i překopíruješ) naráz - Range("C6:C10,G6:G10,I6:I10").Select... P. Odpověď Dakujem mozem ta este poprosit mi to upravit priamo v makre lebo neviem co mam odstranita nahradit to tvoje Odpověď Takze makro som uz v pohode rozbehal len mam este jeden problem ze skopirovane stlpce mi zostanu ohranicene da sa to v makre dako urobit aby pri skopirovany tieto stlpce zrusilo namiesto stlacanie klavesu esc Odpověď zdravim,
potrebujem este jednu pomoc makro mi sem tam zobrazi ze je problem s ActiveSheet.Paste a makro sa mi nespusti
Sub formatovanie()
Range("C14:C51,G14:G51,L14:L51,V14:V51,C61:C101,G61:G101,L61:L101,V61:V101,C110:C135,G110:G135,L110:L135,V110:V135").Select
Selection.Copy
Sheets("Inventár").Select
Range("B4").Select
ActiveSheet.Paste
Application.CutCopyMode = False Odpověď Prosím tě vlož sem sešit s tím makrem, ať je vidět celý kód a dá se případně otestovat. Odpověď |