前月の残高を表示する

よろしくお願いします。

シート”1月から12月”までの12枚用意
2月のセルG6に、1月のセルG200から上の最終セルの値を表示する。
3月のセルG6に、2月のセルG200から上の最終セルの値を表示する。
12月まで順次表示するようにしたいのです。

Range("G6").Value = Worksheets("1月").Range("G200").End(xlUp).Select

構文をお教えください。

No.2 ベストアンサー 回答者： tom04 回答日時： 2012/06/17 10:50

No.1です！

同じコードをコピー＆ペーストして今、こちらで確認してみました。
問題なくSheet名がひとつ前のデータがG6セルに表示されています。

原因が判りかねますが・・・
別のコードでためしてみてください。

Sub test2()
Dim i, k As Long
For k = 2 To 12
i = Worksheets(k - 1).Cells(Rows.Count, "G").End(xlUp).Row
Worksheets(k & "月").Range("G6") = Worksheets(k - 1).Cells(i, "G")
Next k
End Sub

※　今回はG列最終行データを次のSheetのG6セルに！
とやっています。

これでもダメならごめんなさいね。m(_ _)m

この回答へのお礼

tom04さん　ありがとうございます

お教えいただく前にコードをいろいろ書き込んでいたのですが
そのコードを消さずにそのまましていたのが原因でした。

頭を悩ませてすみませんでした。
解決しました。感謝、感謝

お礼日時：2012/06/19 06:17

No.1 回答者： tom04 回答日時： 2012/06/16 20:34

こんばんは！

一例です。

Sheet名は　○月　（←○部は半角数値）となっているとします。

Alt＋F11キー　→　画面左側の「This Workbook」をダブルクリック　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。

Sub test()
Dim k As Long
For k = 2 To 12
Worksheets(k & "月").Range("G6") = _
Worksheets(k - 1 & "月").Range("G200").End(xlUp)
Next k
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

tom04さん　早速の回答ありがとうございます。

コードを実行してみましたが、前月のG5の文字が表示されます。

前月のシートは、G5（表題）からG10（数値）まで入力されていますが
前月の一番上のG5（表題）が、G6に表示されます。

原因がわかりません。
修正方法を、教えていただけないでしょうか
よろしくお願いします。

お礼日時：2012/06/17 05:41