Private Sub CommandButton1_Click()
Dim Celda As Range, x As Long
Application.ScreenUpdating = False
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
Range("K" & x) = ""
Set Celda = Sheets("Sheet2").Columns("A").Find(Range("A" & x), , , xlWhole)
If Not Celda Is Nothing Then Range("K" & x) = Celda.Offset(0, 1)
Next
End Sub
buenas noches, estoy trabajando en una macro para obtener datos web, de a poco he ido aprendiendo como poder obtener objetos desde las diferentes paginas pero ahora he llegado a un punto donde no puedo seguir avanzando, precisamente con lo siguiente
tengo este código de pagina fuente
<a href="www.google.com" data-original-title="" title="">
<span itemprop="category">Hola</span>
"Adios"
</a>
con el siguiente código htmlDeRespuesta.getElementsByTagName("span")(0).innerText puedo obtener el texto Hola, pero no he logrado dar con la solución para obtener el dato Adios
por favor agradecería mucho su apoyo y gracias por el espacio
saludos!