Sub Lisää()
'
' Lisää Makro
'
'
'
Sheets("Taul1").Select
Range("I19:K19").Select
Selection.Copy
Sheets("Taul2").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Sheets("Taul1").Select
Application.CutCopyMode = False
Range("A1").Select
End Sub
eli kun excel ei ole jaettu ei suorita tuota toimintoa vaan ilmoittaa että Run-time error '1004', Luokan Range menetelmä Insert epäonnistui.
Miksei jaetussa muodossa toimi?
Run-time error '1004'
bablobubla
1
379
Vastaukset
jos komentopainike ajaa koodin, niin kokeile laittaa sen ominaisuuksissa arvo TakeFocusOnClick =FALSE ja testaa toimiiko sitten?
kyllä koodisi toimii ihan OK mun koneella- se vaan joskus voi olla noin, että alkaa yllättäen tökkiä koodi. Yksi syy voi olla suojattu taulukko... ja toi ekaksi mainittu kohdistus syy
allaolevalla koodilla pitäs kyllä toimia
Sub Lisää()
Sheets("Sheet2").Rows("2:2").Insert Shift:=xlDown
Sheets("Sheet1").Range("I19:K19").Copy Sheets("Sheet2").Range("A2")
Sheets("Sheet1").Range("A1").Select
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1592506
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1361925Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1061775- 781455
- 761388
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet211357- 2281096
- 71890
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv220880- 49831