Виноват не find. Вы ищете средствами excel (find). У вас в ячейке стоит формула, как таковой искомой даты нет там. Попробуйте через поиск в самом excel найти Вашу дату - не получается.
| Код |
|---|
Sub ZapolnitDanie2a()
Dim rngBase As Range
For Each rngBase In Range("A4:G4")
If rngBase.Value = Range("s6").Value Then
rngBase.Select
Exit Sub
End If
Next rngBase
End Sub |
