Jump to content

Leaderboard


Popular Content

Showing content with the highest reputation since 09/14/2019 in all areas

  1. 5 points
    Supongo que falta afinar alguna cosilla, pero en conjunto, resulta. Este ha sido mi post Nº 10.000 🙂 AYUDAEXCEL ENVIO DE PEDIDOS POP.xlsm
  2. 3 points
    hola, a todos ! hablando de fechas (en excel y vba) sugiero consultar un artículo al respecto de Stephen Bullen (no muchos lo toman "en serio" así que...) lo recomiendo de manera indirecta desde la página de Ron de Bruin: International Worksheetfunction problems
  3. 2 points
    suuuuuuuuper sensei Antoni... mi sirvio muchisimo te lo agradezco muuucho. Por ahora ese hilo se cierra. Soy tu Post 10.000! yajuuuuuuuu
  4. 2 points
    Holas! Adicional al aporte de @Silvia, se puede realizar mediante Vba Adjunto archivo de ejemplo, solo es cosa de seleccionar el rango y correr la macro Saludos! Convertir fecha Vba_GP.zip
  5. 2 points
    Estimado, no sé si existen las "excusas" en un foro en que los que ayudan lo hacen (hacemos) de manera voluntaria, pero en todo caso es tu punto de vista y no intentaré cambiarlos, más sí quería dar una última opinión. Abraham Valencia
  6. 2 points
    AlexanderS

    Exportar datos excel a access

    Hola @xveganx, para tener un mayor entendimiento sobre las consultas siempre se solicita un archivo de ejemplo, en tu caso la tabla de access y el excel, con datos ficticios es suficiente ya que lo se requiere es ver la estructura de tus archivos. Te dejo un pequeño código que hace lo que quieres, siempre y cuando lo sepas adaptar a tu archivo. Sub Exp_ACCESS() Set cn = CreateObject("ADODB.Connection") dbPath = "C:\Users\Usuario\Documents\Database1.accdb" '>>> RUTA de la BD Tabla = "Tabla1" ' >>> Nombre de la tabla de Access dbWb = Application.ActiveWorkbook.FullName dbWs = Application.ActiveSheet.Name scn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath dsh = "[" & Application.ActiveSheet.Name & "$]" cn.Open scn ssql = "Delete * From " & Tabla cn.Execute ssql ssql = "INSERT INTO " & Tabla & " ([CONTRATO], [CONTRATO SAP], [FECHA], [PROVEEDOR], [SUCURSAL], [DESCRIPCION], [MONEDA]) " ssql = ssql & "SELECT [CONTRATO], [CONTRATO SAP], [FECHA], [PROVEEDOR], [SUCURSAL], [DESCRIPCION], [MONEDA]" & _ " FROM [Excel 8.0;HDR=YES;DATABASE=" & dbWb & "]." & dsh cn.Execute ssql MsgBox "Listo !!", vbInformation End Sub Saludos.
  7. 2 points
    Hola Por favor revisa el adjunto, va con macro de evento Saludos Ingresar datos con prefijo Vba_GP.zip
  8. 1 point
    Jajaja sí Abraham gracias, con cuidado por esa zona, yo también me ubico en San Borja en éste momento Estaré esperando tu comentario, nuevamente muchas gracias
  9. 1 point
    Ah, te entendí mejor, estimado. Sobre el WebBrowser, podrías cambiar el registro de Windows para que emule el IE 11 que no da esos errores, pero habría que hacerlo en cada PC y/o hacerlo con VBA también, así que no sé si realmente salga "a cuenta" y yo al menos no lo he probado como para decirte que es un método 100% confiable. Sobre seguir usando el objeto Internet Explorer, al ya haberte entendido mejor, la cuestión es que para que corran y se vean los videos de Youtube, debes hacerlo como si los incrustaras/insertarás, no como si los compartieras, es decir, debes usar el "embed" de Youtube, algo así: Dim IE As Object Set IE = CreateObject("InternetExplorer.application") IE.Navigate "http://ipodperu.com" Do DoEvents Loop Until IE.ReadyState = 4 IE.Document.getElementsbyTagName("iframe")(0).SetAttribute "src", "https://www.youtube.com/embed/nQUjScfmLWc" IE.Visible = True Comentas Abraham Valencia https://abrahamexcel.blogspot.com/ Lima, Perú
  10. 1 point
    Hola Tal cual lo comentas, sea con un WebBrowser o con el objeto Internet Explorer, pues hasta donde recuerdo, no, no se puede. Si bien el HTML (y otros usados en web) no compila tipo los *.exe, finalmente es un código fuente y si bien podemos enviarle datos, extraer datos y hasta obtener todo dicho código fuente, manipularlo con VBA a través del navegador no es posible tal cual lo planteas. Si se tiene acceso a los archivos de la web con FTP o accediendo a alguna carpeta que los almacene, pues sí sería posible pero el cambio sería, digamos, permanente (ya que se modificaría propiamente dicho el código fuente), no "temporal" como cuando usamos el "Inspeccionar elemento" o similares. Saludos Abraham Valencia https://abrahamexcel.blogspot.com/ Lima, Perú
  11. 1 point
    johnmpl

    Funcion Subtotales

    ¡Hola, a ambos! Puedes probar agrupando en vez de filtrando. Al agrupar, usando los códigos que no comienzan por 100 en la función subtotales, los valores se siguen sumando. Revisa el adjunto con las agrupaciones ya hechas. En la parte superior izquierda, presiona el 1. Para agrupar: Selecciona las filas que quieres agrupar, y presiona el atajo de teclado Alt + Shift + Flecha Derecha. ¡Bendiciones! Subtotales.xlsx
  12. 1 point
    JSDJSD

    modificar codigo de pegado

    Siento mucho decirte que aquí, colaboramos ayudándonos unos a otros pero no damos soporte para desproteger libros u hojas, si sabes quién es el autor pídele la clave de acceso y continuamos, un saludo.
  13. 1 point
    fredy122

    modificar codigo de pegado

    Alguna manera de desproteger el libro maestro
  14. 1 point
    expertos buenos dias como puedo desarrollar esta idea si tengo en una hoja varios numeros de 4 cifras y al seleccionarlos me mostrara su estadistica descriptiva ( media,error estandar,mediana,moda,desvio estandar, varianza,kurtosis,asimetria,rango,minimo,maximo,suma,cuenta) en un formulario no modal si no es posible que me muestre todas las descripcioness anteriores por lo menos las que mas se puedan o si alguien tiene en su archivo de programacion algo parecido me gustaria que me lo accedieran muchas gracias
  15. 1 point
    Dinkys

    Error al ejecutar una macro

    Buenas tardes @avalencia no se que es lo que hice para que me pasase eso, ni lo que he hecho ahora para que vuelva a funcionar. la verdad es que esto de ser novato en las macros es todo un reto!!!! Gracias
  16. 1 point
    Amablemente @TREBUR me ha informado de un fallo en mi aporte, y es que usando la funcion text en el código, da ciertos errores en las fechas, por lo que no es necesario usarlo Asi que vuelvo a subirlo ya corregido, y con una línea adicional para darle formato a las fechas [desde luego se puede modificar a gusto] Saludos Convertir fecha Vba_GP.zip
  17. 1 point
    Hola ¿Entonces porque no lo subiste? Por lo visto, ni siquiera sabes dirigirte!, @avalencia es un experto reconocido, en estos temas, la excusa es tuya por no seguir nuestras normas y en todos tus temas creados aquí, no haz subido ningún archivo, con la EXCUSA que es pesado, ¿a caso no puedes hacer un simple ejemplo? asi lo hacen la mayoría de usuarios... En este caso estoy totalmente de acuerdo contigo, pero además tu serás hoy, uno mas que perdió la oportunidad de recibir ayuda y a lo mejor aprender mas, asi que tu accionar deja mucho que desear Por favor para futuras dudas, SUBE un archivo Saludos!
  18. 1 point
    AlexanderS

    Exportar datos excel a access

    Debes de estar escribiendo mal la ruta de la BD, no afecta que el archivo este en en la red siempre y cuando tengas permisos para acceder a ella. Lo que suelo hacer para no equivocarme al escribir la ruta es usar esta opción del explorador de archivos Saludos.
  19. 1 point
    Hola Abraham, gusto saludarle. En 26 visualizaciones, nadie lo solicitó. Se que el foro lo solicita como parte de sus reglas, pero no para todos los casos es aplicable. Disculpeme, pero, con todo respeto, esto me suena más a excusa que otra cosa. Pero igual yo estoy muy agradecido con este foro, siempre me han ayudado mucho, por una que no, no se cae el mundo. Buen día Abraham,
  20. 1 point
    Hola perfecto a la primera muchas gracias, te doy un copón de campeona.
  21. 1 point
    Mira fijamente la parte de arriba de tu hoja excel.. 😀 verás varias fichas ARCHIVO, INICIO, INSERTAR... DATOS... etc.... entras a la ficha DATOS Y en el grupo Herramienta de Datos, busca Texto en Columna.. creo que ya puedes continuar con el resto... ¿? 😉
  22. 1 point
    Los objetos Font e Interior son solo para rangos de Excel, para controles ActiveX deben utilizarse las propiedades ForeColor y BackColor. Crono.xlsm
  23. 1 point
    Ya que Silvia respondió, yo solo quisiera agregar que ese formato no es de EE.UU., sino de países como China, Irán y Corea del Norte. Abraham Valencia
  24. 1 point
    Olvidé algo: Workbooks.Open "C\:TuCarpeta\SubCarpeta\NombredelLibro.xlsx", UpdateLinks:=1, Password:="tuclave" Ahora sí Abraham Valencia https://abrahamexcel.blogspot.com/ Lima, Perú
  25. 1 point
    Hola También puedes hacer uso de Evaluate sin bucles [For Next] Sub F_Evaluate_GP() With Selection .Value = Evaluate("transpose(transpose(proper(" & .Address & " )))") 'lower minuscula / 'upper mayuscula With .Font .Italic = 1 .Bold = 1 .Size = 14 End With End With End Sub Claro esta, que previamente debes SELECCIONAR el rango Saludos
  26. 1 point
    Por esto mismo es por lo que se dice que se suban los archivos con una explicación más o menos clara de los que pretendemos. Me alegro mucho de que el código del Maestro Antoni te sirva para tu proyecto. También decirte que la forma de agradecer a los que te ayudan en este foro es mediante el corazoncillo que tienes en la parte inferior derecha pulsando el emoticono que más se adapte a tu ayuda.
  27. 1 point
    JSDJSD

    modificar codigo de pegado

    Hola fredy122, te subo un ejemplo haber si es lo que necesitas, también un enlace para que veas en video el funcionamiento del mismo. Tienes que tener en cuenta que en la macro contenida en el archivo progama4 cifras 1.xlsm debes cambiar la ruta que hay por la tuya para que te funcione. Workbooks.Open("C:\Users\JSD\Desktop\Analisis2018.xlsm") La que te muestro es la ruta que tiene el archivo en mi ordenador, es decir yo lo tengo en el escritorio, lo que debes modificar es lo de color Amarillo, si pones los dos archivos en tu escritorio lo único que tienes que modificar seria Workbooks.Open("C:\Users\JSD\Desktop\Analisis2018.xlsm") por el nombre de tu ordenador. Cuando pulses el botón de Traspasar no es necesario que tengas abierto el otro archivo. Enlace de video https://www.dropbox.com/s/ueg0xxopxpntv4z/consulta de fredy122.mp4?dl=0 Analisis2018.xlsm programa 4 cifras 1.xlsm
  28. 1 point
    Creo que me ha quedado claro. Veo que se pueden utilizar "trucos" como el que has mostrado de empezar por el final e incrementar la variable x en pasos negativos (step -1). Es cuestión de darle al coco, aunque a veces cuesta un poco y se agradece la ayuda externa. Muchas gracias Antoni. Siempre se aprende de un experto.
  29. 1 point
    Efectivamente, para hacer lo que tu quieres utiliza un Do/Loop, por ejemplo: x = 4 n = 1000 Do Until x = n If .... Then n = 1200 x = x + 1 loop
  30. 1 point
    For x = Range("A" & Rows.Count).End(xlUp).Row To 4 Step -1 ' ' Aquí tu código ' ' Next
  31. 1 point
    Sin ver la solución de JSDJSD, selecciona el rango y ejecuta esta macro: Sub NOMPROPIO() For Each CELDA In Selection CELDA.Value = Evaluate("=PROPER(""" & CELDA & """)") Next End Sub
  32. 1 point
    Hola Antoni, josegomez, subo el archivo de lo que yo entendí. Prueba para KRUGERS.xlsb
  33. 1 point
    avalencia

    Error al ejecutar una macro

    Hola Sin detalles es complicado ayudarte. Algo hiciste ¿recuerdas qué? Ojo, es totalmente errado creer que de la nada ocurren esas cosas, por si acaso. Si muestras el archivo incluso sería mejor. Abraham Valencia
  34. 1 point
    johnmpl

    ANSWERED Manejo excel avanzado

    ¡Hola, de nuevo! Revisa el adjunto, con la modificación de acuerdo con lo nuevo que pides. ¡Bendiciones! Libro1Ejemplo.xlsx
  35. 1 point
    Adjunto ejemplo. Saludos Horas.xlsx
  • Newsletter

    Want to keep up to date with all our latest news and information?
    Sign Up
×
×
  • Create New...

Important Information

Privacy Policy