クリックしたセルより上で最も近い、日付が書いてあるセルを別のセルにコピーペーストするシステム

Question

前提

ダブルクリックしたセルの上にある一番クリックしたセルに近い、日付が書いてあるセルをコピーペーストするシステムを作っているのですが、どのようにすればよいかわからなくなってしました。

実現したいこと

対象：選択したセルの上には日付が載っているセルが複数ある。
想定機能：ダブルクリックしたセルに最も近い、同列で日付が書いているセルを獲得しコピーペースト。
構成予定：like関数を用いて上からダブルクリックしたセルまで順番に取得し、最後に得たものをコピーペースト。

発生している問題・エラーメッセージ

実行時エラー'424'　オブジェクトが必要です。

該当のソースコード

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim SearchCells As Object
Dim Possibility As Range

    Set Possibility = SerchCells.Value

    For Each SearchCells In Worksheets(1).Range(Cells(Target.Row, 1), Cells(Target.Row, Targe.Columns))

        If SearchCells.Value Like "####/##/##" Then
    
End If
    Next SearchCells


Cells(Taarget.Row, Possibility.Column).Copy Destination:=Range("J3")

    Cancel = True
    
End Sub

試したこと

Setを用いたりしましたが、ダメでした。

補足情報（FW/ツールのバージョンなど）

Excel 2019を使用しています。

Answer 1

Set Possibility = SerchCells.Value

ここも誤りですね。
・Object型で宣言されているPossibilityに、Range.Valueは入れられない。
・この段階ではSerchCellsになにも入っていないため、SerchCells.Valueがエラーになる。
・宣言されている変数は"SearchCells"。

その後にPossibility.Columnsを使うことから、

For Each SearchCells In Worksheets(1).Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Columns))
    If SearchCells.Value Like "####/##/##" Then
        Set Possibility = SearchCells
    End If
Next For

みたいな運用をするか、どうせほしいのがPossibility.Columnなら

dim Possibility as Long

If SearchCells.Value Like "####/##/##" Then
     Possibility = SearchCells.Columns
End If

のようにしてもいいかもしれませんね。

12/6追記：
いろいろと抜けがありましたので以下の通り修正します。とりあえず手元ですとエラーにならずに動きます。

・Target.Columns→Target.Column（誤字修正）
・SearchCells.Columns→SearchCells.Column（誤字修正）
・ Worksheets(1).Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Columns))
→ Me.Range(Me.Cells(Target.Row,1),Me.Cells(Target.Row, Target.Column))
（ワークシート上に記述されているなら、Meを使った方が確実。また、Range内側のCellsにもMeをかけないと、エラーになることがある）

For Each SearchCells In Me.Range(Me.Cells(Target.Row, 1), Me.Cells(Target.Row, Target.Column))
        
    If SearchCells.Value Like "####/##/##" Then
        Possibility = SearchCells.Column
    End If
Next

また何度もMeと書くのは煩わしいので、Withを用いて以下のように書けます。

With Me
    For Each SearchCells In .Range(.Cells(Target.Row, 1), .Cells(Target.Row, Target.Column))
        
        If SearchCells.Value Like "####/##/##" Then
            Possibility = SearchCells.Column
        End If
    Next
End With

Comments

[matuemon]

ご回答ありがとうございます。Possibility As Longにしてみたのですが、やはり、同じ「オブジェクトが必要です。」というエラーメッセージが出てきてしまいました。デバッグでは"For Each SearchCells In Worksheets(1).Range(Cells(Target.Row,1), Cells(Target.Row, Target.Columns))に黄色いマーカーが引かれてしまいます。

[matuemon]

追記ありがとうございます。初歩的な不手際のご指摘ありがとうございます。また初歩的なミスで申し訳ないのですが、今度はDestination:=Range("J3")の部分で「修正候補：式」というコンパイルエラーがでてしまいました。

[Usirow]

パッと考えられるのは以下の2点です。ご確認をお願いします。
・pig_vba様の指摘されているタイプミス（Taarget）を修正していない
・PossibilityをLongにしたのに、Possibility.Columnをそのままにしている（この場合は.Columnは不要です）

[matuemon]

一通り確認してみたのですが、解決できませんでした。一応、Possibility=SearchCellでも試してみましたが、この場合は「実行時エラー：91」が表示され、現在は”Cells(Target.Row, "Possibility").Copy Destination:=Range("J3")”にマーカーが引かれ、「型が一致しません」というエラーが出てしまいます。Copy Destination間を改行すると、「構文エラー」と表示されてしまいます。

[Usirow]

SearchCells.Value Like "####/##/##" が機能していないのではないかと思うので、該当箇所をIsDate(SearchCells.Value) にしてみてください。

[matuemon]

ご回答ありがとうございます。変更してみたのですが、変わらずに「Cells(Target.Row, "Possibility").Copy Destination:=Range("J3")」の部分が「型が一致しません」となり、改行すると「修正候補：式：」か「構文エラー」と出てしまいます。何度かスペルミスや今までご指摘頂いた内容を見返してみましたが、やはりミスが見つけられませんでしたので、現状の状態を載せさせて頂きます。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim SearchCells As Variant
Dim Possibility As Long

For Each SearchCells In Me.Range(Me.Cells(Target.Row, 1), Me.Cells(Target.Row, Target.Column))

If SearchCells.Value Like IsDate(SearchCells.Value) Then

Possibility = SearchCells.Columns

End If

Next

Cells(Target.Row, "Possibility").Copy
Destination:=Range("J3")

Cancel = True

End Sub

[Usirow]

Cells(Target.Row, "Possibility").Copy
Destination:=Range("J3")

を以下のようにしてください。

Cells(Target.Row, Possibility).Copy Destination:=Range("J3")
・"Possibility" → Possibility（ダブルクォーテーションを外す）
・改行しない

[matuemon]

ご回答ありがとうございます。変更してみたところ。「実行時エラー1004:アプリケーション定義またはオブジェクト定義エラーです。」というエラーが出てきました。

[matuemon]

その後、日付ではなく、アルファベットで試してみたところ、上手くいきました。日付についてはLike関数と日付の関係性をもう少し自身でも調べてみたいと思います。今まで長々と付き合って頂きありがとうございました。

Answer 2

Cells(Taarget.Row, Possibility.Column).Copy Destination:=Range("J3")

Target.Rowのtypoですね。エラー出たときはまずどの行で止まってるか確認するといいでしょう。質問時にもエラー行が分かってると回答が早くなりますので…（特にコード全体が長くなるとき）