同じブックのシート間でセルの値を転記するヒントが欲しいです。

質問

excel2002で牛の繁殖・肥育データの管理をしています。
１つのブックに"繁殖牛データ""肥育牛データ""種付け台帳のひな形"というシートがあり、"種付け台帳のひな形"シートは、コピーして繁殖牛の頭数分に増える予定です(コピーしたシートの名前はそれぞれ母牛の5桁の数字に変更します)。

"繁殖牛データ"
　　　Ａ　　 　Ｂ　　　Ｃ　 　Ｄ　　Ｅ
5　個体番号 生年月日　父　祖父　曾祖父
6
7
・
・
1004

"種付け台帳"
G2に繁殖牛の番号を入力
　 Ｂ　 　Ｄ　 Ｅ　　Ｆ　・・ CA　　　CB　　CC CD CE CF CG
6 日付 種類 性別 種の名前 個体番号 性別 生年月日 母 父 祖父
7 1/2 人工　　　精液1
8 10/2 分娩 ♂　 01234 =$F8 =$E8 =$B8 =$G$2 =$F7
9 双子　♂　 56789 =$F9 =$E9 =$B8 =$G$2 =$F7
10 12/2 人工 精液2
11 9/20 分娩 ♀ 02345 =$F1 =$E11 =$B11 =$G$2 =$F10
・
・
100

"肥育牛データ"
　　Ａ B　　　C　　　 D E　F G
3 個体番号 性別 生年月日 母 父 祖父 曾祖父
4
・
・

母牛の頭数分ある"種付け用"では人工授精と分娩の記録がなされ、D列が"分娩"もしくは"双子"の時だけCAからCGに必要な値を入れる式を入れています。
"肥育牛データ"シートに生まれた子牛のデータを入れたいのですが、
vlookupでは複数シートからの検索が出来ない事がわかり、VBAの勉強を始めました。
コードは書いてみたものの、エラーどころか何も動きを見せてくれなくて困っています。間違いだらけだろうとは思うのですが、参考書を見ただけでは具体的な間違いを見つけられないのでアドバイスお願いします。
下記コードは、シートをコピーした際にコードも一緒に複製されるだろうと思って"種付け台帳のひな形"というシートの部分に書いています。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 4 Then Exit Sub
If Target.Value <> "分娩" Or Target.Value <> "双子(2)" Then Exit Sub

Dim gyou As Variant, katann As Variant

gyou = Target.Row
katann = Worksheets("データ").Range.End(xlDown)

Worksheets("データ").Cells(katann, "A").Value = ActiveSheet.Cells(gyou, "CA").Value
Worksheets("データ").Cells(katann, "B").Value = ActiveSheet.Cells(gyou, "CB").Value
Worksheets("データ").Cells(katann, "C").Value = ActiveSheet.Cells(gyou, "CC").Value
Worksheets("データ").Cells(katann, "D").Value = ActiveSheet.Cells(gyou, "CD").Value
Worksheets("データ").Cells(katann, "E").Value = ActiveSheet.Cells(gyou, "CE").Value
Worksheets("データ").Cells(katann, "F").Value = ActiveSheet.Cells(gyou, "CF").Value
Worksheets("データ").Cells(katann, "G").Value = ActiveSheet.Cells(gyou, "CG").Value

End Sub

回答No.1

tarinko_06 · ベストアンサー

まず

＞If Target.Value <> "分娩" Or Target.Value <> "双子(2)" Then Exit Sub

ORの使い方がおかしいです。これでは分娩・双子(2)ともにはじかれます。
分娩以外には双子(2)も該当、双子(2)以外には分娩も該当するので
分娩または双子(2)の場合は処理を抜けると取れるので何も起こりません。

この場合ORじゃなくてANDを使いましょう。
あと、今回の場合デバッグ機能を使えばどこが原因かはすぐわかるはずです。
やり方は参考書に載っていると思いますよ。ネットにもありますし。

あと、今のままだと末尾のデータが１件消えて新しいのが１件上書きされるって形になる様な気が。
違うかな～？あんまり自信ないです＞＜。

お礼

回答ありがとうございます。

＞ORの使い方がおかしいです。これでは分娩・双子(2)ともにはじかれます。

この指摘でようやく自分の間違いに気付きました。
ANDに直して試したところ、今度はしっかり？

実行時エラー'450':引数の数が一致していません。または不正なプロパティを指定しています。
が表示され、デバッグ機能も使えました！
＞katann = Worksheets("データ").Range.End(xlDown)

せっかく表示されたエラーの意味を理解できないので、今参考書をめくっているところです。

補足

エラーが出た部分で、基準になるセルを指定していない事に気付き、さらに終端セルの１行下の行番号を取得できるよう修正したつもりです。

katann = Worksheets("データ").Range("A3").End(xlDown).Offset(1).Row

しかし、修正したつもりの上記コードで「実行時エラー1004：アプリケーション定義またはオブジェクト定義のエラーです。」となってしまいました。
アプリケーションは使っていないのでオブジェクト定義がおかしいということだと思うのですが、Worksheets("データ")の部分の書き方がおかしいのでしょうか？

回答No.2

tarinko_06

考えられる原因としたら

１．Worksheets("データ")のデータというシートがそもそも存在しない
　　※わざとデータって名前にしてると思って突っ込まなかったんですけど
　　これはworksheets("肥育牛データ")じゃなくてWorksheets("データ")で問題ないんですよね？

２．A3以降にデータ入っていない場合Xldownを使うと最後まで行ってしまうにも関わらず(※１）
　　Offsetを使ってありえないセルを選択してる
　　※これが原因なら
　　katann = Worksheets("データ").cells(rows.count,"A").End(xlup).Offset(1).Row
　　でいくかもしれません。

他にも何か原因あるかもしれませね。間違ってたらごめんなさい。

※１エクセルのバージョンによって違うんですが
エクセルには限界の行、列が存在します。
今回使ってるXldownはシート上でセルを選択しCtrlキーを押したまま
キーボードの↓を押したのと同じ効果になります。A65536など

お礼

出来ました♪ありがとうございます！
いろいろ触ってるうちに"データ"というシートを作っていました。すみません。
失敗の原因は２番で、"データ"シートはA3:G3に項目が書かれているだけでした。
上の解決方法を見る前に、A2に特別必要ない文字を入れたことでいったん解決したのですが、tarinko_06さんに教えてもらった方が見やすくて助かります。
本当にありがとうございました。