Excel-automatické kopírování řádku z listu na jiný list Vyřešeno

[Misak196]

Dobrý den,
skvěle by se mi hodila úprava excelovského sešitu: "KopieRadkuNaJinyListDlePodminky3.xlsm" jako v tomto příspěvku:
viewtopic.php?f=35&t=105537#p802136
Jen bych ještě potřeboval, aby se po nakopírování řádku z listu "Sheet1" do příslušného listu (A,B,C...) ten "původní řádek" u nějž jsem změnit písmeno ve sloupci "D" z listu "Sheet1" odstranil.

S VBA teprve začínám a po mnoha hodinách (a s třemi knihami) jsem doplnil jen:

Kód: Vybrat vše

ActiveCell.EntireRow.Select
Selection.Delete

To mi ale vymaže tu kopii na příslušném listu (A nebo B....), protože ActiveCell není v dané chvíli na listu "Sheet1".
Dál už nevím.
Předem děkuji moc za pomoc

[Reklama]

[cmuch]

Za řádek ve VBA kde se kopíruje řádek na vybraný list vlož tuto

Kód: Vybrat vše

 
            Application.EnableEvents = False
            Rows(Target.Row).Delete
            Application.EnableEvents = True

to znamená pod tento

Kód: Vybrat vše

 Worksheets(PasteToSh).Rows(RowPasteToSh).Value = Rows(Target.Row).Value

[Misak196]

Dobrý den,
děkuji moc. Funguje přesně jak jsem potřeboval.
Měl bych ale ještě jednu prosbu:
Tak jak je kód napsaný nyní, kopíruje se celý řádek. Bylo by možné, aby se na ten daný další list nakopírovaly z kopírovaného řádku jen některé buňky (hodnoty v buňkách "A" až "L") ?

Ještě jednou děkuji moc za pomoc

[cmuch]

Místo řádku

Kód: Vybrat vše

Worksheets(PasteToSh).Rows(RowPasteToSh).Value = Rows(Target.Row).Value

vlož tento

Kód: Vybrat vše

Worksheets(PasteToSh).Range("A" & RowPasteToSh & ":L" & RowPasteToSh).Value = Range("A" & Target.Row & ":L" & Target.Row).Value

[Misak196]

Funguje to přesně tak jak jsem potřeboval.
Děkuji moc za pomoc