arrays - あるシートのセルを読み取り、別のシートで一致を検索して列に日付を追加するマクロ

Question

テキストの列を下に移動し、同じブック内の別のスプレッドシートで列の各項目を検索する Excel マクロを作成しようとしています。値が見つかったら、今日の日付を特定の列 (列 H など) に配置する必要があります。最初の部分を実行するコードと、2 番目の部分を実行する別のコードを見つけました。2つを組み合わせて機能させるためのコーディングの知識がありません。2 つのコードを以下に示します。

Sub From_sheet_make_array()

  Dim myarray As Variant
  Dim cells As Range
  Dim cl



      myarray = Range("a1:a10").Value

      Set cells = Worksheets("Sheet2").Columns(1).cells

      Set cl = cells.cells(1)
      Do
      If IsError(Application.Match(cl.Value, myarray, False)) Then
      Exit Sub
      Else:
            i = i + 1
      'This shows each item in column in messagebox
      'Need to pass this value to other code somehow
            MsgBox (cl.Value)

     End If

cl = cl.Offset(1, 0) を設定 IsEmpty(cl.Value) でない間ループ End Sub

Sub Searchlist()

Dim c As Range
With ActiveWorkbook.Sheets("Sheet1")
' This will search for whatever is in ""
' Somehow need to get cl.Value (myarray) in here
    Set c = .Columns("A").Find(What:="text", _
                               LookIn:=xlFormulas, LookAt:=xlPart, _
                               SearchOrder:=xlByRows, _
                               SearchDirection:=xlNext, MatchCase:=True)
             c.Offset(0, 8).Value = Date
End With
Exit Sub

サブ終了

誰かがそれらをつなぎ合わせたり、正しい方向に私を向けたりすることができれば、それは本当に私を助けてくれるでしょう. 私はこれに非常に慣れていないので、私は道を外れている可能性があります。提供されたヘルプに感謝します。