Kopírování do jiného sešitu
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
Case ano
To má znamenat co? To testujes obsah promenne ANO, která obsahuje logickou hodnotu ANO/NE. Pokud chces testovat, jestli bunka obsahuje hodnotu ano, pak treba:
if range("$O$9").Value = "ano"
Neni treba nic ukladat do schranky, nemusis prepinat listy, pouze to uloz z jednoho listu do druheho. Listy je mozne adresovat primo.
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.
Na 99,9999% procent věcí se už někdy někde někdo ptal, stačí hledat:
http://programujte.com/forum/vlakno/16555-kopirova ni-ve-vba-excel/