< návrat zpět

MS Excel


Téma: přidání řádku do tabul rss

Zaslal/a 21.8.2009 14:58

Dobrý den
mohl bych někoho požádat o pomoc. Nemyslím si že je to těžké ale ještě nejsem takový znalec excelu .
Potřebuji v tabulce přidat řádek ale aby byl pod interaktivním tlačítkem nebo něčím.
Popis fce: po kliknutí na inter.tlač. se my přidá řádek v tabulce se stejným obsahem pokud je to možné.
v souboru níže ukázka…

popřípadě budu rád za nějaký jiný návrh na vyřešení problému.

děkuji

Příloha: zip663_tabulka-net.zip (3kB, staženo 26x)
Zaslat odpověď >

#000664
Jeza.m
To tlačítko by mělo být na každém řádku? Pokud ano, tak se přiznám, že nevím jak zjistit na jakém řádku se nachází.
Pokud by stačilo jedno (někde nahoře) a nový řádek by se měl vkládat vždy pod první tak pro daný soubor by to bylo pomocí makra na daném tlačítku:

Sub radek()
Rows("8:8").Copy
Rows("9:9").Insert Shift:=xlDown
End Sub


nebo lze upravit, aby nový řádek byl vložen vždy pod aktivní:

Sub radek()
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
End Sub

Snad to pomůže

PS:
ještě mě napadla jedna možnost :-)
na řádku nemusí být tlačítka ale buňka s formátováním, tak aby to vypadalo jak tlačítko a makro bude reagovat na definovaný text (pokud jsi vybral buňku s textem "zkopíruj", tak vlož nový řádek pod aktuální kopií z aktuálního:

If ActiveCell = "zkopíruj" Then
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
End If

M@citovat
#000672
avatar
Dobrý den
předem děkuji za radu a chtěl bych poprosit jestli by jste me neudelal do toho mého souboru ukázku jak to funguje..dekujicitovat
#000673
avatar
a pokud je to mozne tak jak vyberu jen cast radku treba 30 radek a chci jen od D30 do N30..dekujicitovat
#000674
avatar
super uz me to funguje..tak ukazku nemusite posilat ale na ten dotaz jestli jde vybrat cast radku bych rad vedel odpoved.jeste jeden dotaz jestli si soubor zamknu tak me to nefunguje(aby se radek pridal)...se zamykanim souboru mam zkusenosti ale ted nevim jak to vyresitcitovat
#000682
Jeza.m
Na to vkládání pod část řádku se budu muset podívat a odzkoušet, to až později :-).

K tomu zamčenému listu, stačí na začátek makra přidat:
List1.unprotect "heslo"
a na konec zase
List1.protect "heslo"

nebo tak podobně - ztovna to nemám kde zkusit, tak jedu z hlavy :-).citovat
#000687
Jeza.m
Následující kód vloží nový řádek (oblast D-IV), oblast lze měnit.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
List1.Unprotect "heslo"
If ActiveCell = "zkopíruj" Then
Range("D" & ActiveCell.Row, "IV" & ActiveCell.Row).Copy
Range("D" & ActiveCell.Row + 1, "IV" & ActiveCell.Row + 1).Insert Shift:=xlDown
End If
List1.Protect "heslo"
End Sub


M@citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Makro na upozornění události

elninoslov • 21.5. 2:38

Sloučení dat dvou sešitů

Scraper • 20.5. 7:55

Sloučení dat dvou sešitů

Stalker • 19.5. 23:06

Makro na upozornění události

parkovec • 19.5. 21:07

plynulá pomalá změna barvy

PavDD • 19.5. 13:47

plynulá pomalá změna barvy

veny • 19.5. 13:23

plynulá pomalá změna barvy

r13 • 19.5. 12:37