< návrat zpět

MS Excel


Téma: Kopírování do jiného sešitu rss

Zaslal/a 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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#018717
avatar
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").Select
Pak už ti to bude nějakým způsobem fungovat :-).
P.citovat
#018718
avatar
If Target.Address = "$O$9" Then

If target.value="ano" then Sheets("List1").Range("A9:K9").Copy Sheets("List2").Range("A2")

End Ifcitovat
#018752
avatar
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
#018754
avatar
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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09