Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
貼付先シートを指定する方法
投稿日時: 19/06/05 11:10:22
投稿者: paobon

 
Active Sheetの一部データを現在のシートの2枚前のシートに貼付をするといったことはVBAを利用してできるのでしょうか?
 
現在業務の生産性向上の為、複数利用しているWorkBookを1つにまとめる作業を行っております。
その中で、現在は手動でコピー&ペーストを行っているものを自動化したく思っております。
 
初心者のため、 なるべく簡単な方法を教えていただけると幸いです。
よろしくお願いいたします。

回答
投稿日時: 19/06/05 11:59:17
投稿者: sk

引用:
Active Sheetの一部データを現在のシートの2枚前のシートに
貼付をするといったことはVBAを利用してできるのでしょうか?

(標準モジュール)
------------------------------------------------------
Sub CopyRangeToSheetTwoBefore()
 
    Dim wbk As Excel.Workbook
    Dim wst1 As Excel.Worksheet
    Dim wst2 As Excel.Worksheet
     
    Set wst1 = ActiveSheet
     
    If wst1.Index < 3 Then
        Set wst1 = Nothing
        Exit Sub
    End If
     
    Set wbk = wst1.Parent
    Set wst2 = wbk.Worksheets(wst1.Index - 2)
     
    wst1.Range("A1:B2").Copy Destination:=wst2.Range("C3:D4")
     
    Set wst2 = Nothing
    Set wst1 = Nothing
    Set wbk = Nothing
     
End Sub
------------------------------------------------------
 
以上のようなコードを実行なさりたい、ということでしょうか。

投稿日時: 19/06/05 12:15:17
投稿者: paobon

ありがとうございます。
行いたいことができました!!
助かりました。
本当にありがとうございます。

投稿日時: 19/06/06 15:29:41
投稿者: paobon

paobon さんの引用:
ありがとうございます。
行いたいことができました!!
助かりました。
本当にありがとうございます。