MS Excel

dobrý den,
chtěl bych se zeptat... našel jsem v historii na Wall.cz makro z roku 2012 na přidání řádku do tabulky, implementoval jsem ho do své tabulky. potřebuji po stisku tlačíta (ideálně u každé tabulky zvlášť (tedy maker bude tolik, kolik bude tabulek, pokud to tak jde...)aby se přidal řádek dopnit tabulku o další záznam. nevím přesně, co znamená ten údaj "A1"... dočetl jsem se že kontroluje poslední vyplněnou hodnotu ve sloupci "A" a za tento řádek se ten nový přidá. pokud mám tabulku od sloupce "B" pak jsem to sice v makru změnil, ale háže mi to chybu. poradíte? A lze to udělat pro každou tabulku zvlášť nebo to nejde?

Díky moc, btw, jak mám připojit přílohu?

P.S: nejde mi připojit příloha XLSM, tak snad jen to makro...

Sub pridat_radek()

Range("A1").End(xlToRight).Activate

ActiveCell.EntireColumn.Insert

ActiveCell.Offset(0, 1).EntireColumn.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Selection.Offset(0, 1).ClearContents

Range("A1").Select

Application.CutCopyMode = False

End Sub

Zaslat odpověď >

Strana: 1 2 další »

Cenda_XXX(17.10.2019 12:30)#044674

nemáte někdo radu, jak se připojím soubor? dříve to šlo, ale když dám vybrat soubor tak jej sice vložím, ale neodešle se na Fórum...citovat

Stalker(17.10.2019 12:41)#044675

Pokud se jedná o soubor *.xlsm, tak jej nejprve musíš zabalit do archivu (*.zip, *.rar, *.7zip).

Jinak to makro co jsi vložil nevkládá řádek, ale sloupec.citovat

Cenda_XXX(17.10.2019 13:14)#044679

tak už se mi podařilo poslat i přílohu. JInak to makro jsem našeltady a textace by o řádku...
každopádně tomu moc nerozumím, jak pozná odkud má kontrolat počátek tabulky a event. prázdné buňky
a tedy pokud udělám druhé makri na vložení řádku do tabulky č. 2 jestli se to nějak nebude bít s tím prvním makrem...
D9kycitovat

Stalker(17.10.2019 15:59)#044683

Pokud se nikdo nechytne, tak Ti to večer až přijdu z práce udělám.citovat

Zbygi(17.10.2019 16:37)#044685

Ahoj.
trošku jsem si s tím pohrál... je to docela jednoduchý makro.
Ale záleží na způsobu kterým ty tabulky chceš rozšiřovat.
zatím jsem stvořil toto, tak to odzkoušej a dej vědět.

funguje to na obě tabulky- klidně i na deset(dle potřeby).

Příloha: rar

44685_investice.rar (19kB, staženo 21x)

citovat

Cenda_XXX(17.10.2019 19:19)#044687

dekuji za zpracování, ale pještě mám jeden dotaz: pokud vložím číslo řádku, který je zcela zaplněn, pak to vytvoří správně nový prázdný řádek na konec tabulky, za poslední řádek, který je vyplněn. to je OK, ale pokud zadám např. 19, pak řádek vytvoří, totéž udělá i se řádkem 20,který je vyplněn jen z poloviny (taky OK) ale pokud dám vložit 21 ,pak to hodí Error! proč? když je 20 i 21 vyplněn jen částečně?? pochopil bych, kdyby to ani jeden z řádků nepřidalo, protože ani jeden z nich není zcela vyplněný. Jaké je kritérium pro kontrolu, zda ještě vloží nebo hodí chybu?
V principu to mohu ošetřit komentářem, aby se vkládal vždy jen počáteční řádek z tabulky, tedy buď 9 nebo 19 a vytvoří to vždy pod správnou tabulkou nový řádek... ale teď by mě jen zajímala odpověď viz výše, kde je chyba?
Díky moc...citovat

Zbygi(17.10.2019 19:31)#044688

řádek na který se program ptá je řádek tabulky (ideálně první řádek tabulky)
dalo by se ho vyhledat i automaticky.
Problém je u dalších tabulek. které se přidáním řádku první tabulky posouvají.
nevím proč to hodilo chybu- co bylo v řádku který se zadal?
žádná kontrola pro přidání(nepřidání) tam není, ale může být.
podle čeho by se kontrolovalo?citovat

Zbygi(17.10.2019 19:44)#044690

Tak jsem to zas trošku změnil.

mám dvě varianty

1)tlačítko u každé tabulky - bez zadávání čísla

2)jedno tlačítko - zadáním čísla tabulky vybereme kam přidat řádek

posílám první

Příloha: rar