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  

Hola @Galactico, ¿has probado a extraer el texto de la etiqueta "a"? Y si ha sido así, ¿qué resultado has obtenido?

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!

hola Sergio. Gracias por tu respuesta. Pues algo así también he pensado. traducir las diferentes cantidades e ir cambiándolas en la macro saludos

Pues creo que si hay algo... aunque si ya lo hiciste, pues no estaría mal que lo compartas   Saludos!