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?
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?
Vastaukset 2
Vanhimmat
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