|
こんにちは。かみちゃん です。
>Sub macro41()
> Range("BI4:BI11").Select
> Application.CutCopyMode = False
> Selection.Copy
> Range("D4").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
> :=False, Transpose:=False
> .
> .
> .
> Range("BQ49:BQ50").Select
> Application.CutCopyMode = False
> Selection.Copy
> Range("D153").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
> :=False, Transpose:=False
>End Sub
>上のような式を入れています。
>Macro1で他のブックからデーターを読み込み、Macro41でデータの順番を変更しながら、表の中に取り込んでいきます。
動作確認してみましたが、
Sub macro41()
End Sub
は、きちんと実行されますね。
試しに、
Sub macro41()
MsgBox "macro41を実行します"
Range("BI4:BI11").Select
' 以下省略
End Sub
としてみて、MsgBoxが表示されるか確認してみてください。
なお、
Range("BI4:BI11").Select
Application.CutCopyMode = False
Selection.Copy
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
の処理は、どのブックのどのシートのどのセルに対して、何をしようとしているか
ご理解されていますか?
たぶん何かにおかしいと気づいていただけると思います。
|
|