ie.navigate hk.

[Baggwell]

Merhabalar,

Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Row = Range("site").Row And _
 Target.Column = Range("site").Column Then
  
 Set IE = CreateObject("InternetExplorer.Application")
     IE.Visible = False
     IE.navigate "http://www.n11.com/arama?q=" & Range("site").Value & "&pg=[COLOR="Red"]1[/COLOR]"
          
 Do
 DoEvents
 Loop Until IE.readyState = READYSTATE_COMPLETE

.... kodlar devam ediyor
End If

örneğin: http://www.n11.com/arama?q=oyuncak
yukarıdaki kodlarda ilgili sitenin 1.sayfasını ziyaret ediyor. Sırasıyla 2-10 arasındaki sayfalara geçişi nasıl sağlayabilirim ?

1.sayfayı ziyaret et kodları çalıştır,
2.sayfayı ziyaret et kodları çalıştır şeklinde gitmek istiyorum.

Saygılar

 

[askm]

for i=1 to 10
IE.navigate "http://www.n11.com/arama?q=" & Range("site").Value & "&pg=" & i
next şeklinde yaparsanız ilgili sayfaları açar.
Örnek çalışmanızı eklerseniz onun üzerinden yardımcı olalım.

 

[Baggwell]

Hallettim teşekkür ederim