|
どなたかお助けを、、、
現金出納帳をつくりました。
毎月残高を更新するマクロです。
F250の残高を新しいシートのF3にペーストし、シート名をひと月増やしていきます。
最初は60行でしたが今は250行に増やしました。
そしたら機能しなくなってしまいました。
何が原因でしょうか?
お解りになる方、お助け下さい。
Dim M, N
M = ActiveSheet.Name
N = Left(M, Len(M) - 1) + 1
If N = 13 Then N = 1
Application.ScreenUpdating = False
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = N & "月"
Range("F250").Copy
Range("F3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A4:E249,G4:G249").ClearContents
Range("A4").Select
Application.ScreenUpdating = True
|
|