hola amigos del foro, estoy realizando una macro en donde tengo un formulario con un combobox y me carga en un listbox los datos, cada vez que selecciono alguna opcion en el combobox me habre un archivo y asi susesivamente. pero el detalle es que me quedan los libros abiertos cada vez que selecciono en el combobox. la pregunta seria como puedo hacer para que al seleccionar en el combobox cierre el libro que tengo actual y me abra el otro y pueda estar cargando en el listbox?? anexo el codigo que tengo actualemnte sub nombre ckick() 'indicar para habilitar la hoja nombre Workbooks.Open Filename:=ThisWorkbook.Path & "\Nuevo_Usuario\" & nombre & ".xlsx" …

https://ayudaexcel.com/foro/topic/8996-abrir-abrir-y-guardar-link-internet/ Buenos días, El archivo adjunto (Autoria, Juan alias nvr)abre un link de internet y se guarda en una carpeta. pero el link que esta en el archivo adjunto no abre, tampoco se guarda me da error. Echenme un cable, que esta mal en el link. Saludos, César DescargarArchivos3-nvr.xls

Hola a tod@s. El siguiente código me permite trabajar con Excel 2007 y Access 2007 extrayendo información mediante una consulta SQL. Sub ImportarDesdeAccess() Dim conexion As Object Dim consulta As String Dim cadenaConexion As String Dim cadenaConexionSHM As String Dim contador As Integer Set conexion = CreateObject("ADODB.connection") Sheets.Add.Name = "MULTIEM" Range("A1").Select 'Set cnna = CurrentProject.Connection cadenaConexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\Srvmultiem\mgalpon\BODEGA-DSK\A2020\INGRESOS2020.mdb" consulta = "SELECT a.FOLIO, a.[ESTADO DATOS],e.[CODIGO REL], MAX(b.ITEM) AS [NRO DE ITEM], SUM(b.CANTIDAD) AS C…

Buenas tardes! Quiero comparar el valor contenido en la variable "vehiculo" con los valores de una lista de 24 elementos, que he almacenado usando FOR EACH, en la matriz "listacalidad" (variable y matriz de tipo String). ¿Alguien sabe cómo puedo resumir el siguiente código? (He buscado por internet y en este foro, y en la documentación de Microsoft y no he localizado ninguna reseña a cómo puedo indicar el total de índices..) If vehiculo = listacalidad(0) Or vehiculo = listacalidad(1) Or vehiculo = listacalidad(2) Or vehiculo = listacalidad(3) Or vehiculo = listacalidad(4) Or vehiculo = listacalidad(5) Or vehiculo = listacalidad(6) Or vehiculo = listacalidad…

Buen dias con todos: Quisiera aprender a acceder a las funciones de un archivo .dll desde excel vba. Les agradeceria si pudieran compartirme un ejemplo o un tutorial donde hablen de eso. Saludos

Hola, no sé si hago mal, en ese caso disculpas. He abierto este mismo tema en fórmulas, pero no sé si habría que hacer una macro. Tengo en la hoja llamada "DATOS", la celda R2, en la cual introduciré el nombre de otra hoja. Con ese dato quiero acceder a la hoja que indique R2, que está en otro libro, sería como en la fórmula siguiente, sustituyendo 48'! por la referencia a R2(en el que está el nombre de la hoja del otro libro). PHP =SI(INDIRECTO(("'EQUIPOS'!G"&$A$1))="EA";'C:\Documents and Settings\MIGUELB\Escritorio\[Operaciones mto.xlsx]48'!C29;"NO") PHP Muchas gracias

Hola, cree un código, que la intención es acceder a varias cuentas de la web sin necesidad de abrir la pagina y escribirlas manualmente el usuario y contraseña, pero al ejecutarlo genera un error al tratar de encontrar los campos para asignar los datos de la cuenta y acceder a ella. Sub AccesoWebT() Dim acce As Object Set acce = CreateObject("Shell.Application") acce.ShellExecute "chrome.exe", "https://cfdiau.sat.gob.mx/nidp/app/login?id=SATUPCFDiCon&sid=0&option=credential&sid=0" While acce.Busy DoEvents Wend On Error Resume Next acce.Document.all.Item("Ecom_User_ID").Value = Range("B1").Value acce.Document.all.Item("Ecom_Password").Value = Rang…

Saludos a todos. Necesitaria, por favor, vuestra ayuda para resolver la cuestión que propongo relativo al acceso y modificación de datos para posterior descarga de datos financieros de una web. (Scraping) Concretamente, necesito acceder y modificar los datos entrados confirmandolos despues mediante un boton, para proceder a la posterior descarga de los datos financieros seleccionados previamente mediante la periodicidad y fechas indicadas para la descarga. Decirles que no domino en absoluto el area de scraping, aunque si he leido y visto bastantes articulos y codigos, pero a pesar de ello no he sabido resolver la cuestón que propongo y que agradeceria me resolvirais…

Necesito acceder a un WSDL con usuario y contraseña, para descargar la información e incorporarla en la hoja de cálculo.

