< návrat zpět
MS Excel
Téma: Kopírování do jiného sešitu
Zaslal/a bloom 7.4.2014 13:10
Ahoj, chtěl bych vytvořit makro, které by poté, co by buňka nabyla konkrétní hodnoty (např. "ano"), kopírovalo řádek, ve kterém se buňka nachází, do jiného sešitu. Snad zadání není moc komplikované. Snažil jsem se vytvořit sám kopírování na jiný list ve stejném sešitu (viz níže), ale ani to mi bohužel nefungovalo. Díky moc za jakoukoliv radu. bloom
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$O$9" Then
Select Case Target.Value
Case ano
Range("A9:K9").Select
Selection.copy
Sheets("List2").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("List1").Select
End Select
End If
Pavlus(7.4.2014 14:09)#018717 Reaguji čistě na tento kód...
1.) Podmínku "ano" dej do uvozovek, jelikož se jedná o text.
2.) Místo Selectu Listu2 dej Activate, a pak ještě upřesni Select A2.
Asi takto:
Sheets("List2").Activate
Sheets("List2").Range("A2").SelectPak už ti to bude nějakým způsobem fungovat :-).
P.
citovat
marjankaj(7.4.2014 14:50)#018718 If Target.Address = "$O$9" Then
If target.value="ano" then Sheets("List1").Range("A9:K9").Copy Sheets("List2").Range("A2")
End If
citovat
bloom(9.4.2014 9:05)#018752 Jasně, díky moc za odpověď. Nevěděl by ale ještě někdo radu, jak to nastavit, aby to fungovalo, na kopírování do jiného
sešitu? Moc děkuji.
citovat
If target.value="ano" then Sheets("List1").Range("A9:K9").Copy WorkBooks("Nový_sešit").Sheets("List2").Range("A2")
citovat