Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
[ Закрыто] VBA Цикл(ы) в цикле(ах) и несколько (непростых) условий, массив или словарь? - чтобы "считать по-разному"
 
Спасибо Igor, вопрос в следующем друзья, мне необходимо найти договора в ячейке в Worksheets("Лист2").Cells(i, 5)  написанных через разделитель точка с запятой "122-33;123-542;52-333",  искомое значение  Worksheets("Лист1").Cells(j, 1), ("52-333") . Цикл должен был пройтись по Листу 2 и сравнить с искомым в Лист1, но что то не так пошло. Прошу подсказать, возможно есть другие варианты решения задачи.


InStr(1, "122-33;123-542;52-333", "52-333", vbBinaryCompare) > 0 Then  
[ Закрыто] VBA Цикл(ы) в цикле(ах) и несколько (непростых) условий, массив или словарь? - чтобы "считать по-разному"
 
Доброго дня, друзья! Подскажите пожалуйста, как сделать,так чтобы программа проходила по внешнему циклу, при проверке вхождения строки в подстроку ? Она не видит внешний цикл, а только внутренний.

Sub test()


Dim i As Long
Dim j As Long

      For j = 1 To 14
             For i = 1 To 14
           
            If InStr(1, Worksheets("Лист1").Cells(j, 1), Worksheets("Лист2").Cells(i, 5), vbBinaryCompare) > 0 Then
               
            Worksheets("Лист2").Cells(i, 6) = "Код договора есть"
                           
            End If
       
           Next i
                 
       Next j
End Sub
Страницы: 1
Наверх