Buena tarde: Estoy haciendo un libro en el cual necesito que muestre de entrada solo una hoja (INICIO) en la cual tengo un cuadro de texto que me da acceso a un UserForm donde solicita usuario y contraseña, los cuales estan contenidos en otra hoja (PERSONAL) y estos usuarios deben tener diferentes privilegios y dependiendo de que usuario entre despliegue un menú diferente. El detalle está en que ni siquiera puedo hacer que el ComboBox me muestre los usuarios disponibles (ok, si me los mostró en dos ocasiones y después ya no los mostró), de lo de los accesos con diferentes privilegios pues ni hablar. Libro1.rar

Acceso al modelo de objetos de proyectos de VBA [solucionado] Hola a todos, Lo primero que tengo que hacer es agradecer la ayuda prestada desde este foro, donde he encontrado respuesta a mil dudas... menos a una que me trae loco! Contexto: Office 2007 Pregunta: Sabe alguien si existe alguna propiedad del Objeto Application que me permita saber si la casilla "Confiar en acceso al modelo de objetos de proyectos de VBA" (Botón Office -> Opciones de Excell -> Centro de confianza -> Configuración del centro de confianza -> Configuración de Macros) está activada?. Lógicamente, esta propiedad NO se puede activar desde una macro. Yo lo que quiero es saber si está …

Buenas noches. Adjunto un libro excel donde hay un código que pretende que pueda logarme de forma automática en mi correo gmail. Consultando el código fuente de la web creo que copié el código bien, pero la macro no me funciona. Cuando la intento ejecutar me aparece el mensaje "error de compilacion. No se ha definido el tipo definido por el usuario". Empiezo a familiarizarme con el mundo vba pero de forma progresiva. No tengo conocimientos de lenguaje HTML y voy leyendo todo lo que cae en mis manos. ¿Alguien puede decirme en qué fallo o aportarme una solución? gracias borja logarse automaticamente gmail.zip

Buenas Tengo una macro que copia información de una hoja a otra en donde realiza unos cálculos con fórmulas de la misma hoja y luego regresa el resultado a la hoja de origen. La macro demora aproximadamente 1 hora para calcular 30 mil registros y es demasiado. Ya he intentado con todas las formas de acelerar la ejecución de macros que encontré en Internet y no logro que baje el tiempo de ejecución. Por favor, pueden darme una mano con la aceleración de la macro??? Hay forma de que el Excel use un mayor porcentaje del procesador y de la memoria de la máquina para que realice el cálculo de forma más rápida?? Les adjunto la macro. De antemano, muchas gracias por la ayud…

Hola estoy cargando una hoja Excel a una grilla de VB6 y creo que el método que estoy empleando es lento, creo recordar que hay otros métodos mas rápidos, yo utilizo dos for X, y for Y recorriendo celda por celda y obtengo su valor (esto en 790 filas con 21 columnas me esta demorando 1 minuto), pero creo que había una forma de obtener un array de las celda lo cual es mas rápido mi código actual Private Sub Form_Load() Dim LastRow As Long Dim i As Integer Dim XL As Object, xlSpread As Object Const xlLastCell = 11 Dim Row As Long, Col As Long Set XL = CreateObject("Excel.Application") XL.Workbooks.Open FileName:=App.Path & "\L1.xlsx"…

Estimados yo devuelta.... Les dejo esta macro y quiero ver la posibilidad de mejorar la velocidad de respuesta al momento de ingresar una consulta. Al momeneto de ejecutar la macro, muestra la totalidad de datos de la hoja base, pero cunado se ingresa una consulta, en lo texbox, se demora mucho en responder. La encontré en algún lado y la adapte a mi medida. El filtro opera según los datos ingresados: ejemplo Campo cliente: si ingreso la "S", mostrara todo lo que contenga "S", si le agrego una "E", filtrara todo lo que comience o contenga "SE" y así sucesivamente. - - - - - Mensaje combinado - - - - - La bse de datos puede llegara tener mas de 800 filas por mes, e…

Muy Buenas amigos del foro: Estoy intentando capturar datos mediante un formulario pero al gardar los datos me presenta un error, el codigo que he escrito es el siguiente: Private Sub CommandButton6_Click() Dim fecha As Date Dim sucursal As String Dim ingpart As Double Dim factpart As Double Dim inginst As Double Dim factinst As Double Dim exapart As String Dim exapsv15 As String Dim exapsv10 As String Dim exaemp As String Dim exaprom As String Dim exacort As String Dim exaoftalm As String Dim valexapart As Double Dim valexapsv15 As Double Dim valexapsv10 As Double Dim valexaemp As Doub…

