Проверка колличества знаков в №

[valerij]

Раньше у меня в № накладной, всегда было только 8 цифр
EducatedFool написал мне макрос, который находил № накладных с одного листа(где все № накладных собраны), по листам книги....

Sub ПоискЗначенияНаДругихЛистах()
    Application.EnableEvents = False
        If ActiveCell.Parent.Index <> 8 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 7
            Set ra = ThisWorkbook.Worksheets(i).[K27:K32]: Set u = ra
            For j = 1 To 31: Set u = Union(u, ra.Offset(j * 44)): Next j
            Set res = u.Find(a, u.Cells(1))
            If Not res Is Nothing Then
        Application.Goto Reference:=res, Scroll:=True
        ActiveWindow.ScrollRow = res.Row - 11: ActiveWindow.ScrollColumn = 1
        Exit For
    End If
        Next
    Application.EnableEvents = True
End Sub

Теперь, количество цифр в №, стало от двух, до пяти, может со временем будет и больше...
Как изменить макрос, что бы он работал?
Если я уберу строку
If Not a Like "########" Then Exit Sub
то ищет не правильно, ищу число 611, находит 16116

[doober]

Сам номер как выглядит
№223 или 223

[doober]

Либо замени If ActiveCell.Column <> 1 Then Exit Sub
a = Trim$(ActiveCell): If Not a Like "########" на переменную ,и определяй ее в замисимости от количества знаков

Для 611
Col_ZN="###"
If ActiveCell.Column <> 1 Then Exit Sub
a = Trim$(ActiveCell): If Not a Like & Col_ZN

[valerij]

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

Сам номер как выглядит
№223 или 223

только цифры, 233
тут ошибка
If Not a Like & Col_ZN

[EducatedFool]

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

[doober]

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

только цифры, 233
тут ошибка
If Not a Like & Col_ZN

Игорь грамотное решение нашел.

Проверил свое ,все пашет как надо,ошибку не дает

[valerij]

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

Игорь грамотное решение нашел.

Все, СУПЕР!!!!
СПАСИБО!!!!

Проверил свое ,все пашет как надо,ошибку не дает

Не наю, смотри скрин!!!

[doober]

Признаю тормознул
If Not a Like Col_ZN Then так надо