-
Posts
1,694 -
Joined
-
Last visited
-
Days Won
142
Community Answers
-
Abraham Valencia's post in Obtener título de una ventana Https was marked as the answer
"o etc."... cuando no tienen certificado, no puedes entrar a ellas con VBA usando GET o POST (o similar) como cuando lo haces de forma manual, que es lo que has puesto de ejemplos.
-
Abraham Valencia's post in Hacer búsqueda en web entre varias opciones was marked as the answer
Hola
Un ejemplo que, creo, podría ayudarte. Ojo, trata de entenderlo y adaptarlo a lo que necesitas:
Sub BuecarenWeb() Dim ie As Object Dim Textoabuscar$ Set ie = CreateObject("InternetExplorer.Application") ie.Navigate "https://www.futwiz.com/en/fifa23/player/andre-ramalho/16818" Do Until ie.ReadyState = 4 DoEvents Loop ie.Visible = True Application.Wait (Now + TimeValue("00:00:01")) Textoabuscar = InStr(1, ie.Document.body.innerhtml, "card-23 card-23-gold-nr") If Textoabuscar > 0 Then MsgBox "Existe" Else MsgBox "No existe" End If 'ie.Quit ' 'Set ie = Nothing End Sub
-
Abraham Valencia's post in Saludos de un recién aterrizado was marked as the answer
Hola, bienvenido. No olvides seguir la recomendación de Sergio.
Sobre tu dilema, intenta así:
Me.ComboBox2.List = Application.WorksheetFunction.Transpose(Hoja2.Range("N_LOCALIDADES")) Comentas.
-
Abraham Valencia's post in ADAPTAR SENTENCIA SQL para que funcione en Excel was marked as the answer
Pues bien, a eso me refería ya que, como comenté y te has dado cuenta, las sentencias SQL que permite Excel, no son suficientes para lo que requerías. Saludos.
-
Abraham Valencia's post in Macro OnTime no se ejecuta was marked as the answer
Hay dos modos, o cuando abres el archivo, como te comento, o haciéndolo tú mismo mediante un botón o algún otro evento. Si tu idea es que "algo" abra el archivo solo sin necesidad de intervención de un usuario, entonces puedes usar Power Automate (versión de escritorio) o el Programador de Tareas de Windows e igual en el archivo Excel tienes que programarlo en el evento Open y el archivo debe seguir abierto.
-
Abraham Valencia's post in 30 fórmulas en vba. En una misma página was marked as the answer
Ajá, entonces el dilema va por otro lado. Mira este video: https://youtu.be/8-3y1WDc2Tg
Lee este artículo: https://abrahamexcel.blogspot.com/2018/01/el-gran-problema-de-los-archivos-lentos.html
Por ahí vienen tus problemas.
-
Abraham Valencia's post in SELECCIONAR UN RANGO DE DATOS EN DONDE LOS DATOS QUE COINCIDAN was marked as the answer
Hola
Si mal no te entendí esto te servirá:
Sub Prueba() Dim mifila As Range, mirango As Range For Each mifila In [CIUDADES].Rows If mifila.Columns(2).Value = "CADIZ" Then If mirango Is Nothing Then Set mirango = mifila.Columns(2) Else Set mirango = Union(mirango, mifila.Columns(2)) End If End If Next Hoja1.Names.Add "CADIZ", RefersTo:="='CIUDADES'!" & mirango.Address End Sub Comentas
-
Abraham Valencia's post in Cómo declarar una constante pública was marked as the answer
Hola
Las constantes públicas solo pueden ser declaradas en módulos estándar y es seguro que estás intentando declararlas en un módulo de Clase, no olvidando que los módulos de las hojas, el libro y los Userform son de Clase.
Saludos
-
Abraham Valencia's post in Desde Userform en Excel sumar valor a celda de Access was marked as the answer
Hola
Veo que al actualizar el campo [PALLET PROG] lo haces como un campo de tipo texto, ya que ingresas sus valores con comillas simples y entiendo que cuando dices "cantidad", quieres sumar dicha cantidad al campo [PALLET PROG] , entonces, debes primero convertirlo a número pero primero debes extraer el valor del campo, es decir, necesitas hacer dos recordset.
Query = "SELECT [PALLET PROG] FROM LContenedores WHERE [Id] = " & nReg Obvio generas un recordset y luego le das valor algo así a tu variable:
NPallet = NPallet + Cdbl(Rs.Fields("PALLET PROG"))
Y recién hecho eso retomas lo de tu Update. Ojo, yo no tengo tus archivos así que queda en tu probar, modificar y/o adaptar, pero la idea es esa.
Saludos
-
Abraham Valencia's post in Después de imprimir o hacer vista previa de impresión se ralentiza muchísimo -novato no entender- was marked as the answer
Hola
Yo uso Excel 365 de 64 bits y no hubo problemas de lentitud al usar la Vista Preliminar, pero eso sí, no apareció en automático, sino que tuve que activar el botón:
Pero hecho eso, todo bien, e incluso lo que ven en la imagen, no demoró nada de nada.
Ah, eso sí, usé el driver de conexión a dbf que ya tengo instalado, no instalé el que adjuntaste en la carpeta, pero me da este error en la cadena SQL y no me da tiempo de revisar si es un error de tu cadena (Cuando hice un Select *, no hubo dilema) o algo del driver (?):
Entonces, ante esos dilemas, probé lo más práctico del mundo, y pensando en algún tipo de corrupción de la hoja:
- Copie los datos a una hoja nueva, cambié en la macros el nombre de la hoja a la nueva, y listo, no hay problema hasta el momento. Intenta eso y comenta. OJO, copiar los datos y similares, nada de copiar la hoja y/o cambiarle el nombre