Hola! Exelente foro, tengo un problema ya que no puedo correr el bucle, bueno explico lo que quiero hacer, tengo varias columnas y de las cuales cada fila cuenta con un valor diferente, en una nueva columna se debe sacar el numero mayor de cada fila, despuès de eso en otra columna se debe hacer con un bucle la resta del numero mayor con cada una de las columnas y cada que sea 0 asignar un nombre, pero me sale el error 1004. este es el codigo: f = 1 For Each o In Range("R2:R6362").Cells Nombre = "" b = 0 f = f + 1 For porce = 0 To 7 Set a = Worksheets("ejemplos").Cells(f, porce) a = a + 1 If (o = 0) Then o.Value = "Sin datos" Nombre = o.Value End If If (o.Va…

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…

Buenas a todos, Estoy buscando como evitar que sin necesidad de proteger una hoja evite que copien y peguen formulas. Encontré esto Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.CutCopyMode = False End Sub [/CODE] Pero permite que se arrastre una formula. Es posible evitar que se arrastre una formula?? Saludos y gracias de antemano!

Buenas tardes, Estoy seguro que me podran ayudar con esto tengo un problema con el boton guardar, es para un historial de facturas no me resulta nose si alguien lo puede revisar y me dice que pasa dejo el documento anexo en la hoja datos esta el programita. es para guaradar un registro de ventas gracias. cotizacion victor 1.rar

Con el permiso de los encargados Por favor como actualizar las existencias: entradas y salidas de un hoja de excel de entradas y otra de salidas a una hoja que se llama existencias todo esta hecho en excel (Codigo vba) De antemano gracias

Buenas tardes tengo un problema que no he sabido solucionar preguntándole a San Google. A ver si me podeis echar una mano. Tengo diferentes archivos de excel denominados con los nombre de cada trabajador. En ellos van apuntando sus actuaciones de trabajo y son personales y mensuales. A final de mes me los envían y me gustaría tenerlos unificados en uno sólo para luego tener una tabla dinamica global. NO quiero que todos utilicen el mismo archivo sino que cada uno tenga el suyo. He creado un archivo separado denominado "Control general de horas" donde quiero que me inserte todos los campos de los distintos archivos que los trabajadores han ido creando. en este caso "L…

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 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…

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

buenas cogi el turbofiltro en userform cambie lo que necesitaba cambie el nombre le la hoja oculta por "CARGA" los nombres publicos tambien en fin bastantes cosas, a la hora de abrir no me da problemas si ingreso codigo tampoco pero de hay como que deja de trabajar de manera rara pues no me tira ningun error de compilacion ni nada de paso para no crear un segundo post tengo problemas con la modificacion desd el listbox e estado viendo en temas ya resueltos sobre este mismo tema pero no saco nada en claro vi uno que hizo macro antonio de una agenda, estaba muy bonito pero no le agarre la cosa pues no tengo idea de donde sale por ejemplo "filamodificacion", igual me paso c…

Hola a tod@s Tengo una hoja de excel en la que introduzco los datos de una ruta de montaña. Esta hoja la he conseguido tener, gracias al inestimable e imprescindible trabajo de Antoni. Ahora la duda, teniendo esa hoja, es la de poder calcular los tiempos de ruta. Tengo todas las fórmulas para el cálculo de dichos tiempos metidos en la hoja, en un apartado dentro del código, lo he marcado como: '-------------------Inicio '-------------------fin Esas fórmulas son las que me calculan los tiempos de cada tramo de la ruta. Pero yo las tengo para el cálculo de punto a punto de forma individual, y descnozco como se debería de hacer para que esas fór…

buenas tardes, tengo el siguiente código para navegar por paginas web, pero navega en segundo plano, que debo agregar al código para que se pueda abrir y visualizar la pagina que abre la macro? Sub testnavegar() Dim htmlDeRespuesta As Object Set htmlDeRespuesta = CreateObject("htmlFile") With CreateObject("msxml2.xmlhttp") .Open "Get", "https://www.google.cl/", False .send htmlDeRespuesta.body.innerHTML = .responseText End With On Error Resume Next Range("d4").Value = htmlDeRespuesta.getElementsByid("gNO89b")(0).innerText On Error GoTo 0 End Sub muchas gracias

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…

cordial saludo tengo el siguiente código para minimizar un formulario: Option Explicit ' Declaración de variantes para los botones de maximizar y minimizar 'para OS 34 bits 'Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 'Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 'Private Const WS_MINIMIZEBOX As Long = &H20000 'Private Const WS_MAXIMIZEBOX …

Hola a Todos el Equipo del Ayudaexcel tengo una duda de como insertar un texto a una celda a travez de una macro la unica manera que se me ocurrio fue esta: Range("d11").Select ActiveCell.FormulaR1C1 = "matematicas" Pero siendo varios textos me salta muchas veces la seleccion por EJEMPLO: celda b10= texto(matematicas) celda b150=texto(quimica) celda b80=texto(algebra) esw decir me selecciona la celda b10 baja la seleccion a la celda b 150 y luego sube a la celda 80 Mi duda es que si puedo insertar el texto a la celda a traves de una macro x un commanbutton de una manera que no me tenga q seleccionar la celda Gracias de Antemano Mis Cordiales Saludos

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] …

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…

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…

