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
419
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
- 16457
- 10412
- 16347
- 3341
Mies mä oon ihan helppo
Miehelle johon oon ihastunut. Olen harvoin ihastunut, mutta suhun olen. Ei tarvitse kuin pyytää, niin...13206- 1103
- 090
Mies olen aika erakko nykyään
Vanhentunutkin olen muutamana viime vuonna parikyt vuotta. Kun en ennenkään kelvannut, niin tuskin nytkään kelpaan. Lisä090Kuinka moni palstalaisista on näin hyvässä kondiksessa
76-vuotias rokkari Rick Springfield esittelee elämäntyyliään : https://www.youtube.com/watch?v=GbxHuNy6d68367- 161