Переполнгение счетчика

[Palomnik1096]

Добрый день!

Смысл программы, открывается куча ОСВ (обороток) в них ищется контрагент и подсвечивается. Но при выполнении пишет ошибку (переполнение счетчика qwer), если изменить на тип ЛОНГ, то он вообще зависает, но при этом если выполнять программу построчно через Ф8, то все гуд работает.

Public Sub poisk2()

Dim asd As Integer, qwer As Integer, Client As String
Dim v As Workbook, asdf As Integer
asdf = Workbooks.Count
Client = UCase(InputBox("Введите название компании", "Название компании"))
    
Range("A10:C10").Select
Selection.UnMerge
     
     
For i = 1 To asdf
Workbooks(i).Activate
    
    With Range("A10")
             qwer = Range(.Offset(1, 0), .End(xlDown)).Rows.Count
            For asd = 1 To qwer
                If Left(.Offset(asd, 0), 2) = 62 Then
                    Exit For
                ElseIf Client = "" Then
                    Exit For
                Else
                qwertyu = .Offset(asd, 2)
                    If UCase(.Offset(asd, 2)) Like "*" & Client & "*" Then
                        .Offset(asd, 2).Interior.ColorIndex = 22
                    End If
                End If
            Next
    End With
   Next
End Sub

[Serge_Bliznykov]

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

. Но при выполнении пишет ошибку (переполнение счетчика qwer), если изменить на тип ЛОНГ, то он вообще зависает

рискну предположить, что где-то есть лист, на котором ОЧЕНЬ много строк.

для проверки попробуйте просто:

Dim qwer as Long
For i = 1 To asdf
    Workbooks(i).Activate
    
    With Range("A10")
            qwer = Range(.Offset(1, 0), .End(xlDown)).Rows.Count
            MsgBox "в книге " & CStr(i) & " обрабатываемых строк = " & CStr(qwer)
    End With
Next i

p.s. а ещё, если в макросе используется .Select . Activate - то, в 99.9% случаев это означает, что макрос написан крайне неэффективно...

[Palomnik1096]

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

рискну предположить, что где-то есть лист, на котором ОЧЕНЬ много строк.

Проверял листы, больше 5000 строк нигде не было, то есть тип Интегер соблюдается

p.s. а ещё, если в макросе используется .Select . Activate - то, в 99.9% случаев это означает, что макрос написан крайне неэффективно...

Здесь писалось для себя, поэтому через Селект

[Palomnik1096]

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

рискну предположить, что где-то есть лист, на котором ОЧЕНЬ много строк.

Попробовал макрос на подсчет строк, получается первая книга считает 1048566 строк! А почему так? Хотя активных всего 803! Не совсем понимаю

По остальным все гуд, считает как есть... Если делать через Ф8, то считает, как положено...

[Serge_Bliznykov]

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

Попробовал макрос на подсчет строк, получается первая книга считает 1048566 строк!

подождите кого-то, кто разбирается в VBA.
я, например, не понимаю, что Вы в цикле делаете.

а вообще, думаю, что для решения вашей проблемы полезно было
1) объяснить, какую задачу Вы решаете, что именно Вы этим кодом пытаетесь найти
2) выложить на форум архив с проблемной книгой (если там информация не для посторонних, то заменить все значимые данные на случайные, чтобы скрыть их).

впрочем, возможно, что решение будет предложено и без файла.

[Aleksandr H.]

на листе что-то косячно было вставлено от и столько строк получилось

попробуйте такой qwer

qwer = Cells(Rows.Count, 1).End(xlUp).Row

[Palomnik1096]

[QUOTE=Serge_Bliznykov;1688216]подождите кого-то, кто разбирается в VBA.
я, например, не понимаю, что Вы в цикле делаете.

а вообще, думаю, что для решения вашей проблемы полезно было
[QUOTE]

1) объяснить, какую задачу Вы решаете, что именно Вы этим кодом пытаетесь найти

Этим кодом просматривается ОСВшка на предмет наличия компании которая нужна

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

К сожалению не могу, коммерческая тайна

впрочем, возможно, что решение будет предложено и без файла.

Все равно спасибо за участие

[Palomnik1096]

Сообщение от Aleksandr H.

на листе что-то косячно было вставлено от и столько строк получилось

попробуйте такой qwer

qwer = Cells(Rows.Count, 1).End(xlUp).Row

Спасибо, все получилось!!!

Единственное можно не большой коммет!

Cells(Rows.Count, 1).End(xlUp).Row - это я так понимаю идет подсчет всех ячеек со смещением 1, только не как у меня сверху вниз, а снизу вверх?

[Aleksandr H.]

Cells(Rows.Count, 1).End(xlUp).Row

Про себя, ету запись я читаю так:
- перейти в самую последнюю, из возможных, ячеек столбца 1
- сместить вверх, пока не найдешь непустую ячейку
- дай мне номер строки етой непустой ячейки ===>> количество использованных строк в столбце 1

[Palomnik1096]

Спасибо!