[[20130716155435]]　『保存しているデータを所定のシートへ転記』（ck）　ページの最後に飛ぶ

『保存しているデータを所定のシートへ転記』（ck）

 以前質問させていただきご回答いただいた件で再度質問です。

 以下のコードがあります。↓

 Sub 入力データを元戻し()
    Dim ToRow As Long
    Dim R As Range
    Dim c As Range
    Dim i As Long

    '念のため、セル選択されていなければエラー（図形などが選択されている状態）
    If TypeName(Selection) <> "Range" Then
        MsgBox "戻したい行の任意のセルを選んでから実行してください"
        Exit Sub
    End If

    With Sheets("入力データ保存")

        ToRow = Selection.Row

        Set R = getArea

        i = 2
        For Each c In R
            c.Value = .Cells(ToRow, i).Value
            i = i + 1
        Next

        .Select
        .Range("A1").Select

    End With

 End Sub

 Function getArea() As Range
    Set getArea = Sheets("通知書書式").Range("BO25,G22,C31,I31,O31,V31,C33,I33,O33,V33," & _
                                              "C35,I35,O35,V35,C37,I37,O37,V37,C39,I39" & _
                                              "O39,V39,C41,I41,O41,V41,C43,I43,O43,V43," & _
                                              "C45,I45,O45,V45,AG31,AM31,AS31,AZ31,AG33,AM33," & _
                                              "AS33,AZ33,AG35,AM35,AS35,AZ35,AG37,AM37,AS37,AZ37," & _
                                              "AG39,AM39,AS39,AZ39,AG41,AM41,AS41,AZ41,AG43,AM43,AS43,AZ43,AG45,AM45,AS45,AZ45")
 End Function

 シートの入力データ保存より、シートの通知書書式へ転記するコードですがエラー
 になります。なぜかもわかりません。教えてください。
 （エクセル2007）

 SubScript,　括弧の中の文字が 255を超えているからでしょう？

 with Sheets("通知書書式")
     Set getArea =union(.Range("BO25,G22,C31,I31,O31,V31,C33,I33,O33,V33"), _
                  .range("C35,I35,O35,V35,C37,I37,O37,V37,C39,I39"), _
                  .range("O39,V39,C41,I41,O41,V41,C43,I43,O43,V43"), _
                  .range("C45,I45,O45,V45,AG31,AM31,AS31,AZ31,AG33,AM33"), _
                  .range("AS33,AZ33,AG35,AM35,AS35,AZ35,AG37,AM37,AS37,AZ37"), _
                  .range("AG39,AM39,AS39,AZ39,AG41,AM41,AS41,AZ41,AG43,AM43") _
                  .range("AS43,AZ43,AG45,AM45,AS45,AZ45"))
 end with
 とか？
 (seiya)

 (seiya)さんありがとうございました。

 上手く出来ました。本当にありがとうございました。(CK)

 すいません。上手く出来たつもりでしたが、↓の箇所が転記されません。

  .Range("AG39,AM39,AS39,AZ39,AG41,AM41,AS41,AZ41,AG43,AM43") _
  .Range("AS43,AZ43,AG45,AM45,AS45,AZ45"))

 何度も質問させていただき申し訳ありませんが、ご教示ください。

 (CK)

 エラー無で終わるってことは、転記されてるんじゃないの？
 元が空白ってことはありませんか？
 (seiya)

 (seiya)さん、たびたびありがとうございます。

 エラーは出ないですが、元になるセルは空白ではありません。すべてのセルが入力されています。

 (CK)

(seiya)さん、すいません。うまくいきました。

 ありがとうございました。(CK)

コメント返信：

[ 一覧(最新更新順) ]

[[20130716155435]] 『保存しているデータを所定のシートへ転記』（ck） ページの最後に飛ぶ

[[20130716155435]]　『保存しているデータを所定のシートへ転記』（ck）　ページの最後に飛ぶ