Jump to content

Galactico

Members
  • Content Count

    38
  • Joined

  • Last visited

Everything posted by Galactico

  1. Muchas gracias a ambos, probé de las 2 formas y llegue al resultado esperado estoy muy agradecido saludos
  2. buenas noches, dispongo de una macro que me entrega para cada celda un valor distinto de 0 (dentro de un rango de celdas), al utilizar ciclo for, no obtengo todos los resultados inmediatamente (algunas celdas siguen con valor 0, por la naturaleza de los datos de entrada), por lo que debo ejecutar la macro varias veces hasta que se rellenen todos los datos del rango con un valor distinto de 0 como puedo ejecutar la macro de forma automática varias veces, hasta que todos los valores de mi rango, sean distintos de 0? muchas gracias
  3. buenas tardes utilizo este código para cargar una macro una vez que haga click en una cierta celda Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) If Target.Range.Address = "$BF$1" Then Call macro1 End If If Target.Range.Address = "$BF$2" Then Call macro2 End If If Target.Range.Address = "$BF$2" Then Call macro2 End If End Sub el tema es que necesito poder realizar esto para muchas mas celdas (de la misma columna) pero no se como hacer algo generico sin tener que copiar y pegar
  4. buenas noches, dispongo de esta macro para navegar dentro de una pagina web Sub test() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Top = 0 .Left = 0 .height = 1000 .Width = 1050 .Visible = True .Navigate "www.google.com" Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop End With End Sub estoy tratando de cambiar el "www.google.com" por el valor de una celda, específicamente concatenando el texto inicial del link (www.google.com/) y el texto de una celda que
  5. muchísimas gracias, usted es un crack!
  6. 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 Inte
  7. 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
  8. 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
  9. 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">
  10. 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
×
×
  • Create New...

Important Information

Privacy Policy