Tarkoituksenani on tehdä makro, joka kopioi laskentataulukon solun arvon toiseen samassa työkirjassa olevaan laskentataulukkoon.
Sheets("Taul2").Select
Range("J30:K30").Select
Selection.Copy
Sheets("Taul1").Select
Range("V2:W2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Tämä toimii, kun nauhoitettu makro luodaan tyhjälle työkirjalle. Yrittäessäni liittää tämä CommandButtonille toiseen työkirjaan, saan seuraavan virheilmoituksen:
runtime error 1004
Luokan range menetelmä select epäonnistui
Samalla debuggaus osoittaa ongelmalliseksi jälkimmäisen selectin "Range("V2:W2").Select". Mikähän tässä mahtaa olla ongelmana? Osaako kukaan auttaa?
runtime error 1004
Vba-aloittelija
2
1021
Vastaukset
- kokeilija-aloittelija
Kokeile editoida makroa:
ActiveSheet.Range("V2:W2").Select Makronauhoitin antaa mukavaa koodia...
kokeiles tolla
Private Sub CommandButton1_Click()
Sheets("Sheet2").Range("J30:K30").Copy Sheets("Sheet1").Range("V2:W2")
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Immu otti pataan
Olen pettynyt, hänen piti viedä Stagalaa kuin litran mittaa - mutta kuinka kävikään? Voi hemmetti sentään.... Ääääääh!2293215Moikka rakas
Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa162279Malmin tapaus on järkyttävä
Kolme ulkomaalaistaustaista miestä raiskasi nuoren tytön tavalla, jota ei meinaa uskoa todeksi. Mikä voisi olla oikeampi4411476Tykkäätkö halaamisesta?
Minä en. Tänään tuttava, jolle olen maininnut että en pidä halaamisesta, yritti halata minua ja olen vieläkin ihan raivo1221386Näetkö feminismin uhkana
Vai mahdollisuutena kun deittailet naisia? Mitä miehet mieltä feminismistä?2161351Hinduilu on suurta eksytystä
tekosyvällinen tarina uppoaa moneen. Harhautusta todellisen Jumalan yhteydestä. Kuka haluaisi nähdä sielunvaelluksessa5351276- 1091238
- 1121212
- 46964
- 66954