Sub Düğme1_Tıkla()
Range("d1").Value = ""
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "https://www.dmo.gov.tr/Arama?s=tansiyon%20cihaz%C4%B1"
Application.Wait Now + TimeSerial(0, 0, 6)
Range("d1").Value = ie.Document.getElementsByClassName("prices text-center")(0).innertext
ie.Quit
Set ie = Nothing
End Sub
Sayın @tarkanaykın alttaki kodu dener misin?
"Dünyayı fazla düşünme."