VBAについて

質問

いつもお世話になっています

マクロ・ＶＢＡ超初心者です。
質問させてください。

現在シート1の完売のセルの欄に○が入っていれば日付をみてシート2の同じ日付の隣のセルに○を入力しようと思っているのですが、シート2の日付を検索はしているんですが入力がいきません

Ｓｈｅｅｔ１
　↓セルＡ１　↓セルＢ1
　5月26日　　　26　　　　　　　　　　　Ｂ１のセルはＤＡＹ（Ａ１）にて出してます
　　　　　　　　完売
　Ａ氏　　　　　○　　　　　　　　　　　　

Ｓｈｅｅｔ2
　↓Ａ列　　　↓Ｂ列
5月
　1日
　・
　・
　・
　26日　　　　○　　　　　　　　　　　←シート１の所に○が付いているとシート１セルＢ１と同じ
　27日　　　　　　　　　　　　　　　　　　日付の隣のセルに○を入力
　28日

ＶＢＡ

Sub test()

Sheets("Sheet2").Select
Range("A1").Select
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Activate

If ActiveCell.Value = Worksheets("Sheet1").Range("B2") Then
ActiveCell.Offset(0, 1).Activate
If ActiveCell.Value <> "○" Then
ActiveCell.Valu = "○"
ActiveCell.Offset(0, -1).Activate
Else
ActiveCell.Offset(0, -1).Activate
End If
Else
End If
Loop
Sheets("Sheet2").Select
Range("A1").Select

End Sub

どこが間違っているかわからない状態です。
分かりにくい説明ではあるんですが教えてください
お願いします。

回答No.2

imogasi

この質問の説明では、Ｓｈｅｅｔ１の情況がよくわからない。
まだこの説明では、ＶＢＡを組めるレベルではないと思う。こちらの表現訓練が必要と思う。
Ｓｈｅｅｔ１で
例をＡ氏だけでなく、複数人で、Ｂ氏、Ｃ氏・・の行もＳｈｅｅｔ１のＡ，Ｂ列にあるのか。
Ａ氏市だけのデータではないだろう。
ーー
それと処理の単位という観念が、初心者のためか、しっかり捕らえてない。これを見極めて質問にはっきり書くこと。
処理のタイミング
（１）Ａ氏の行にというか、Ｂ列に丸が入ったとき、即時にＳｈｅｅｔ２の２６日の行に○をつけるのか
（２）データが１日なり分を、入力し終わってから、Ｓｈｅｅｔ２の○の該当日に○をつけるのか。
Ａ氏が完売という、Ａ氏ｉという要素はＳｈｅｅｔ２ではどうなったのか。埋没しても良いのか。
ーー
Ａ氏、Ｂ氏が両方とも5/26に完売は無いのか。
２６日分が１シートだとすると、２７，２８日分はどうなっている？
別シートになっていると、初心者には無理な情況ということに鳴る。
＝＝
むしろ自分の作ったコードなどは注記して、やりたいことを手作業でやるときの手順を箇条書きして、判らない部分のコードを教えてもらい、真似するより仕方が無いだろう。この質問のような我流のコードをエラー訂正してもらっても、発展が無いと思う。

回答No.1

kybo

>If ActiveCell.Value = Worksheets("Sheet1").Range("B2") Then

この部分は、日付（例では26）が入力されているのが、B1のセルなので、
Range("B2") ではなく、Range("B1")

>ActiveCell.Valu = "○"

スペルが間違っている。「ActiveCell.Value = "○"」とする

あと、シート1のＢ1のセルの日付は数値なので、シート2の日付も、数値として入力してあるのでしょうか？
「26日」と文字列で入力しているのであれば、「26」という数値にしておき、セルの書式設定→表示形式→ユーザー定義で、「0日」とでもします。