特定の値を検索して、該当する全てのセルに入力されている値を削除したい

Question

閲覧ありがとうございます。当方VBA初心者です。

エクセルでタスク管理のできるカレンダーを作成中です。
日付ごとに３列あって、

1	2	3
タスク番号欄	メモ欄	チェック欄

として運用予定です。
（メモ欄はコードで奇数列か偶数列かを判別して動かす都合上、２列を結合してあります）

VBAで色々と作成中なのですが、
「タスク番号に×をつけたら、他の日付に入れている同じタスク番号を全て削除する」
というコードが上手くかけずに困っています。

↓×を入れたら（×が入っている箇所以外の）黄色のセル全部（に入力されている値）が消えてほしいのですが…２カ所しか消えません。

やりたいこととしては、
0. タスク番号の横に×を入れる
0. その瞬間に「○○番は終了しました！○○番の予定をカレンダーから削除してよろしいですか？」とYesNoのmsgboxを表示
0. 「はい」を押したら、他の日付に入っている番号をカレンダーのセル上から削除する（×を入れたところは除く）
といった流れです。

消える箇所と消えない箇所があって、その法則性がわからず困っています。
お力添えいただければ大変助かります。
よろしくお願いいたします。

追記：
試しに番号をずらっと並べてみたらこんな感じで削除されます。

↓

Private Sub Worksheet_Change(ByVal Target As Range) 
  
  Dim c As Range
  Dim ws As Worksheet
  
  '以下、カレンダーに入れた×をSheet2に転記するコード。×を入れたら動く
  If Intersect(Target, Range("CT5:WO103")) Is Nothing Or Target.Count > 1 Then Exit Sub
     
  With Target
      
  If Not .MergeCells = True And .Column Mod 2 = 1 Then 'ターゲットが奇数列だった場合
                      
        Set ws = Worksheets("Sheet2")
        Set c = ws.Cells.Find(What:=.Offset(, -3), LookIn:=xlValues, lookat:=xlWhole) 
        If Not c Is Nothing Then 
           c.Offset(1) = .Value
        End If



'以下、質問のコードです
 If .Value = "×" Then
      Dim htn As Integer
      Dim nmb As Range
      Set nmb = Target.Offset(0, -3)
      htn = MsgBox(nmb & "番は終了しました！" & vbCrLf & vbCrLf & nmb & "番の予定をカレンダーから削除してもよろしいですか？" & vbCrLf & "(消すと元に戻りません)", vbYesNo + vbExclamation, nmb & "の削除")
                
      If htn = vbYes Then
         Dim a As Range
         Dim peke As Boolean
         Dim a2 As Range

         Set a = Range("CT5:WO103").Find(What:=nmb.Value, After:=nmb, lookat:=xlWhole)
                    
                    
         Do
            If a.Offset(0, 3).Value = "" Then 
               Set a2 = a                      
               a2.ClearContents                 
                
            End If
                    
                Set a = Range("CT5:WO103").FindNext(a) 
                    
                Loop Until a.Address = nmb.Address  
                
      End If
　End If
  End If
end with
end sub

Comments

[meg_]

「該当するセル全てを削除したい」というのは”セルの削除”ではなく”セルの文字列の削除”という意味でしょうか？

[city_yoshy]

すみません、その通りです！セルの内容だけ削除したいのです。。ところどころ色をつけてるので文字だけの削除になります。

[meg_]

「Set a = Range("CT5:WO103").FindNext(a)」の後で、aに対象セルがセットされているかは確認されましたか？

[city_yoshy]

確認していませんでした????
一番最初に貼った画像と同じ番地に１１１と入れて、
Set a = Range("CT5:WO103").FindNext(a)の後でdebug.printをしてみたところ、
$DJ$16
$DF$20
$DN$20←削除されていない
$DN$26←削除されていない
$CT$32
$DB$37
と表示されました。（この確認方法で合っていますかね…？）

また、CT16にも111と入れていて、コードを実行した結果削除されていますが上記には表示されていませんでした。

[meg_]

検索には成功しているなら、｢If a.Offset(0, 3).Value = ""｣のところではねられているのかと。セルに空白文字など入っていませんか？

[city_yoshy]

！！
If Not a.Offset(0,3).Value="×"にしたらできました！
プルダウン選択なので　""　で大丈夫だろうと思ってました・・・
ありがとうございました！！

Answer 1

Do Untilの中にある

If a.Offset(0, 3).Value = "" Then 

を

If Not a.Offset(0, 3).Value = "×" Then 

にしたら解決しました。思い込みと単純なミスでした…（前もやらかした気がします）

Answer 2

Offsetのパラメータが-3か3を使ってますが、-2 2 の間違いでは？

Comments

[city_yoshy]

メモ欄は2列を結合して作ってあるので、3または-3にしないと動かないみたいです。。

[ttyp03]

おぅ、そこは見逃してました。

[city_yoshy]

なんとか解決しました！前に引き続きありがとうございましたm(_ _)m