Hola a todos, lo molesto por lo siguiente. Hago una consulta web desde excel por una Url, selecciono una tabla la cual contienen muchos hipervinculos y me aparece en excel, hasta ahi bien. Pero lo que yo necesitaria es la informacion dentro de ellos. Los cuales son tablas de igual tamaño pero diferente información para cada hipervinculo (que son mas de 150), necesito almacenar en una hoja para filtrar datos y demas, tendria que realizar una consula de la consulta o algo asi. Intente aprender un poco el funcionamiento de las macros pero veo que esto sale de mis conocimientos. Espero queme puedan dar una mano. Saludos!

Hola amigos encontré la siguiente instrucción para cargar un ComboBox, funciona bien con una base de datos pequeñas, pero al tener una base de datos grande (mas de 3000 datos) tarda mas de 50 segundos en cargar. Pregunto abra otra forma de realizarlo en menor tiempo, alguien podrá darme un ejemplo. Sub cargarcombo1() For n = 2 To Hoja12.Range("E" & Rows.Count).End(xlUp).Row ComboBox1 = Hoja12.Range("E" & n) If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1 Next ComboBox1 = "" End Sub

Error de codigo para copiar y pegar de una hoja a otra Bueno días foristas: En anteriores ocasiones me a sido de mucha importancia su ayuda y sus conocimientos por lo que vengo ahora a pedirle auxilio de nuevo. En un archivo de Excel tengo un código en la hoja "PARA SUBIR" que se supone me ayudaría a copiar unos datos de la hoja "CONVERTIR" y las pasaría en formato de texto (sin formulas) a la hoja "PARA SUBIR", pero me esta mostrando un error de procedimiento y no me deja correr la macro. Acá dejo el Código que estoy usando, si alguno de ustedes me puede ayudar estaría eternamente agradecida. Private Sub CommandButton1_Click() Application.ScreenUpdating = False '…

hola amigos, nuevamente recurriendo a su gran ayuda, ya que quisiera saber si hay alguna manera de insertar un texto por medio de macro al final de una imagen que cambia de tamaño, ya que tengo un reporte que he elaborado por medio de la camara con una macro (codigo que encontre en este mismo foro y modifique de acuerdo a mis necesidades), ya que el reporte general es de mas de 20000 filas, y varia cada quincena, y solo se necesitan reportes de matriculas (MAT.) especificas que se van solicitando y que al momento de cambiar el valor en "X11" cambian los datos de la imagen del reporte extraido, sin embargo, tambien me contabiliza el numero de eventos que tiene por cada mat…

Holas Tengo una macro que sirbe para calcular unos importes a partir de grupos familiares. Ésta obtiene la info de una hoja, lo almacena en arreglos y luego procede a copiarlos en la hoja donde están las formulas para realizar los cálculos. La macro funciona sin errores, el problema que tiene es que es demasiada lenta dependiendo del procesado que tenga la máquina donde se usa. En una máquina con Windows 7 ultimate de 64 bits con un procesador core i7 (primera generacion) y 8GB de memoria se demora 30 minutos la ejecución de 1500 registos y sólo usa el 30% del procesador, pero si ejecuto estos mismos registros en una máquina con Windows XP sp3 dual core con 2 gb de memo…

Hola a todos, mi nombre es Maurizio Y mi problema es este. Realmente espero que me puedas ayudar, porque perdí toda esperanza de éxito. El problema es este. Estoy tratando de poner el nombre de usuario y la contraseña en una página preestablecida; Tomando el nombre de usuario de la celda Tengo la columna (B2) y la Contraseña los datos que inserto en la columna (C2) Ahora, con respecto a la apertura de la página de Internet que quiero, no hay problema, este concepto es excelente y funciona muy bien. El problema surge cuando quiero insertar siempre en la página web el nombre de usuario y la contraseña precargados por la celda (B2) (C2) ¿Cómo puedo resolver est…

Hola buen día a todos. tengo una macro de asistencia, lo venia trabajando en windows 7 sin problema, pero al migrar el equipo PC a windows 10, manda este mensaje de error, adjunto archivo, por su valioso apoyo les anticipo las gracias, bendiciones ASISTENCIA.xlsm

Hola a todos, estoy dándole vueltas y vueltas y no veo por donde meterle mano. Lo que pretendo es distribuir un texto de forma homogénea dentro de un textbox miltiline, es decir que una vez digitado todo el texto pulsemos Enter y el contenido del mismo quede distribuido tal cual se muestra en el formulario incluido en el archivo adjunto. El Textbox tiene en este caso un límite de 30 caracteres por linea. Alineado Textbox.xlsm

