Jump to content

Galactico

Members
  • Content Count

    34
  • Joined

  • Last visited

About Galactico

  • Rank
    Member

Converted

  • Campos
    ,

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. buenas tardes, estoy trabajando con la siguiente macro, estoy aprendiendo a usar doble for, pero aun no logro ejecutarla como quiero, básicamente necesito que para un valor de y, utilice un valor único de x (que sea creciente en 1 unidad y no se vuelva a repetir en el siguiente valor de y) al ejecutar la macro paso a paso, para un valor y, me toma todos los valores de x en una misma casilla y al final solo me muestra el ultimo valor x, espero que se pueda entender, en el archivo adjunto, esta la macro con los datos y abajo esta a lo que quiero llegar Sub Prueba1() Dim x As Integer, y As Integer For y = 1 To 10 If Not (Cells(y, 4)) Like "Hola" Then For x = 1 To 10 On Error Resume Next Cells(y, 8).Value = Range("e" & CStr(x)) Next End If Next End Sub muchas gracias Prueba1.xlsm
  2. Muchas gracias, me ha ayudado mucho, no es posible usar las variables type o value para lograr encontrar el botón? Gracias, le daré un vistazo
  3. Muchísimas gracias, conseguí lo que quería a la perfección con el código que nos compartió, una ultima consulta para terminar con el proyecto que estoy realizando tengo que hacer click en un botón que tiene la siguiente forma, donde el boton se llama Go <span class="block labeledBlock"> <span class="lb_Label">&nbsp;</span> <br> <span class="lb_Content"> <input type="submit" value="Go"> </span> </span> estoy tratando de clickearlo con el siguiente linea de código .Document.getElementsByName("lb_Content")(0).hasAttribute("type").hasAttribute("value").Click pero no he dado con la solución, he probado de varias formas, también e intentado con GetElementsByTagName y GetElementsByName, pero nada aun, agradecería mucho una mano, necesito si o si agregar algun atributo ya que la pagina que estoy viendo tiene varias clases que se llama "lb_Content" saludos.
  4. muchas gracias por tu respuesta, me salio duda, que pasa si quiero copiar en una casilla de excel, el nombre del ID? en este caso, para dejar en la celda d4 como texto el SIvCob o el gNO89b? o específicamente necesito, que me traiga a una celda de excel el nombre de la id para usarlo después <table class="MKMTable wantsTable MKMSortable"> <thead> <tr>…<tr> </thead> <tbody> <tr> <td class="centered"> <input type="checkbox" name="a_WantedCards[5e0ba7f39565560cc15d296b]" class="massEditCB"> </td> <td class="centered"> entonces lo que necesito es que me copie como texto en una casilla de excel el nombre "a_WantedCards[5e0ba7f39565560cc15d296b]" , en este momento estoy tratando de obtener ese dato, pero no tengo resultados, seria posible realizarlo? muchas gracias gracias por su respuesta, que otro objeto utiliza? saludos
  5. buenas tardes, tengo el siguiente código para navegar por paginas web, pero navega en segundo plano, que debo agregar al código para que se pueda abrir y visualizar la pagina que abre la macro? Sub testnavegar() Dim htmlDeRespuesta As Object Set htmlDeRespuesta = CreateObject("htmlFile") With CreateObject("msxml2.xmlhttp") .Open "Get", "https://www.google.cl/", False .send htmlDeRespuesta.body.innerHTML = .responseText End With On Error Resume Next Range("d4").Value = htmlDeRespuesta.getElementsByid("gNO89b")(0).innerText On Error GoTo 0 End Sub muchas gracias
  6. Buenas, estoy tratando de automatizar un carro de compras para armarlo con macro, hasta el momento puedo abrir una web, seleccionar algún item por posición en el codigo fuente y agregarlo al carro, se que voy bien encaminado, Sub test() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Top = 0 .Left = 0 .height = 1000 .Width = 1050 .Visible = True .Navigate "https://store.channelfireball.com/catalog/magic_singles-saga_block-urzas_saga/duress/17412" Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop .Document.getElementsByClassName("add-to-cart-form")(0).getAttribute("NM-Mint, English")(0).getElementsByClassName("qty")(0).Value = "3" .Document.getElementsByClassName("utility-button add-to-cart")(0).getAttribute("NM-Mint, English")(0).Click End With End Sub pero no logro dar con el resultado que quiero. en el código, si elimino la parte ".getAttribute("NM-Mint, English")(0)" la macro se ejecuta utilizando la posición del botón en el código fuente, puede rellenar el campo de cantidad y apretar el botón para agregar al carro, pero necesito realizar un pequeño filtro por el texto que contiene el elemento (no utilizar la posición), en este caso "NM-Mint, English" o "Slightly Played, English," en algunos casos, el orden de estos varia, dependiendo de cada articulo que este mirando, por lo que no puedo utilizar posición, debo realizar algún filtro, agradecería mucho su ayuda. saludos
  7. @Antoni muchísimas gracias, funciono a la perfección. saludos
  8. Hola @Leopoldo Blancas gracias por tu respuesta, idealmente tengo que lograr realizar los reemplazos, sin cambiar el formato de la celda, si lo hago, solo se cambia el guion por un punto de forma visible, ya que si copio el valor de la celda, esta mantendrá los guiones saludos
  9. hola, estoy tratando de realizar reemplazos, todo bien hasta que estoy tratando de reemplazar una celda que corresponde a una fecha, tengo que cambiar el "-" por "." pero no logro realizarlo, puedo realizar cualquier cambio de otro texto, incluso en esas mismas casillas. agradecería cualquier tipo de ayuda. gracias Book1.xlsm
  10. Hola José_Santos gracias por tu respuesta que método me recomendarías para comenzar a incursionar en esto del web scrapping? por elmomento solo se utilizar lo que estoy mostrando. muchas gracias
  11. entiendo, pero como es un intranet, solo puedo abrir la web si estoy conectado al internet de mi empresa, pero tengo una situación idéntica buscando en cualquier web, por ejemplo Lentes de Sol como deberia utilizar el getelements, para hacer click en un color u otro en esos lentes de sol sin utilizar una posición numerica? muchas gracias nuevamente por tu ayuda
  12. hola, leí lo que sale en el blog, pero solo pude llegar a esto para reducir el campo de búsqueda .Document.getElementsByClassName("add-to-cart-form")(0).getElementsByClassName("qty")(0).Value = "1" no me resulta agregar mas cosas quedo atento, gracias por tu ayuda
  13. Hola! muchas gracias, funciono a la perfección. tengo una consulta adicional, para tratar de hacer funcionar la macro que quiero utilizar, en la parte .getElementsByName("q" )(0) como podría cambiar el valor (0), por una característica en la linea de código y no buscar por posición?. en especifico, necesito trabajar con el siguiente código: <form class="solicitar" data-vid="309827" data-name="HojaSeguridad" data-id="11968" data-variant="Rojo"> <div class="product-price-qty"> <span class="regular price">$1.99</span> </div> <div class="qty-submit"> <input class="qty" max="5" name="qty" size="1" tabindex="1" type="number" value="1"> <input class="utility-button add-to-cart" name="commit" type="submit" value=""> </div> </form> en la macro actualmente utilizo la siguiente linea para hacer click en el botón. .Document.getElementsByClassName("utility-button add-to-cart")(0).Click pero en este caso necesito filtrar por el color rojo (data-variant="Rojo"), ya que en la pagina donde quiero utilizar la macro (es una pagina de intranet de mi empresa para solicitar materiales) para un mismo material, me aparecen varios botones iguales, que solo difieren en el color del material a solicitar, he intentado de varias formas, pero he podido dar con algo que resulte. espero se entienda lo que quiero realizar y agradecería nuevamente su ayuda. saludos.
  14. Hola, como estan? estoy tratando de utilizar una macro para realizar búsquedas en internet (google específicamente), pero no logro dar con el texto del código fuente para insertarlo en la linea de código. agradecería mucho que me dieran una mano, gracias Sub LoginGOOGLE() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Top = 0 .Left = 0 .Height = 1000 .Width = 1250 .Visible = True .Navigate "https://www.google.com/" Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop .Document.getelementbyid("gLFyf gsfi").Value = "buscar lo que sea en google" .Document.getelementbyid("Buscar con Google").Click End With End Sub saludos
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png