Stránka 1 z 1
automatické kopírování dat z listu na list (excel) Vyřešeno
Napsal: 24 dub 2012 11:46
od illhexapod
Zdravím,
potřeboval bych radu zkušenějších....
mám excelovský dokument s jediným listem... potřeboval bych listů dohromady 5 s tím, že při editaci prvního by se automaticky kopírovali změny do statních krom prvního řádku. Ten bych editoval ručně na každém listu zvlášť. Lze to?
Jak na to? děkuji!
Re: automatické kopírování dat z listu na list (excel)
Napsal: 24 dub 2012 12:18
od cmuch
Vítej na PC-Help
Na těch ostatních listech se budou provádět také změny?
Re: automatické kopírování dat z listu na list (excel)
Napsal: 24 dub 2012 16:26
od illhexapod
Ahoj,
ano, první řádek každého listu se bude editovat ručně a pokaždé jinak a zbytek automaticky (duplicitně) podle prvního listu... jestli jsem se dost srozumitelně vyjádřil :)
Děkuji .)
Re: automatické kopírování dat z listu na list (excel)
Napsal: 24 dub 2012 17:58
od cmuch
Já myslel
, jestli se náhodou krom prvního řádku na ostatních listech budou ručně editivat i jiné.
Jinak toto makro vlož přes Alt+F11 do prvního listu, který musí být zároveň i jako zdrojový!
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
'jestliže vybrán jiný řádek než první tak pokračuj
If Not Target.Row = 1 Then
Sheets(1).Range(Target.Address).Copy Destination:=Sheets(2).Range(Target.Address)
Sheets(1).Range(Target.Address).Copy Destination:=Sheets(3).Range(Target.Address)
Sheets(1).Range(Target.Address).Copy Destination:=Sheets(4).Range(Target.Address)
Sheets(1).Range(Target.Address).Copy Destination:=Sheets(5).Range(Target.Address)
End If
End Sub
Re: automatické kopírování dat z listu na list (excel)
Napsal: 24 dub 2012 20:29
od illhexapod
Super funguje děkuji ale malinký problém je že editované změny se ukáží jako jediné.... potřeboval bych na ty ostatní listy dotlačit "šablonu" z prvního listu.
jakmile první list zkopíruji, už to při editaci hází chyby.... nějaký nápad? ( soubor přikládám k nahlédnutí :)
Děkuji!
Re: automatické kopírování dat z listu na list (excel)
Napsal: 24 dub 2012 21:11
od cmuch
Udělal bych to takto.
Tu šablonu rozkopírovat do těch 5-ti listů
Potom tam vložit toto makro
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.MergeCells Then
Sheets(1).Range(Target.MergeArea.Address).Copy Destination:=Sheets(2).Range(Target.MergeArea.Address)
Sheets(1).Range(Target.MergeArea.Address).Copy Destination:=Sheets(3).Range(Target.MergeArea.Address)
Sheets(1).Range(Target.MergeArea.Address).Copy Destination:=Sheets(4).Range(Target.MergeArea.Address)
Sheets(1).Range(Target.MergeArea.Address).Copy Destination:=Sheets(5).Range(Target.MergeArea.Address)
Exit Sub
End If
Sheets(1).Range(Target.Address).Copy Destination:=Sheets(2).Range(Target.Address)
Sheets(1).Range(Target.Address).Copy Destination:=Sheets(3).Range(Target.Address)
Sheets(1).Range(Target.Address).Copy Destination:=Sheets(4).Range(Target.Address)
Sheets(1).Range(Target.Address).Copy Destination:=Sheets(5).Range(Target.Address)
End Sub
Kopírovat by se měli asi jen ty červené údaje, že?
Tak zatím vyzkoušet toto.
Re: automatické kopírování dat z listu na list (excel)
Napsal: 25 dub 2012 04:47
od mike007
Tohle se dá řešit i bez maker - bohatě stačí, když si myši označíš všech pět záložek (Ctrl+klik na záložky) a pak už jen zapisuj do jedné z nich.
Re: automatické kopírování dat z listu na list (excel)
Napsal: 25 dub 2012 08:28
od illhexapod
Jste užasní :) Děkuji za pomoc. Jen jsem to doplnil o ten první řádek, který se edituje ručně... ale šlape to jak má.
Díky moc.