automatické kopírování dat z listu na list (excel) Vyřešeno

[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!

[Reklama]

[cmuch]

Vítej na PC-Help

Na těch ostatních listech se budou provádět také změny?

[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 .)

[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


[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í :)

cmr.xls

(83.5 KiB) Staženo 111 x

Děkuji!

[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.

[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.

[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.