Jump to content

avalencia

Moderators
  • Content Count

    1,372
  • Joined

  • Last visited

  • Days Won

    78

avalencia last won the day on September 19

avalencia had the most liked content!

6 Followers

About avalencia

  • Rank
    Abraham Valencia
  • Birthday 01/17/1978

Contact Methods

  • Website URL
    https://abrahamexcel.blogspot.pe/

Profile information

  • Gender
    Hombre
  • Localización:
    Perú

Converted

  • Campos
    ;
  • Mi versión de Excel:
    2

Recent Profile Visitors

2,619 profile views
  1. Hola Esas fallas no están relacionadas a la versión del VBA o de Window (7, 10, etc.) sino a: - Uso de objetos ActiveX no compatibles entre ediciones de Office (32 o 64 bits, ojo, bits del Office, no importa lo de Windows). - Uso de objetos ActiveX compatible pero no registrados/instalados entre distintas PC. Recuerden que las librerías y objetos ActiveX (o similares), no "viajan" con los archivos de Excel. - "Llamadas" a funciones de la API de Windows solo para 32 bits. - Uso de propiedades y/u objetos de Excel "nuevas". Recuerden que las versiones más recientes de E
  2. Cada nueva versión de Office tiene nuevas y mejores características que hacen que, dejando subjetividades de lado, se mejor que la anterior. ¿2019 o 365? Depende, la primera es un pago alto, pero único; la segunda es pago mensual, pero si consideras que ya no necesitas Office, dejas de pagar y listo. Ah, con Office 365, y sobre todo si uno es del programa InSider, siempre hay nuevas funciones. Ah, con 365, si se cambia la versión, digamos, del 2019 al 2022, la versión 365 se actualiza al equivalente. Sobre el entorno VBA, es el mismo para ambas.
  3. Hola amigos Como hemos venido diciendo muchos por año, los objetos Webbrowser tienen muchas limitaciones, si a eso le sumamos que la arquitectura de cada web es distinta, pues como resultado tenemos que no necesariamente en toda web funciona lo mismo. Como Mauricio comenta que no puede compartir la web (por ende debe ser de intranet y/o con loguin), pues una alternativa basada en la propuesta de mi querido amigo Gerson, sería intentar así: Me.WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT Me.WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT Hoja3.Paste Range("A
  4. Estimado, me parece que no es dilema del xml sino de probables librerías y/u objetos ActiveX y/o algún uso de propiedades que no son compatibles entre versiones. En los del error abre el editor de VBA y en las referencias verifica cuáles están precedidas de la palabra "Falta".
  5. Hola Complicado ayudarte sin ver el archivo y que, no solo menciones el error, sino que envíes captura de pantalla de él. Por lo que entendí, tenías Office 2010, lo desinstalaste e instalaste el Office 2016 y solo en esa PC hay error ¿Es así? ¿En otras PC no hay problema? ¿Algún otro detalle?
  6. Y habiendo tantas cosas en tu archivo ¿Quieres que revisemos todo para intentar ver a qué te refieres?
  7. Hola No, no es posible cambiar ese color a través de VBA.
  8. Hola Tu Office es de 64 bits y en el archivo de ejemplo enviado hay varias funciones de la API de Windows que hay que modificar en las declaraciones. Modifica toda la parte que está entre la línea #If VBA7 Then y la línea #Else reemplazando por las siguientes: Private Declare PtrSafe Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName As String) As Long Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessage
  9. Hola, dada la configuración de tus datos, lo ideal es que uses lo siguiente: Sub f_Actualizar_7() Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim Sql As String, Datos As Variant Dim NumId As Date, numih As Date NumId = Format(Range("D3").Value, "mm/dd/yyyy") numih = Format(Range("F3").Value, "mm/dd/yyyy hh:mm:ss") Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Registro.accdb" .Open End With Set Rs = New ADODB.Recordset Sql = "SELECT nombre, cedula, riesgo,
  10. En tu Hoja2 tienes valores como 10122 que se repite y cuya fila inmediata superior las diferencias, pero en Sheet1 no ¿Cómo diferenciarlas? Sobre todo dado que en Sheet1 solo hay espacio para una coincidencia. Por cierto, tu disposición de datos solo irá complicándote la vida, debes tener lo de la Hoja2 tipo base de datos.
  11. Hola Para registros entre fechas debes usar "Between", algo así: Sql = "SELECT nombre, cedula, riesgo, Nombre_Patrono, fecha1 FROM f_adeudos WHERE fecha Between '" & NumId & "' and fecha '" & NumIh & "' ORDER BY fecha1" Ojo, digo "algo así" ya que no tengo tus datos para probar y en realidad lo de las fechas tiene algunos detalles relacionados a la configuración regional y a los formato y tipos de datos. Prueba y comentas.
  12. Hola No pones al menos un ejemplo de tus datos, qué resultados espera y cómo lo has intentado hasta ahora. Igual, dale una leídita al uso de For - Each en lugar de For - Next.
  13. Hola ¿Esa imagen es tuya o la viste "por ahí"? En Excel, y en informática en general, una imagen NO vale más que mil palabras. Igual ve probando con proteger el libro y la o las hojas que en parte logran lo que se ve ahí de deshabilitar las opciones de la Cinta. Del mismo modo en la pestaña "Vista" puedes quitar la barra de fórmulas y otras cosas. Saludos.
  14. Hola nuevamente Hay dos formas de hacerlo, una es usando el objeto MSXML2.XMLHTTP60 (o uno similar), la ventaja es que es relativamente rápido, y sus desventajas son la dificultad (para muchos) de entenderlo/programarlo y que no necesariamente funciona con todas las web. La segunda alternativa es usar el objeto Internet Explorer, su desventaja es que es más lento pero sus ventajas es que es más fácil de entender y que funciona con casi todas las webs. Sobre el segundo método, lee estos artículos: https://abrahamexcel.blogspot.com/search?q=interactuando+con+internet Saludos
  15. Hola, bienvenido. Si deseas ayuda debes dar más detalles y de preferencia, con más datos de los que envías, colocar en algún lado el resultado "a mano" y en base a qué datos lo has obtenido para de ese modo entenderte mejor y que recibas la ayuda que necesitas. Saludos.
×
×
  • Create New...

Important Information

Privacy Policy