Цикл с переходом на ячейку.

[bboyRALF]

Доброго времени форумчане!!!))) Нужна ваша помощь в следующем.
Реализован цикл:

PHP код:

                Set ra = GetQueryRange(URL$, "1")
                 ' ïåðåáèðàÿ ÿ÷åéêè òàáëèöû-ðåçóëüòàòà, âûâîäèì ñïèñîê òåì â îêíî Immediate
                 'If Not rz Is Nothing Then
             Set Rng = Rng.Columns(2).Find("23000000000 Êðàñíîäàðñêèé êðàé", , xlValues, xlPart, xlWhole)
                 If Not Rng Then
                
                 End If
                          End If
                 Next i
                 
              
                 'If ra.Columns(1) WhatFind("*ÈÍÍ*",,xlValues,xlPart,xlWhole) Then do
                 
                 

Set ra = GetQueryRange(URL$, "1")
                 ' ïåðåáèðàÿ ÿ÷åéêè òàáëèöû-ðåçóëüòàòà, âûâîäèì ñïèñîê òåì â îêíî Immediate
                 'If Not rz Is Nothing Then
                 'Find ("23000000000")
                 'If Not Find Then
                 
                 If Not ra Is Nothing Then
    Set c = ra.Columns(2).Find("*23000000000 Êðàñíîäàðñêèé êðàé*", , xlValues, xlWhole, xlPart)
   'If Not (c Is Nothing) Then Debug.Print c.Offset(, 1).Value
    If Not c Is Nothing Then
      'n = n + 1: Debug.Print "Òåìà ¹" & n, oCell.Text
               ' Debug.Print c & c.Offset(, 1)
                ' '.outprint
                 
               Worksheets("Ëèñò3").Cells(1 + i, 3) = c.Cells(1)
               'Worksheets("Ëèñò3").Range("B1").Cells(1 + i) = c & c.Offset(, 1)
               '& Right(ThisWorkbook.Sheets("Ëèñò3", "B").Cells(i, 1), 19)
               ' With Sheets("Ëèñò3").Cells(1 + i, "B")

End If

'End If

'End If

   'End If
   
               'End With
     'Else: i = i + 1
                   
     
     Next i
 'Loop
    End If
    End With
    
 End Sub 


все в принцыпе работает, но задался вопросом в строке
Set Rng = Rng.Columns(2).Find("23000000000 Êðàñíîäàðñêèé êðàé", , xlValues, xlPart, xlWhole)

Не могу реализовать цикл чтобы если этого значения "("23000000000 Êðàñíîäàðñêèé êðàé") нет, то цикл переходит на след ячейку в столбце А.
Заранее очень благодарен.

[DiemonStar]

делается примерно так:

Do
  TextToFind = Значение из нужной ячейки ' Например, "23000000000 Êðàñíîäàðñêèé êðàé"
  Set Rng = Rng.Columns(2).Find( TextToFind , , xlValues, xlPart, xlWhole)
  ....
  следующее значение для поиска
Loop Until Not Rng is Nothing or (Закончились значения для поиска)

[bboyRALF]

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

делается примерно так:

Do
  TextToFind = Значение из нужной ячейки ' Например, "23000000000 Êðàñíîäàðñêèé êðàé"
  Set Rng = Rng.Columns(2).Find( TextToFind , , xlValues, xlPart, xlWhole)
  ....
  следующее значение для поиска
Loop Until Not Rng is Nothing or (Закончились значения для поиска)

Спасибо,
а в

PHP код:

Loop Until Not Rng is Nothing or (Закончились значения для поиска) 


что имеется ввиду (закончились значения поиска) ?

[bboyRALF]

