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
414
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
- 561328
Pitkäaikaistyöttömyys Suomessa harvinaisen paha
Karut työttömyysluvut, korkein luku yli neljännesvuosisataan.1601260Janni Tikkanen ohjattiin miesten pukuhuoneeseen
Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu571201Mitä vastaisit
Jos kysyisin, että lähdettäisiinkö lenkille yhdessä? Vain sinä ja minä, kaksin? Miehelle601125Tiedän ettet tehnyt tahallasi pahaa
Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo1041101Rakastan ja ikävöin sinua
Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä58907Nyt tiistain galluppi alkaa....
Kuka on sun elämän rakkaus? Ketä kaipaat edelleenkin? Nyt nimiä vaan rohkeesti tuohon alle.Tää on ikäväpalsta, eikä mikä56873KIIKKUSTUOLI
Aloitetaan taas uudella alustalla, nuo pitkiksi venyneet ovat hankalia etsiä uusia viestejä, joskus vastauksia tulee sin78823- 51817
Miten aiot saada kaivattusi?
1) loukuttamalla 2) kidnappaamalla 3) huijaamalla 4) jokin muu, mikä?54795