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

Zaslat odpověď >

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 Ifcitovat

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

marjankaj(9.4.2014 9:17)#018754

If target.value="ano" then Sheets("List1").Range("A9:K9").Copy WorkBooks("Nový_sešit").Sheets("List2").Range("A2")citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.