別シートへの移動

質問

任意の番号別に名前を付けた複数のシートとそれらを集計するシートが有ります。複数のシート名は以下のように取得しています。
mySheetCnt = ThisWorkbook.Sheets.Count
For i = 2 To mySheetCnt
　mySheetNam = Sheets(i).Name
　Sheets(mySheetNam).Select
　Worksheets(mySheetNam).Range("d6").Select
　・
Next i
それぞれのシートで集計した結果をシート名”個人時間集計”のセルＡ５に書込み、その後"Next i"のシートに移って同じように集計させ、また結果をシート名”個人時間集計”に書込む。この処理を繰り返したいと思います。
質問は
１　"シート名”個人時間集計”のセルＡ５"の指定方法
２　その後"Next i"のシートに移って・・
以上がどうしてもうまくいきません。どなたか教えて下さい。

回答No.5

hige_082

＃４です
＃４ではエラーが出ますね
すいません、野球が気になって・・・
＃３さんのが正解です
ごめんなさい

お礼

いろいろお世話になりました。
やっとシート移動が出来ました。

Worksheets("個人時間集計").Select
Range("A5").Select
を
Sheets("個人時間集計").Select
Worksheets("個人時間集計").select
Range("A1").Select
と書き直したらなぜか出来るようになりました。
本当にありがとうございます。

補足

お礼が遅くなりました。
私も始めは教えて頂いたコードでやって見たのです。しかしうまくいかなかったのです。今回シート名を取得する方法を使ったのは初めてで何か特別なシート移動方法やセル取得が有るのかなと思って質問致しました。これから問題の部分だけを抜き出してやってみます。ありがとうございました。暫くしたらまた質問します。懲りずに教えて下さい。
PS：野球優勝良かった

回答No.4

hige_082

処理の流れが、今一つ掴めないのですが

＞そこで基準となる("A5")をActivecellとして指定したいのです。

Worksheets("個人時間集計").Range("A5").Activate

で、指定できます

回答No.3

n-jun

＃１です。

＞１　"シート名”個人時間集計”のセルＡ５"の指定方法
なら
Worksheets("個人時間集計").Select
Range("A5").Select
ですけど。

ただやりたい事に対してコード全体がわからないので、どこに入れるというのもわからないです。
それにSelectをするという事自体ほぼ皆無なので。

お礼

いろいろお世話になりました。
やっとシート移動が出来ました。

Worksheets("個人時間集計").Select
Range("A5").Select
を
Sheets("個人時間集計").Select
Worksheets("個人時間集計").select
Range("A1").Select
と書き直したらなぜか出来るようになりました。
本当にありがとうございます。

補足

お礼が遅くなりました。
私も始めは教えて頂いたコードでやって見たのです。しかしうまくいかなかったのです。今回シート名を取得する方法を使ったのは初めてで何か特別なシート移動方法やセル取得が有るのかなと思って質問致しました。これから問題の部分だけを抜き出してやってみます。ありがとうございました。暫くしたらまた質問します。懲りずに教えて下さい。

回答No.2

hige_082

書き込みの条件が無いようですが
条件は＃１さんと同じです

Sub test()
Dim mySheetCnt As Integer
Dim mySheetNam As String
Dim i As Integer
mySheetCnt = ThisWorkbook.Worksheets.Count
For i = 2 To mySheetCnt
mySheetNam = Worksheets(i).Name
Worksheets("個人時間集計").Range("a" & i + 3).Value = Worksheets(mySheetNam).Range("d6").Value
Next i
End Sub

VBAの理解が深まればと思い、質問のコードを修正・追加してみました
参考までに

お礼

迅速なご回答ありがとうございました。
どうやらシート名取得はhige_082さんの以前の回答を参照していたようです。さて質問内容に不足がありました。詳しくはn-junへのお礼で記載しています。引き続きご指導お願い致します。

回答No.1

n-jun

＞"シート名”個人時間集計”のセルＡ５"の指定方法
Ａ５の次は下に書き込んでいくと仮定すると、

Sub try()
Dim ws As Worksheet
Dim r As Range

Set r = Worksheets("個人時間集計").Range("A5")

For Each ws In Worksheets

If ws.Name <> "個人時間集計" Then
ws.Range("D6").Copy r
Set r = r.Offset(1)
End If

Next

Set r = Nothing
End Sub

こんなとか？

お礼

迅速なご回答ありがとうございました。
私の質問不足が有りました。集計する各シートには縦に作業名、横には４列１ブロックで日にち（例３月２４日）を指定しています。これが日にち別に数ブロックあります。その中に色別で作業者の作業時間を記載しています。また幾つかのシートに同一作業日が存在します。
集計結果を記載する"個人時間集計”シートは縦は日付、横に作業者名の項目になっています。
"個人時間集計”シートで縦側の日付を検索、作業者名をを指定するのにActiveCell.Offsetを使っています（これは出来ました）。そこで基準となる("A5")をActivecellとして指定したいのです。どうぞよろしくお願い致します。