MS Excel

Zdravím, makra bohužel příliš neovládám a řeším nyní tento problém...

Mám tabulku, která má např 28 řádků a já potřebuji makro, které by danou tabulku prodloužilo. Vize je asi takováto... tabulka se zaplní textem a protože sešit, ve kterém se tabulka nachází je pro úpravy zamčený, potřeboval bych, aby když kliknu na tlačítko, aby se mi přidal řádek pod poslední plný.
Co je pro mě však zatím nepřekonatelným problémem je to, že zároveň potřebuji, aby se ohraničení tabulky posunulo na tento nový řádek. Tlustá čára tedy nakonec a svislé čáry aby se také protáhly... bohužel absolutně neuším, jak na to.

Prosím tedy vás, mnohdy i odborníky na tuto problematiku o pomoc.

Předem děkuji
Míra

Zaslat odpověď >

marjankaj(23.6.2012 16:41)#008868

Sub Makro()
Range("A1").End(xlDown).Activate
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).EntireRow.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Offset(1, 0).ClearContents
Range("A1").Select
Application.CutCopyMode = False
End Sub

Prípadne druhý riadok nahradiť týmto

ActiveSheet.UsedRange.Cells(1, 1).End(xlDown).Activatecitovat

Bender(24.6.2012 15:09)#008878

Děkuji , makro funguje v celku dobře až na menší detaily... hned vysvětlím.

1. Problém je v tom, že přesto, že mám ohraničení buněk viditelně zadané, řádek, který se přidá, přemázne ohraničení v jedné z předchozích buněk, asi je to náhodné, zkoušel jsem to dvakrát a pokaždé mi to zrušil někde jinde, šlo by to nějak doladit ?

2. Další věc je ta, že tabulka obsahuje vzorce, které se takto nerozkopírujou, což by asi mohl být také problém.

3. Největším problémem, alespoň z mého hlediska je podmíněné formátovaní, které má každá buňka v určitém sloupci jiné, raději vysvětlím na příkladu.

Mám 2 buňky, čas od a čas do... pod nimi v dalším řádku probíhá kontrola návaznosti, čas od tedy musí souhlasit s časem do z předchozího řádku, pokud není předchozí řádek prázdný... Toto bude asi nejsložitější. Netušíte náhodou, jak to odladit, aby předchozí tři body fungovali správně ?citovat

marjankaj(24.6.2012 18:11)#008879

Prilož súbor.citovat

Dunkaninko(25.6.2012 17:14)#008893

Je možné podobným spôsobom pridať aj stĺpec? Ako.citovat

marjankaj(25.6.2012 19:25)#008895

Áno podobne

Sub Makro()
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 Subcitovat

Dejavu(26.6.2012 16:17)#008900

Omlouvám se, že jsem se neozval dříve, ale byl jsem bohužel odstřižený od internetu... chyba na ústředně..
Tady tedy posílám slíbený soubor.

Pomocné vzorce se nacházejí mezi sloupci N a Y, kdyby bylo třeba.

Bender

Příloha: rar

8900_evidence-kontroly_vzor_lk-velke.rar (49kB, staženo 87x)

citovat

marjankaj(27.6.2012 20:50)#008930

možno takto?

Sub Pridat_radek()

'Přidá řádek pod poslední plný
Range("A9").End(xlDown).Activate
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).EntireRow.Copy
Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
riadok = Selection.Row + 1
Range(Cells(riadok, 1), Cells(riadok, 13)).ClearContents
Range("A9").Select
Application.CutCopyMode = False
End Subcitovat

Dejavu(28.6.2012 16:48)#008938

Je to lepší v tom, že opravdu kopíruje podmíněné formátování, avšak nebere požadovanou hodnotu z předposledního řádku tabulky... alespoň mi to zatím neběží... a vzorce se zatím také nekopírují...
Avšak už se blížíme k cíli :)citovat

marjankaj(29.6.2012 18:40)#008952

No neviem, či to má byť takto.

Příloha: zip