Jump to content

Abraham Valencia

Moderators
  • Posts

    1,694
  • Joined

  • Last visited

  • Days Won

    142

Community Answers

  1. 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.
  2. 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  
  3. 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.
  4. 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.
  5. 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.
  6. 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.
     
  7. 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
  8. 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
  9. 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
  10. 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
×
×
  • Create New...

Important Information

Privacy Policy