Buenas noches colegas. Espero se encuentren bien de salud junto a sus familiares. Primero que todo ofrecer mis disculpas porque sé que esto no es una plataforma para este tipo acción, pero creo oportuno hacerlo con el permiso de sus administradores. Hace un par de días Haplox acudió a dar respuesta a uno de mis temas publicados en este Foro y a algo que él escribió (…) yo le contesté y un par de compañeros de mi trabajo me dijeron que quizás había sido un poco fuerte con él. Yo no creo que fuera así, porque de hecho yo tomé sus palabras como una broma. Recordar que soy CUBANO y que tenemos un Gran Sentido del Humor y si me conocieran personalmente sabrían q…

Hola buen día a todos, disculpen, tengo este programa, en el cual se filtran datos mediante 3 filtros, y se seleccionan en el cuadro pequeño de la derecha (listBox) lo que se desea ver, se le da clic y se ven los datos, pero mi problema es que cuando por ejemple se ve el nombre de algún alumno, le falta espacio y para eso le puse un txtBox, en el cual me aparace un el ancho en el que esta y ahi yo le muevo manualmente, pero me gustaría saber si es posible ponerlo en automatico, que cuando selección nombre se ponga en automático los espacios que se necesitan para no estarlo haciendo manualmente, muchas gracias por su ayuda. Saludos! Filtros1.rar

Que tal amigos, espero puedan ayudarme con esto, tengo datos en la columna A, y en la la columna B los mismos datos que en A, pero en desorden, luego en las siguientes columnas hay valores que le pertenecen a la columna B, la idea es acomodar o hacer coincidir la columna B con todo y sus valores con respecto a la columna A, les dejo un ejemplo claro con los resultados esperados, ....de antemano muchas gracias Ejemplo para acomodar datos.zip

Saludos a todos, solicitando su apoyo y/o ayuda para modificar la macro que tengo en el archivo de ejemplo que adjunto, lo que que trato hacer en la hoja Datos columna A tengo varios ID, si coinciden con los ID_2 columna L, copia los datos a la columna F?:I? según ID, hasta ahí funciona bien la macro, el problema es cuando en los ID_2 no existen en la columna A (ID), no se como agregar esa parte del código a la macro para que inserte la fila y acomode los datos. Los ID de la columna A están ordenados. La cantidad de datos es variable. Agradezco de antemano sus comentarios y/o ayuda. Saludos Ejemplo.xlsm

Saludos a todos Estoy tratando una macro para realizar lo siguiente: En la hoja BASE tengo varios datos y en la columna G (TIPO) tengo una P o D, necesito acomodar todas las P de un "Id" y luego las D y totalizar, en la celda siguiente sacar la diferencia, poner un T en la columna J Adjunto un pequeño ejemplo de lo que pretendo realizar Agradezco de antemano sus comentarios y/o ayuda Saludos EJM09052020.xlsm

Buenas Tardes : Tengo un macro pero no se como ponerle para que en lugar de que pase la información especifica de una hoja seleccione por medio de un rango el nombre de la hoja, ya le movi al derecho y revez y nada U = Sheets("Pasar").Cells(Rows.Count, "C").End(xlUp).Row ff = 7 While Sheets("Pasar").Cells(ff, "AA") <> "" And ff < U ff = ff + 10 Wend With Sheets.Range("A5") (ESTA ES LA PARTE) POR EJEMPLO EN A5 QUIERO PONERLE EL NOMBRE DE LA HOJA QUE QUIERO LA INFORMACION. Gracias.

Hola.. estoy utilizando una macro de macro Antonio para ocultar y mostrar columnas.. sin embargo no se como acotar para que solo busque entre las columnas B y AT, ya que tarma mucho tiempo para recorrer todas las columnas de la hoja. saludos Option ExplicitSub OcultarMostrarColumnasMA(Optional ACero As Boolean = True, _ Optional Vacia As Boolean = True, _ Optional FilasIgnoradas As Long = 0, _ Optional ColumnasIgnoradas As Long = 0) 'Definimos las variables Dim Filas, Columna, Columnas, FilaInicial Dim ColumnaInicial, FilasVacias, Celda, x, y 'Determinamos rango de filas F…

Gente buenas tardes. Estoy trabajando con Excel 2013, y necesito abrir un archivo con código fuente. : Dim XL As New Excel.Application XL.Workbooks.Open "Z:\Documentos Personales\Juan Arduini\cargas de suero.xlsx", , False El problema es que de esta forma lo abre indicando Error de activación de productos en rojo en la parte de arriba y cuando lo quiero buscar no lo encuentra, ahora si lo abro haciendo clik no aparece el error y luego si lo detecta el código. La pregunta es, como hacer para que a través de código fuente se abra pero sin el error? Gracias Juan

Buenos días: Supongamos que tenemos un UserForm que contiene 1 TextBox y 5 botones (CommandBottom 1, 2, 3, 4 y 5). Mi pregunta: ¿Sería posible una macro que al apretar en cualquiera de los 5 botones me copiase en el TextBox el valor de una propiedad (Por ejemplo: Caption) de dicho botón, pero sin generar un código VBA para cada botón? es decir, una macro genérica que reconozca el botón presionado y copie una propiedad definida en dicha macro. Un saludo. Macro inteligente.xls