Hola, necesito saber cómo hacer ésto: Es parte de un inventario, en Excel, cada casilla de la columna tiene un texto como la siguiente línea 1 y el resultado final quiero que sea como el de la línea 2: el texto entre <i> e </i> en cursiva y el resto normal y cuando lo cambie, eliminar las dos marcas de inicio y final <i> e </i>. Cada línea quedaría así: 1 Hopkins, Gerard Manley. <i>The Collected Works of Gerard Manley Hopkins. Volume Iv: Oxford Essays and Notes 1863-1868</i>. Edited by Lesley Higgins. Oxford: OUP, 2006. 2 Hopkins, Gerard Manley. The Collected Works of Gerard Manley Hopkins. Volume Iv: Oxford Essays and No…

Hola a todos de nuevo. Yo y mis problemas. Ahora lo que necesito es insertar una fila en blanco cuando cambie el valor de una columna determinada. He creado la siguiente macro, pero no me funciona Sub Inserta_fila() 'Insertar fila en blanco cuando cambie el valor de la columna D Dim lngRow As Long, intRow As Long Range("D1").CurrentRegion.Sort _ lngRow = Cells(Rows.Count, 1).End(xlUp).Row For intRow = lngRow To 2 Step -1 If Cells(intRow, 1).Value <> Cells(intRow - 1, 1).Value Then _ Rows(intRow).Resize(1).Insert Next intRow End Sub En la columna D existen valores duplicados: 101 101 101 102 102 102 111 111 111 lo que quiero es que cada vez…

Alguien sabe si existe código vba para hacer copias de archivos de una carpeta a otra. En este caso necesito una macro que me copie varios archivos pdf de una carpeta a otra conforme los va encontrando. Ya tengo el código para encontrarlos. Lo que necesito es el código para copiarlos. Gracias de antemano por su ayuda

ayudenme por favor a completar el registro de cotizacion mediante formularios, estare bien agradecido a todos quienes aporten con sus ideas gracias...

Hola de nuevo, tengo un programa (sacado de consultas por foros de Internet) que me funciona perfectamente, se trata de cambiar el color de una forma, (es un círculo) pero no consigo hacer lo mismo si tengo 10 o mas círculos, como puedo hacerlo ? Mando código para una forma pero como hacer para cambiar a mas formas ? Gracias a todos Private Sub Worksheet_Change(ByVal Target As Range) 'Updateby Extendoffice 20160704 If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) Then If Target.Value < 100 Then ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed ElseIf Target.V…

