Leaderboard

Supongo que falta afinar alguna cosilla, pero en conjunto, resulta. Este ha sido mi post Nº 10.000 🙂 AYUDAEXCEL ENVIO DE PEDIDOS POP.xlsm

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

suuuuuuuuper sensei Antoni... mi sirvio muchisimo te lo agradezco muuucho. Por ahora ese hilo se cierra. Soy tu Post 10.000! yajuuuuuuuu

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

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

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.

Hola Por favor revisa el adjunto, va con macro de evento Saludos Ingresar datos con prefijo Vba_GP.zip

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

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ú

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ú

¡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

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.

Alguna manera de desproteger el libro maestro

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

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

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

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!

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.

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,

Hola perfecto a la primera muchas gracias, te doy un copón de campeona.

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... ¿? 😉

Los objetos Font e Interior son solo para rangos de Excel, para controles ActiveX deben utilizarse las propiedades ForeColor y BackColor. Crono.xlsm

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

Olvidé algo: Workbooks.Open "C\:TuCarpeta\SubCarpeta\NombredelLibro.xlsx", UpdateLinks:=1, Password:="tuclave" Ahora sí Abraham Valencia https://abrahamexcel.blogspot.com/ Lima, Perú

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

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.

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

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.

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

For x = Range("A" & Rows.Count).End(xlUp).Row To 4 Step -1 ' ' Aquí tu código ' ' Next

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

Hola Antoni, josegomez, subo el archivo de lo que yo entendí. Prueba para KRUGERS.xlsb

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

¡Hola, de nuevo! Revisa el adjunto, con la modificación de acuerdo con lo nuevo que pides. ¡Bendiciones! Libro1Ejemplo.xlsx

Adjunto ejemplo. Saludos Horas.xlsx