Web sitesinden veri çekerken makroda hata

[eronyat]

Merhaba.

Bir kaynaktaki makro bilgilerini takip ederek bir deneme yapmak istedim. Fakat bir hata ile karşılaşıyorum. Hatanın nerede olduğunu bulamıyorum. Kontrol eder misiniz?

Yapmak istediğim şey, sitedeki bilgileri çekmek.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = Range("Kelime").Row And _
Target.Column = Range("Kelime").Column Then
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.navigate "http://www.hepsiburada.com/ara?q=" & Range("Kelime").Value
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim doc As HTMLDocument
Set doc = IE.document
Dim sDD As String
Sonuc = Trim(doc.getElementsByTagName("h3")(0).innerText)
MsgBox Sonuc
Range("Sonuc1").Value = doc.getElementsByTagName("h3")(0).innerText
Range("Fiyat1").Value = doc.getElementsByClassName("price product-price")(0).innerText
Columns.AutoFit
End If
End Sub

VBA ayarlarından references seçeneklerini etkinleştirdim.

Teşekkür ederim.

 

[Haluk]

Aşağıdaki satırı eskisiyle değiştirin ....

IE.navigate "http://www.hepsiburada.com/ara?q=" & Range("Kelime").Value

Sayfada "Fiyat1" diye bir alan tanımlaması yapmayı da unutmayın ...

.

 

[eronyat]

Haluk Bey ilginiz için teşekkür ederim. Denedim ama yapamadım.
Düzeltilmiş dosyayı ekliyorum:

http://dosya.co/qdl7v0363yki/Kitap1.xlsm.html

 

[halit3]

Burası neyi ifade ediyor
"kelime" diye hücre varmı ?

Range("Kelime")

 

[ÖmerBey]

Burası neyi ifade ediyor
"kelime" diye hücre varmı ?

Range("Kelime")

Ad tanımlama yapılmışsa...

 

[halit3]

Şunu bir dene

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = Range("A2").Row And _
Target.Column = Range("A2").Column Then
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.hepsiburada.com/ara?q=" & Range("A2").Value
Do While IE.Busy: DoEvents: Loop
Do While IE.readyState <> 4: DoEvents: Loop
Sonuc = Trim(IE.document.getElementsByTagName("h3")(0).innerText)
MsgBox Sonuc
Range("B2").Value = IE.document.getElementsByTagName("h3")(0).innerText
Range("C2").Value = IE.document.getElementsByClassName("price product-price")(0).innerText
IE.Quit: Set IE = Nothing
Columns.AutoFit
End If
End Sub

 

[bluejays91]

hocam denedim olmadı.yardımcı olma imkanınız varmı acaba.Arkadaşında istedigi tam olarak bu

Şunu bir dene

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = Range("A2").Row And _
Target.Column = Range("A2").Column Then
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.hepsiburada.com/ara?q=" & Range("A2").Value
Do While IE.Busy: DoEvents: Loop
Do While IE.readyState <> 4: DoEvents: Loop
Sonuc = Trim(IE.document.getElementsByTagName("h3")(0).innerText)
MsgBox Sonuc
Range("B2").Value = IE.document.getElementsByTagName("h3")(0).innerText
Range("C2").Value = IE.document.getElementsByClassName("price product-price")(0).innerText
IE.Quit: Set IE = Nothing
Columns.AutoFit
End If
End Sub