Поиск по нажатию Энтер

[valerij]

Сообщение от EducatedFool

Ты объясни, что требуется-то...
Какое значение, куда выводить, когда выводить, да и, собственно, зачем...
Валера, ну зачем ты лишний раз заморачиваешься?
Работает, и ладно.
Надо, чтобы искало во всех днях - ставь 30.
Надо, чтобы в поиске участвовали данные только за 9 дней - ставь 8.

Посмотри мой скрин в #13, ты поймешь
Да дело в том, что ставлю вместо 30, восемь и находит во все 31 днях, а семерку в 29 днях

[EducatedFool]

Вот так будет правильно искать:

Sub МакросДляБабушки()
    Application.OnKey " ", "ПоискЗначенияНаДругихЛистах"
End Sub

Sub ПоискЗначенияНаДругихЛистах()
    If ActiveCell.Parent.Index <> 1 Then Exit Sub
    If ActiveCell.Column <> 1 Then Exit Sub
    a = Trim$(ActiveCell): If Not a Like "########" Then Exit Sub

    Dim res As Range, ra As Range, u As Range
    For i = 1 To 13
        Set ra = ThisWorkbook.Worksheets(i).[K34:K39]: Set u = ra
        For j = 1 To 30: Set u = Union(u, ra.Offset(j * 51)): Next j

        Set res = u.Find(a, u.Cells(1))
        If Not res Is Nothing Then Application.Goto res: Exit For
    Next
End Sub

Здесь уж точно надо ставить 30.
В прежнем вариант была ошибка.

[valerij]

Сообщение от EducatedFool

В прежнем вариант была ошибка.

Но он, вариант, великолепно работает, мгновенно, классная ошибка, сей час проверю!

Да, класс!!

А с центром ты понял?

[valerij]

Игорь, вот подправил скрин, все показал!
Может еще так:
У меня на листе видны 24 строки(позиции), так я домагаюсь, что бы найденный, ошибочный результат, выводился в 12 позицию, т. е. это и будет центр экрана.
Может ролик снять?
Конечно, если для это, целый макрос надо писать, тогда фиг с ним, с центром.

[cent]

Сообщение от EducatedFool

[OFFTOP]
А что Вы скажете по этому поводу?

скриншот 1
скриншот 2

Никогда не говорите "никогда"
[\OFFTOP]

Игорь, с таким подходом можно даже такое утверждать

[valerij]

Игорь!
Вот так получилось с Центром, все Супер!

Sub ПоискЗначенияНаДругихЛистах()
    Application.EnableEvents = False
        If ActiveCell.Parent.Index <> 14 Then Exit Sub
        If ActiveCell.Column <> 1 Then Exit Sub
        a = Trim$(ActiveCell): If Not a Like "########" Then Exit Sub
        Dim res As Range, ra As Range, u As Range, v As Long
        For i = 1 To 13
            Set ra = ThisWorkbook.Worksheets(i).[K34:K39]: Set u = ra
            For j = 1 To 30: Set u = Union(u, ra.Offset(j * 51)): Next j
            Set res = u.Find(a, u.Cells(1))
            If Not res Is Nothing Then
            v = res.Row
            Application.Goto Reference:=res, Scroll:=True
            ActiveWindow.ScrollRow = v - 11: ActiveWindow.ScrollColumn = 1
            Exit For
            End If
        Next
    Application.EnableEvents = True
End Sub

Передаю Огромную Благодарность от моей Бабушки!
Тебе и SAS888

З. Ы.
Это избавило ее крутить колесико(ржу не могу, когда я пытался показать, как колесико надо крутить, это надо видеть)