Hola, chicos, cómo están? Lo que vengo a consultarles a hoy sé que es simple, pero lamentablemente no me las puedo ingeniar... Tengo una hoja de excel donde hice una especie de "tracker" y selecciono el nombre de una persona, y me trae toda la información que recopila de otras hojas, incluso una fotografía. Las fotos están en un directorio llamado "imágenes" y coinciden con el nombre de la persona. Lo que quiero es que en caso de que NO EXISTA IMAGEN para esa persona, se muestre una imagen llamada "marlies.jpg" que se encuentra en el mismo directorio (actualmente si no hay imagen, me muestra la última imagen cargada). Este es el código: Private Sub Worksheet_Change(B…

Estimados amigos: Hace pocos días tuve una consulta a este mismo foro debido a un proyecto que estoy realizando en mi trabajo. Solicité apoyo para poder hacer una búsqueda en todas las hojas de un libro a partir de una celda de la hoja "RESUMEN DEL DIA". El respetado forista/moderador JOSHUA me ayudó muy gentilmente y me dio el código VBA (abajo) para el esquema que pasé como ejemplo (ver adjunto "Libro2"). He querido "amoldar" dicho código (líneas abajo) a mi proyecto real (adjunto "Pruebai") y ahora no puedo. Sub Resumen_Dia() Dim n As Rangefecha = Sheets("RESUMEN DEL DIA").Range("B3")For i = 2 To Sheets.CountX = Sheets("RESUMEN DEL DIA").Range("A65536").End(xlUp).R…

Les comento: Me solicitaron que en función a ciertos % de avance que obtenga cada Provincia, se le adjudicara un color en particular (el usuario los podrá cambiar) no es complicado solo que me hace falta el Mapa en excel (Shapes) por Provincias. Si alguien lo puede compartir genial o si ya existe algo en el foro... mejor. Saludos desde México.

Hola, hay alguna forma de que si al realizarse una búsqueda y luego moficiar "X" dato, éste, se actualice en la base de datos directamente? es decir, en la fila correspondiente sin tener que hacer otra macro para realizar este trabajo?. Adjunto el archivo: En la página Buscador, traigo los datos de la base de datos, lo que quiero, es que si modifico algo en esta hoja, tenga la opción de guardar los datos modificados... Tal vez, con un botón opcional que diga, actualizar datos.... No se me ocurre como hacerlo... Muchas Gracias LIBRERIA 1.xls

Saludos intento acelerar una macro con screenupdating y calculation=xlmanual ya quese recomienda hacerlo pero no le he visto aceleracion notable al usar la ultima, ¿ cual es la funcion de esta sentencia realmente?, que es lo que hace y en que caso veria su utilidad? gracias

Buenas tardes a todos, es la segunda vez que hago consultas, espero explicarme bien, en el archivo adjunto tengo dos pestañas, la primera es el archivo que se descarga de un checador en la oficina, es una lista de entradas y salidas de cada empleado de la empresa, en color amarillo separé la fecha de la hora, por que según yo las necesitaba independientes para obtener el resultado que quiero, pues tengo que hacer el reporte más digerido para presentar los retardos de cada empleado, en la segunda pestaña trabajé el reporte de esa semana, pero si me resultó muy tardado hacerlo, entonces aquí viene mi consulta: ¿pueden ayudarme con una macro que automatice todo lo que tuve q…

Hola, en mi trabajo me pidieron que tratara de extraer datos de una tabla para ponerlos en otra de otro depto. Estos datos deben cumplir ciertos criterios de buscar un dato de acuerdo a un número y fecha asignado en la tabla 1, y colocarlos en la tabla dos, en la fila que coincida el número y fecha asignado, no se si me explico, pero he creado lo siguiente: Sub Macro1() ' ' Macro1 Macro ' Completado '' Acceso directo: CTRL+i ' Dim mx1 As Double, mx2 As Double Set lb1 = Workbooks("copia Registro Ofic. a Ctta..xls").Worksheets(1) Set lb2 = Workbooks("Copia de 2.011.xlsx").Worksheets(1) n = ActiveCell.Row lb1.Activate Range("a1:b150").Select Selection.ClearCont…

Que tal compañeros, quiero saber que numero indice corresponde a un elemento, entiendo que el primero es cero hasta N elementos, pero desconozco el por que por que parece que cuando le pongo Combobox.RemoveItem (2) Combobox.RemoveItem (3)[/CODE] Borra los datos del siguiente indice por ejemplo 3,4. En el ejemplo del excel tengo dos combobox en funcionamiento, que si se selecciona CONDOMINIO del primer combo que dice registro patrimonio (segundo combobox), nomas quede PREHISPANICO, LATIN, EGIPCIO y se borren todos los demás del JAPONES al Africano. son siete elementos de registro patrimonio en total, si pongo el 7 en el remove me marca error de argumento no valido e…

Muy buen día, tarde, noche. Me he buscado en la web y no he podido encontrar respuesta a lo que tengo en mente. He creado una UDF, y funciona muy bien, el problema que tengo es que al momento de usarla en una hoja, no muestra los argumentos necesarios para que funcione correctamente la fórmula. La pregunta es: ¿Se puede lograr que se muestren los argumentos necesarios de la función en una hoja? Es decir, así como cuando se usa la función BuscarV, que en pantalla se muestran los argumentos necesario ("valor_buscado, matriz_buscar_en, indicador_columnas, [ordenado]") No se si es necesario subir archivo para esto, pero pego aquí la formula que he cre…

Saludos, un favor grande me ayudan se desarrollo unas macros en excel 2016 pero no se ejecutan en versiones anteriores como excel 2013. Se que existe una opción para que se habilite o des habilite la compatibilidad de ejecutar las macros en cualquier versión. El problema que no me acuerdo. Por favor me ayudan. Gracias

Buen Dia tengan grandes expertos de la programacion, acudo a ustedes para ver si me pueden auxiliar respecto a un tema que aparentemente esta muy sencillo pero por mas que le doy vueltas no logro que me salga, espero su valiosa colaboracion para poder terminar esa parte que me hace falta, les explico brevemente pues se trata del registro de 3 campos en una hoja mediante formulario el cual en su parte de inicialize hace o realiza un numero consecutivo, mi problema radica aqui en hacer que ese consecutivo se haga deacuerdo a un formato el cual es el siguiente: 34-07-00-000020-A en el formato lo que quiero que vaya cambiando es lo que esta con negritas, (osea 34-0…

Hola a todos, tengo una lista gigante de modelos de productos en excel la cual quiero insertar a cada modelo su respectiva imagen mediante una macro, es decir, en la columna B tengo una infinidad de modelos de productos y en la columna A quiero que se inserte la imagen correspondiente de cada uno de esos modelos, ejemplo: [TABLE=width: 500] [TR] [TD=align: center]A[/TD] [TD=align: center]B[/TD] [TD][/TD] [/TR] [TR] [TD]imagen del modelo[/TD] [TD]modelo[/TD] [TD][/TD] [/TR] [TR] [TD][/TD] [TD]AA0001[/TD] [TD][/TD] [/TR] [TR] [TD][/TD] [TD]BB0002[/TD] [TD][/TD] [/TR] [TR] [TD][/TD] [TD]CC0003[/TD] [TD][/TD] [/TR] [TR] [TD][/TD] [TD]DD0004[/TD] …