Найти и выбрать даты

Question

Я хочу создать простой макрос, чтобы найти дату и выбрать все ячейки, которые содержат эту дату (у меня тогда есть другой рабочий макрос, который изменяет выбранные ячейки).Однако я не могу найти и выбрать для работы.

В данный момент код набирает первое «Jul-18», а затем выдает сообщение о несоответствии.

Любая помощь будет принята с благодарностью;

Sub FIND()

On Error GoTo nomatch

Cells.FIND(What:=Jul - 18, LookIn:=xlValues).Select

nomatch:
MsgBox ("Not Found")

End Sub

Answer 1

Вы должны быть в состоянии легко адаптировать его к вашим потребностям.

[! [Введите описание изображения здесь] [1]] [1]

Sub FindAndSelectAll()
    Dim str As String, c As Range, r As Range
    Dim strFind As String
    Dim rSearch As Range

    Set rSearch = ActiveSheet.Cells

    strFind = InputBox("Please enter search string")

    With rSearch
        Set c = .Find(strFind, LookIn:=xlValues)
        If Not c Is Nothing Then
            Set r = c
            str = c.Address
            Do
                Set r = Union(r, c)
                ActiveSheet.Range(c.Address).Activate
                Set c = .FindNext(c)

            Loop While Not c Is Nothing And c.Address <> str
        End If
        .Activate
        If Not r Is Nothing Then r.Select
    End With
End Sub