MS Excel

Dobrý den,

potřebuji vytvořit makro, které když se v sešitu "Hlavní" objeví ve sloupci J určité jméno tak zkopíruje celý řádek do nového sešitu "hotovo". Takhle to potřebuji vytvořit pro 50 jmen, ale to udělám na základě toho prvního. Můj výtvor je tohle, ale nefunguje to (snažil jsem se to poskládat z různých fór a příspěvků)

Výtvor:
Sub Pokus()
'
' Pokus

Dim i As Long

Dim maxRadek As Long

Dim maxRadek2 As Long

Dim x As Byte

x = 0

Application.Goto Workbooks("Hlavní.xlsx").Sheets("List1").Range("J").Active
ActiveSheet.Range("J").Select

If ActiveSheet.Range("J") = Lukš Then
maxRadek2 = Application.Goto("hotovo").Sheets("List1").Range(Rows.Count, 4).End(xlUp).Row
ActiveSheet.Rows("J").EntireRow.Copy List

x = 1
End If
End Sub

Za každou radu budu vděčný, děkuji.

Zaslat odpověď >

elninoslov(14.5.2018 12:31)#040367

Dáva Vám ten popis zmysel ? Mne nie. Takže:

-Máte viac ako 50 mien, ale kopírovať riadky sa majú len ak sa objaví meno z úzkej skupiny 50 mien ? Ak sa objaví ine meno, tak nie ?

-Kopírovať sa musia bunky (formáty, orámovanie, farba a pod.) , alebo hodnoty (do prednaformátovaných stĺpcov) ?

-Majú stĺpce v liste "Hlavní" hlavičky ? Aj v "Hotovo" ?

EDIT 13:06 :
Príklad toho, čo z neúplného popisu vyplýva.

Příloha: zip

40367_mena-copy.zip (19kB, staženo 28x)

citovat

Petr1222(14.5.2018 13:22)#040368

Ano, ten řádek se má zkopírovat pouze pokud se objeví určité jméno, jinak ne. Ostatní data z jiného jména by se měli zkopírovat do jiného sešitu.

-Například když se objeví jméno Petr, zkopíruje se celý řádek se všemi hodnotami do sešitu "Petr hotovo"
Když jméno Lucie tak opět celý řádek se zkopíruje do sešitu "Lucie hotovo"

-Kopírují se pouze hodnoty, barvy, orámování ani formát ne.

Nejdůležitější je, aby se to kopírovalo do dalšího sešitu, ne pouze listu. Oba dva sešity využívají pouze List1 (nemají více listů jak 1)

-sloupce hlavičky nemajícitovat

Stalker(14.5.2018 14:02)#040369

Petr1222 napsal/a:

Ano, ten řádek se má zkopírovat pouze pokud se objeví určité jméno, jinak ne. Ostatní data z jiného jména by se měli zkopírovat do jiného sešitu.

-Například když se objeví jméno Petr, zkopíruje se celý řádek se všemi hodnotami do sešitu "Petr hotovo"
Když jméno Lucie tak opět celý řádek se zkopíruje do sešitu "Lucie hotovo"

-Kopírují se pouze hodnoty, barvy, orámování ani formát ne.

Nejdůležitější je, aby se to kopírovalo do dalšího sešitu, ne pouze listu. Oba dva sešity využívají pouze List1 (nemají více listů jak 1)

-sloupce hlavičky nemají

Ty vole chlape tohle jako myslíš vážně?! Dyť to kompletně mění zadání! A opět vyvolává další otázky. A jako třešnička na dortu (co se stává standartem - bohužel

) žádná příloha.

Kolegovy výše přeji pevné nervy s tímto "úkolem". Mám takové tušení, že se v průběhu času zadání opět změní.citovat

elninoslov(14.5.2018 14:57)#040371

Príklad. Ale s veľa "čo keď".
Napr. čo keď súbor neexistuje ? Vytvoriť z nejakej šablóny ?
Čo keď meno nieje na zozname mien, ktorých sa týka kopírovanie ?
Čo keď je už daný riadok skopírovaný ? Zmazať ho ? Nejako ho označiť ?
Čo keď je riadok nezmazaný, ale označený, tak ho ignorovať, aj keď v ňom prišlo k zmene ?
Čo ak je súbor s menom otvorení, zatvoriť ho ? (teraz ho zatvorí, ak sa o také meno jedná)
...

Příloha: zip

40371_mena-copy.zip (41kB, staženo 27x)

citovat

Petr1222(14.5.2018 15:16)#040372

-Jména se měnit nebudou, ty jsou stanovená pevně.
-Když je daný řádek zkopírovaný, tak jediná podmínka je, aby se nekopíroval znovu, jinak není potřeba ho označovat ani mazat v hlavním sešitě.

Změny v řádku (pokud nějaké budou) se budou opravovat ručně jak v hlavní tak příslušném sešitě

Jinak žádné další podmínky nejsou. Díky moc za přílohu.citovat

marjankaj(14.5.2018 19:51)#040373

Petr1222 napsal/a:

Jinak žádné další podmínky nejsou. Díky moc za přílohu.

Takže ty si potreboval už iba tú prílohu? Ty si ju vôbec nemal? No to sú mi pekné zadania.

citovat

misocko(17.5.2018 14:17)#040397

takze aby som to zhrnul
mas hlavny sesit , v nom mas niekolko riadkov zaznamov.
spustenim makra chces prejst riadok po riadku a z kazdenho riadku vytvorit novy sesit s nazvom podla mena v prislusnom riadku hlavneho sesitu
do toho vytvoreneho sesitu nakopirivat data z aktualneho riadku zdrojoveho sesitu
novy sesit zatvorit a pokracovat na dalsi riadok kde sa to cele zopakuje.

chapem to dobre?citovat

Téma: Rada ohledně makra v excelu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje