Odeslání dat do jineho listu Vyřešeno

[Jsimi]

Ahoj všem,
Potřeboval bych pomoci s makrem, jak odeslat vybrané data do jiného listu na základě několika podmínek. Mám list databáze kde je seznam, ve kterém pomocí filtru vyhledám správnou položku. Po jejím vybrání bych potřeboval, aby se po stisknutí tlačítka odeslat /zatím není přítomno/ objevilo okno kam bych zadal cca 4 různé hodnoty buď kg/ ks nebo hod, které by se odeslaly sečtené do příslušné kolonky listu strana A 1- strana A 3 dle zadaného datumu na listu Databáze / den pro vyplnění / a zároveň by se přeneslo číslo normy na nejblišší volný řádek /pokud v listu A1-A3 ještě číslo normy není/, stím že pokud by již číslo bylo tak by se jen doplnily součty do příslušných kolonek. Pokud by na listu A1 došlo k zaplnění, tak se pokračovalo na listu A2, A3.
Snad jsem to popsal dost srozumitelně a samozřejmě přikládám vzorový soubor.
Celý základ jsem použil tady s fora od CMUCH.
Předem díky za rady a pomoc.

[Reklama]

[Jsimi]

Zdraím,
Trochu jsem bádal a soubor jsem trochu poupravil, kde by situace mohla být trochu jednoduší. Na listu databáze se vyplní úkol do příslušných řádků a po vyplnění celého týdne, by bylo potřeba zobrazit řádky u kterých by byl nějaký výkon a tyto výkony i s číslem normy přenést do listu strana A do příslušných kolonek, které jsou totožné a v případě že by se nevešly do listu strana A, by zbytek pokračoval do listu strana A1, případně strana A2. Tyto listy nelze měnit a takto musí být vytištěn.
Pokud někdo ví o ještě jednodušším řešení sem sním.

Doplnění: Zkusím to krok pokroku s upraveným sešitem
Šlo by vytvořit makro které by vypsalo pouze řádky kde jsou vyplněné buňky v oblasti G6-T6 směrem dolů

[cmuch]

Něco jsem zkusil,tak na to koukni.

Zrušil jsem jednu sloučenou buňku v listech Stran, teda jestli nevadí

Pro kopírování stačí klinout na tlačítko v listu.

[Jsimi]

Ahoj.
Perfektní práce, je to přímo super. Ale měl bych ještě jednu maličkost, dodal jsem tam makro na vyčištění vyplněných údajů, makro se i provede, ale hází to chybu kompilace, tu samou chybu to hodí například když provádím kopírování buněk. Mohl bys na to juknout.
Moc děkuji.

[cmuch]

Uprav to makro pro vyčištění takto.

Kód: Vybrat vše

Sub tlačítko7_Klepnutí()
 'vypnout zpracovani udalosti
 Application.EnableEvents = False
 'smaz oblast
 Range("G6:T300").ClearContents
 'zapnout zpracovani udalosti
 Application.EnableEvents = True
End Sub

[Jsimi]

Perfekt,
ještě jednou díky. Téma zamykám.