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

[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ě

[Reklama]

[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.

[Fanatig]

tady je soubor jak asi tak vypadá a pak jak by měl vypadat

[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?

[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.

[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í:)

[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.).

[Fanatig]

: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:)

[d1amond]

Na výpočty si udělej funkce. Můžou proběhnout na pozadí VBA.

[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?

[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.

[Fanatig]

Děkuji:)