hola como estan mis estimados colaboradores me veo en la necesidad de realizar una idea que no he podido aterrizar y es hacer una especie de regulador de fechas donde requiero que cada vez que se inicie un formulario (donde tengo dos DTpicker y un label ) el DTpicker1 muestre la fecha actual y el DTpicker2 muestra el valor de una celda (que es una fecha), entonces lo que quiero es hacer la comparacion de dias donde quiero que me muestre la cantidad de dias transcurridos desde la fecha (valor de la celda) hasta la fecha actual; asi tambien como puedo comparar fechaActual con fecha1: es decir que: si la fechaActual es mayor 3 dias transcurridos en comparacion con la fech…

Buen día todos los del Foro Si pudieran darme una mano con esto, se los agradeceré, tengo dos planillas los cuales adjunto. Uno de Origen y otra de Destino, la de Origen contiene datos los cuales quisiera pasarla a de Destino, pero solo algunas columnas (Origen), y que sean pegadas algunas en las mismas columnas y otras colocadas en otras columnas en la de Destino, todas ellas a partir de la fila 3(tres) en la planilla Destino. Las columnas son las siguientes: Columna de Origen B------àDestino B Columna de Origen C------àDestino C Columna de Origen E------àDestino D Columna de Origen F------àDestino E Columna de Orig…

Hola a todos, Hace muchos años, creo que en el 2009-10, tenía que contenar contenidos de filas y puse un post ( [SOLUCIONADO]Concatenar Filas ) donde me resolvieron el problema con una macro que he estado utilizando hasta ahora, ahorrándome montón de trabajo. La cosa es que ahora me haría falta modificar esa macro para que igualmente concatenara filas de las tablas que se encuentran en dos hojas diferentes. Diriamos que una hoja llamada Tabla1 y otra hoja llamada Tabla2, que cogiera cada unas de las filas de la Tabla1 y las contatenara con cada una de las filas de la Tabla2 en una nueva hoja de Tabla de Resultados (las dos tablas tienen en principio el mismo núm…

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

Hola, estoy realizando una hoja para llevar las estadistica de baloncesto del equipo de mi hijo y una cosa que me gustaria es ir marcando en las posiciones donde falla o donde mete la canasta, para ello, realice una plantilla con mas o menos la forma de media cancha de basket, Lo que necesito es como puedo copiar el valor de una celda (Hoja1 - Rango A1) en la Hoja2 - y la posicion se la doy con el ratón, mas o menos en la posicion del lanzamiento. Tendria que pegar el valor justo despues de selecionar la celda y luego,volver a la hoja1 - Rango A1.. Ya tengo preparado el formato para que si es error de tiro, salga en rojo y si acierta, en verde. Muchas gracias de anteman…