< návrat zpět

MS Excel


Téma: Rada ohledně makra v excelu rss

Zaslal/a 14.5.2018 11:57

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

#040367
elninoslov
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: zip40367_mena-copy.zip (19kB, staženo 5x)
citovat
#040368
avatar
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
#040369
Stalker

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í

4 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 7 ) žá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
#040371
elninoslov
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: zip40371_mena-copy.zip (41kB, staženo 4x)
citovat
#040372
avatar
-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
#040373
avatar

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. 6citovat
#040397
avatar
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

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse