Jump to content

sretamalb

Members
  • Content Count

    193
  • Joined

  • Last visited

About sretamalb

  • Rank
    Advanced Member

Recent Profile Visitors

286 profile views
  1. @José_Santos está súper bueno el archivo, pero existe alguna forma que yo pueda ingresar por ejemplo los SKU que quiero que se descargue la información? Por ejemplo: que en la columna A escriba el código del producto y en la B me arroje la descripción, en la C precio con descuento 449e, en la D 549e y en la E el -18%. Se puede? Lo ideal sería que uno pudiera buscar cualquier SKU en la página no solamente de tv Ojalá me puedas ayudar. Gracias!
  2. @José_Santos Muchas gracias por tu ayuda, lo revisaré y te comento. Saludos
  3. @avalencia si elimino la fila on error resume next me arroja el siguiente error: @Gerson Pineda si sacó coloco después del ciclo la variable precio1= empty no me arroja ningún resultado en la hoja de cálculo. Como se podrá solucionar? Muchas Gracias por la ayuda de ambos.
  4. @avalencia el problema es que si no le coloco “on error resume next” la macro me queda con error. Queria tratar de colocar algo como la formular de Excel si.error(), cosa que si no encuentra el código buscado en la web me lo dejé en blanco. Pero intente con la función “IsError” pero no funciono. Me recomiendas otra forma? muchas gracias.
  5. Buenas tardes, Estoy tratando de armar un archivo donde al escribir los códigos de ciertos productos este los busque en páginas web y me traiga los precios asociados, la macro funciona ahora como esta pero el problema ocurre cuando un código no lo encuentra en la página me escribe el precio del código anterior. Alguien me puede ayudar a que si no encuentra ese código en la página el valor quede en blanco? Este es el código que estoy usando. Sub test() Dim IE As New InternetExplorer Dim precio1, precio2 As Variant Dim doc As HTMLDocument Range("B2:C1000").Clear Cantfila = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row For i = 2 To Cantfila IE.Visible = False IE.navigate "https://www.elcorteingles.es/electronica/ofertas-electronica/tv/" & Range("A" & i).Text & "/" Range("B6").Text Do DoEvents Loop Until IE.readyState = READYSTATE_COMPLETE Set doc = IE.document On Error Resume Next precio1 = doc.getElementsByClassName("fb-price")(0).innerText If Right(precio1, 1) = ")" Then largo = Len(precio1) Range("B" & i) = Mid(precio1, 1, largo - 9) Else Range("B" & i) = precio1 End If precio2 = doc.getElementsByClassName("fb-price")(1).innerText If Mid(precio2, 1, 1) = "A" Then Range("C" & i) = "" Else Range("C" & i) = precio2 End If Next i MsgBox "Proceso Terminado" IE.Quit End Sub Gracias!
  6. @avalencia la rueda del mouse está buena. No sé porque no funcionará, hice todo lo que me dijiste y aún así no puedo. En la hoja inicio tengo el siguiente código: En la hoja de Inicio: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheets("Inicio").Cells.EntireRow.Hidden = False Sheets("Inicio").Cells.EntireColumn.Hidden = False End Sub En la hoja de "Reporte" y "Reporte-Boleta": Private Sub Worksheet_Activate() Application.ScreenUpdating = False Sheets("Reporte").Activate ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh End Sub Y no corre la rueda =(
  7. Hola @JSDJSD gracias por tu respuesta, he seguido al pie de la letra lo escrito por @avalencia pero aún no así no logro que funcione en mi computador y la verdad que no se que puede ser. De verdad que no entiendo porque en mi computador no funciona bajar o subir las lineas con el raton se queda como pegado y tengo que usar la barra lateral. Me parece extraño que funcione a la perfección en tu computador y en el mio no, que podrá ser? Existe algún otro código donde se pueda revisar? Gracias por tus comentarios
  8. @avalencia Yo mismo deje inmovilizadas las primeras 10 filas porque son los títulos por lo tanto necesito que quede arriba, el problema ocurre cuando exista más información y tenga que bajar moviendo la rueda del mouse (scroll) pero no me deja, solo tengo que bajar con la barra que está al lado derecho. Porque no se puede mover la rueda del mouse? Agregué el código que me dijiste en el comienzo pero aún así no hay cambios: En la hoja de Inicio: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheets("Inicio").Cells.EntireRow.Hidden = False Sheets("Inicio").Cells.EntireColumn.Hidden = False End Sub
  9. @avalencia Aún no funciona de verdad nosé que puede ser, tengo lo que me dices pero aún no me permite bajar la rueda del mouse en la hoja de los reportes. Mira tengo lo siguiente: En la hoja de Inicio: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheets("Inicio").Cells.EntireRow.Hidden = False Sheets("Inicio").Cells.EntireColumn.Hidden = False End Sub En la hoja de "Reporte" y "Reporte-Boleta": Private Sub Worksheet_Activate() Application.ScreenUpdating = False Sheets("Reporte").Activate ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh Cells.EntireRow.Hidden = False Cells.EntireColumn.Hidden = False End Sub Porque no funciona mover la rueda? Que estoy haciendo mal? PRUEBA.xlsm
  10. @avalencia no funciona. Tengo el siguiente código pero no funciona la rueda del mouse, porque será? Private Sub Worksheet_Activate() Application.ScreenUpdating = False Sheets("Reporte-Boleta").Activate ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh Cells.EntireRow.Hidden = False Cells.EntireColumn.Hidden = False End Sub
  11. Hola @avalencia lo agregue a mi código y no funciona, sigo sin poder mover el scrooll del mouse cuando abro los reportes. Es posible que me puedas ayudar con el archivo adjunto, agregando el código? Muchas Gracias PRUEBA.xlsm
  12. @avalencia no me funciona lo que dices pruebes probar en el adjunto que subí? gracias
×
×
  • Create New...

Important Information

Privacy Policy