MS Excel

Ahoj. Prosim o pomoc.

Mam jedno Makro ktore mi kopiruje z HarkuX oznaceny riadok vzdy do Harku1 (do urcitej oblasti v Harku1).
Ale mam tych Harkov viac (X), ale vzdy kopiruju oznaceny riadok v prislusnom HarkuX do Harku1.
Na konci po skopirovani riadku som chcel aby program zotrval par sekund v Harku1 a naspat sa vratil do toho HarkuX z ktoreho som to kopiroval (z ktoreho makro štarovalo).

Viem to vyriesit tak, ze vytvorim X tie iste makra len na konci kazdeho makra zadam:
Sheets("HarokX").Select
(Cize napr. ked je 10 harkov, tak 10x to iste makro s odlisnym koncom?)

Otazka znie:
vie mi niekto poradit, ze bolo by jedno a to iste makro pre vsetky X harky, len na konci sa vrti do toho harku odkial štartovalo.

Vopred dakujem za radu.
F.

Zaslat odpověď >

elninoslov(7.2.2018 17:34)#039373

To ste mohol napísať aj do predošlej témy.
Čo znamená "Štartovať z hárku" ? Na každom hárku máte tlačítko ? Alebo napr. formulárom vyberáte z ktorého listu sa má kopírovať ? To "Štartovať z hárku" je veľmi dôležité, lebo práve tam sa dozvieme názov listu. Takže ? ...citovat

frantilopa(7.2.2018 17:48)#039374

OK nabuduce budem vediet, ze nie je potrebne otvarat novy problem (temu).
Ano mam tlacitko v kazdom Harku.
Napriklad:
V Harku5 mam hore tlacitko ktore ked spustim skopiruje riadok do Harku1. Tam zotrva (ako ste mi vcera poradil, DAKUJEM!!!). A vrati sa do Harku5.
V Harku3 mam tiez tlacitko hore, ktore ked stlacim skopiruje do Harku1 a vrati sa do Harku3.

Tych Harkov je viac a v kazdom je tlacitko hore.

Dakujem. F.citovat

frantilopa(7.2.2018 17:52)#039375

Štartovat som myslel..
Z Harku ktoreho kopirujem (v ktorom som zatlacil tlacitko) riadok sa vrati do toho isteho harku.
Z Harku7 kopiruje do Harku1, vrati sa do Harku7.
Z Harku10 kopiruje do Harku1, vrati sa do Harku10.citovat

elninoslov(7.2.2018 17:58)#039376

Sub makro()
Dim wsPovod As Worksheet
Set wsPovod = ActiveSheet
With Worksheets("Hárok1")
.Activate
.Cells(1, 1).Value2 = wsPovod.Cells(1, 1).Value2
End With
Application.Wait (Now() + TimeSerial(0, 0, 2))
wsPovod.Activate
Set wsPovod = Nothing
End Sub

Inak je vhodné zakladať správne novú tému na nové otázky, ale myslím že zrovna toto je prípad, keď sa bavíme k téme a o tom istom, iba s doplňujúcou otázkou.citovat

frantilopa(7.2.2018 18:20)#039377

elninoslov ste fakt frajer!!!
Super, super, usetril ste mi mozstvo roboty!
DAKUEJM

(viem ze sa da venovat teme dalej, ale bral som to ako novu problematiku ..)

Este raz velka vdaka.citovat

Téma: vratenie sa do Harku odkial bolo spustene makro

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje