Stránka 1 z 2

Excel-makro:zkopírování tlačítka+zápis o řádek níž  Vyřešeno

Napsal: 20 zář 2012 15:45
od Fanatig
Dobrý den,
potřeboval bych pomoc,jestli je možný vytvoření tlačítko,který mi zkopíruje jeden řádek s tlačítky a jejími funkcemi(zápisy do daný buňky) o řádek níž a do totožného řádku zapisuje potřebný údaje.

PS:snad jsem to napsal trochu srozumitelně

Re: Excel-makro:zkopírování tlačítka+zápis o řádek níž

Napsal: 20 zář 2012 16:28
od cmuch
Vítej na PC-Help

Možné to je, co a kam se má zapisovat za údaje do toho řádku?
Lepší by byl nějaký sešit s ukázkou.

Re: Excel-makro:zkopírování tlačítka+zápis o řádek níž

Napsal: 20 zář 2012 17:02
od Fanatig
tady je soubor jak asi tak vypadá a pak jak by měl vypadat

Re: Excel-makro:zkopírování tlačítka+zápis o řádek níž

Napsal: 21 zář 2012 20:51
od cmuch
Tak toto já nevím jak udělat.
Třeba by to šlo i jinak kdyby si napsal co to bude přesně dělat.
Nestačil by místo toho prvního výběru jen klasický rozevírací seznam?

Re: Excel-makro:zkopírování tlačítka+zápis o řádek níž

Napsal: 21 zář 2012 21:23
od d1amond
Když napíšeš postup, co to má pesně dělat a uvedeš trošku podrobněji ten případ, třeba najdeme lepší řešení. Nějak se mi nepodařilo analyzovat Tvůj požadavek.

Re: Excel-makro:zkopírování tlačítka+zápis o řádek níž

Napsal: 21 zář 2012 21:44
od Fanatig
Mno v tom rozevíracím seznamu se bude vybírat typ obrábění, a pak podle toho se vybere výpočtový program,který pak vypočítá potřebný vzorce a vloží do tabulky D4.A tu a tam je potřeba je víc operací na obrábění, tak bych chtěl aby po stisknutí tlačítka vložit řádek, vložil další tlačítko a seznamem se stejnými funkcemi, co byli předtím jen s tím rozdílem, že se bude hodnota zapisovat o řádek níž(D5), tak jak je na fotce.Přemýšlel jsem, že bych to vyřešil jednoduše tím, že bych nadefinoval každý řádek zvlášť ale to bude zbytečně zvětšovat program a bude to vypadat nehezky, když to mam k bakalářce, tak jsem chtěl aby to mělo šmrnc.Tak jsem myslel, že to půjde udělat nějakým cyklem nebo nějakou funkcí jako je offset nebo tak nějak..ale jestli to nejde, tak to udělám klasickým způsobem nadefinuji každý řádek zvlášť, jen jich tam bude docela dost a někdy i zbytečně:) ale což....Doufám, že to popisuji trošku srozumitelně jelikož s makrem VBA dělám jen pár dní, tak nemám ještě moc zkušeností:)

Re: Excel-makro:zkopírování tlačítka+zápis o řádek níž

Napsal: 21 zář 2012 21:50
od d1amond
Jdeš na vrabce s kanónem. Jestliže jsou v Combo stále stejné fce, proč je tam dávat x krát. Stačí vybrat příslušnou operaci a po stisku "vložit" naplnit do tabulky na volný řádek (D4, D5, atd.).

Re: Excel-makro:zkopírování tlačítka+zápis o řádek níž

Napsal: 21 zář 2012 21:57
od Fanatig
:D:D....kanón je vždy lepší než bambitka:P....jo nad tím jsem zrovna,taky přemýšlel,že by to bylo asi jednoduší..aby se vkládali hodnoty ze seznamu a samotny výpočty do samostatný tabulky ...asi to zkusím,a uvidíme jak mi to půjde:)...jinak díky moc:)

Re: Excel-makro:zkopírování tlačítka+zápis o řádek níž

Napsal: 21 zář 2012 22:39
od d1amond
Na výpočty si udělej funkce. Můžou proběhnout na pozadí VBA.

Re: Excel-makro:zkopírování tlačítka+zápis o řádek níž

Napsal: 21 zář 2012 23:21
od Fanatig
Tak tam to už je vyřešený a možná to i vypadá i lépe sice tam musím do vymyslet vsouvání mezi řádky v ListBoxu,ale to se časem podá.Jenom ještě malý dotaz když chci ,aby se výpočty obnovovali sami, bez žádného impulsu(tlačítka) jen při změně hodnoty, tak tam za to dam .auto nebo jak?

Re: Excel-makro:zkopírování tlačítka+zápis o řádek níž

Napsal: 22 zář 2012 13:12
od cmuch
Aby se věci na listě prováděli samy po změně hodnoty v buňce se používá

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
   'kod
End Sub

A aby nedocházelo k zacyklování tak

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
   'kod
Application.EnableEvents = True
End Sub

Neco si tam můžeš nadefinovat třeba jen nějakou oblast na kterou to má reagovat.

Re: Excel-makro:zkopírování tlačítka+zápis o řádek níž

Napsal: 24 zář 2012 10:04
od Fanatig
Děkuji:)