PHP код:

                 Set ra = GetQueryRange(URL$, "1")
                 ' перебирая ячейки таблицы-результата, выводим список тем в окно Immediate
           
                    Do
                 TextToFind = "23000000000 Краснодарский край"

             Set Rng = Rng.Columns(2).Find(TextToFind, , xlValues, xlPart, xlWhole)
       
                 'If ra.Columns(1) WhatFind("*ИНН*",,xlValues,xlPart,xlWhole) Then do
         
                 If Not ra Is Nothing Then
    Set c = ra.Columns(1).Find("ИНН*", , xlValues, xlWhole)
   If Not (c Is Nothing) Then Debug.Print c.Offset(, 1).Value
  '  If Not c Is Nothing Then
    '  n = n + 1: Debug.Print "Тема №" & n, oCell.Text
       '          Debug.Print c & c.Offset(, 1)
                 '.outprint
                 
               Worksheets("Лист3").Cells(1 + i, 2) = c & c.Offset(, 1)
               'Worksheets("Лист3").Range("B1").Cells(1 + i) = c & c.Offset(, 1)
               '& Right(ThisWorkbook.Sheets("Лист3", "B").Cells(i, 1), 19)
               ' With Sheets("Лист3").Cells(1 + i, "B")
 End If
         '.Value = ra.Range("J2").c.Offset(, 1)
        'Worksheets("Лист3").Cells(1, "B") = "ИНН"
     ' End If
         'MsgBox c & c.Offset(, 1)
           'End With
           Set rak = GetQueryRange(URL$, "1")
 If Not rak Is Nothing Then
  Set c = rak.Columns(1).Find("КПП*", , xlValues, xlWhole)
   If Not (c Is Nothing) Then Debug.Print c.Offset(, 1).Value
    'If Not c Is Nothing Then
     ' n = n + 1: Debug.Print "Тема №" & n, oCell.Text
          '       Debug.Print c & c.Offset(, 1)
                 '.outprint
                 
               Worksheets("Лист3").Cells(1 + i, 3) = c & c.Offset(, 1)
'End If
End If
         

End If

    
                 End If
                   'End If
   
    
 Loop Until Not Rng Is Nothing Or "23000000000 Краснодарский край"
  Next i
    'End With
    
 End Sub 


Вставил в код теперь пишет что луп без ду либо next without for...

Где я ошибся? идентифицировать самостоятельно не получается...

[VictorM]

Видимо предоставленный код неполный, т.к. у Вас не только

next without for

а еще и End If лишние, и Next i "не при деле"
так что разобраться не получается, пробуйте в редакторе, перед выполнением кода понажимать кнопулечку Debug

[bboyRALF]

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

Видимо предоставленный код неполный, т.к. у Вас не только
а еще и End If лишние, и Next i "не при деле"
так что разобраться не получается, пробуйте в редакторе, перед выполнением кода понажимать кнопулечку Debug

Разобрался))) только условие теперь не выполняется...
и в строчке.. Loop Until Not Rng Is Nothing Or не знаю что указывать после or

ниже исправленный код

PHP код:

 Set Rng = GetQueryRange(URL$, "1")
                 ' перебирая ячейки таблицы-результата, выводим список тем в окно Immediate
           
                    Do
                

             Set c = Rng.Columns(2).Find("23000000000 Краснодарский край", , xlValues, xlPart, xlWhole)
       
                 'If ra.Columns(1) WhatFind("*ИНН*",,xlValues,xlPart,xlWhole) Then do
            Set ra = GetQueryRange(URL$, "1")
                 If Not ra Is Nothing Then
             Set c = ra.Columns(1).Find("ИНН*", , xlValues, xlWhole)
             If Not (c Is Nothing) Then Debug.Print c.Offset(, 1).Value

                 
                     Worksheets("Лист3").Cells(1 + i, 2) = c & c.Offset(, 1)
             
    End If
     
        
           Set rak = GetQueryRange(URL$, "1")
            If Not rak Is Nothing Then
            Set c = rak.Columns(1).Find("КПП*", , xlValues, xlWhole)
              If Not (c Is Nothing) Then Debug.Print c.Offset(, 1).Value
 
                 
               Worksheets("Лист3").Cells(1 + i, 3) = c & c.Offset(, 1)
end if
    
             Loop Until Not Rng Is Nothing Or'что указывать чтобы вернуть...  
             
  
    
   End If
   Next i
   End With
 End Sub 


[bboyRALF]

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

Видимо предоставленный код неполный, т.к. у Вас не только
а еще и End If лишние, и Next i "не при деле"
так что разобраться не получается, пробуйте в редакторе, перед выполнением кода понажимать кнопулечку Debug

весь код предоставить не могу, т.к. ограничение на текст сообщения...

[VictorM]

т.к. ограничение на текст сообщения...

ну так приложите пример Вашего файла вместе с кодом)
Сразу надо было так делать.
Файлик архивируете и прикрепляете к своему сообщению.
(Нажмите "Расширенный режим" внизу окна ввода быстрого ответа)

[bboyRALF]

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

ну так приложите пример Вашего файла вместе с кодом)
Сразу надо было так делать.
Файлик архивируете и прикрепляете к своему сообщению.
(Нажмите "Расширенный режим" внизу окна ввода быстрого ответа)

Сразу не догодался))) во вложении

[bboyRALF]

сделал условие, но не работает (
Do

Set c = Rng.Columns(2).Find("23000000000 Краснодарский край", , xlValues, xlWhole)
If Not Rng Then

Exit Do
End If