Hola, Tengo la necesidad de combinar los registros de una matriz (las filas) creando una nueva matriz en otra hoja con el doble de campos (las columnas originales y las resultante de la combinación) de forma que cada registro original se combine con todos los subsiguientes de la matriz. Como ejemplo, si tengo una matriz de 3 campos y 5 registros como la que pongo acontinuación: C-1 C-2 C-3 A B C D E F G H I J K L M N O Necesito una fórmula de excel …

Hola soy nuevo en la programación en vba, tengo un libro compartido en el que al abrirlo se auto ejecuta un macro que hace que el libro se guarde a los 10 mins. de haberlo abierto, este se ejecuta como bucle. Pero tengo un problema, y es que a pesar de que yo cierre el libro de excel, este se vuelve a abrir y ejecutar el macro. Quise usar la opción "Exit Sub" pero no supe cómo programarlo, agradeceré mucho su apoyo. Mis macros para efectuar la tarea son los siguientes: Sub Auto_Open() Hora = Now + TimeValue("00:10:00") Application.OnTime Hora, "Guardar" End Sub Sub guardar() ThisWorkbook.Save Auto_Open End Sub

Llevo varios días leyendo preguntas y respuestas en estos foros sobre macros y he visto que ayudas mucho y por lo tanto te hacen muchas preguntas, nunca creí que tendría yo el honor de que me contestaras a alguna pregunta, muchas gracias me ha ayudado bastante. Soy nuevo en el foro, he estado buscando dentro del foro e indagando pero hasta ahora no logro solucionar la traba que tengo. mi problema es el siguiente: En una hoja de excel un boto abre un formulario para pedir datos de equipo y herramientas a prestar, ese mismo formulario tiene otro boton que abre otro formulario con listbox mostrando, la clave del equipo, otro la descripcion, y otro la disponibilidad, quisie…

Buenas tardes. recurro de nuevo a ustedes para ver si me pueden apoyar. Tengo esta macro que guarda toda la informacion de un userform, pero quiero que se detenga si el Textbox3 no es igual a cero, el textbox3 debe ser iagual a Cero para continuar el procedimiento. Private Sub CommandButton3_Click() 'Seleccionar hoja Sheets("Corte").Select 'selecionar rango de celdas a insertar Range("A10:S10").Select 'Inserta Celdas SEleccionadas Selection.Insert Shift:=xlDown 'Copia y pega los rangos seleccionados Range("A9:S9").Select Selection.Copy Range("A10").Select ActiveSheet.Paste 'Finaliza apliaccion Application.CutCopyMode = False Range("C10").Select 'grabamos los dato…

Hola. Tengo una macro que inserta un archivo PDF como attached file. Lo que ncesito es que además al final del cuerpo del correo agregue una magen jpg que hará las veces de firma. Ya buqué en el foro y no encontré como hacerlo. Anexo el archivo de Excel con las direcciones ejemplo y que también incluye la macro y una imagen que sería la firma. Mil gracias de antemano por la ayuda. Saludos. Directorio De Patitas.xls

Hola a todos, primero que todo dar las gracias por los aportes y comentarios que haceis.. Hoy traigo un "pequeño gran reto", GRÁFICA VERTICAL TIPO PROCESOS La Idea es obtener un gráfico Tipo Procesos (Vertical), y que las Formas (Shapes), cambien de celda dependiendo de los valores registrados en la columna "E"; para cada opción de este Ejercicio ... RANGO DE VALORES desde 0 hasta 100; mostrados en el Rango("F2:P2") La idea es que al cambiar el valor de la Columna "E", el objeto (Shape), se desplace a la columna correspondiente (F; G; H; I; J; K; L; M; N; O; P) Dependiendo del valor registrado en la Celda Range("$E...") La M…

En este formulario hay una sumatoria de los totales de los productos y ya esta perfecto pero cuando el vendedor necesitara ingresar: -iva (se le suma al total generado de la suma de los precios de los productos) -descuento (se le resta al total generado de la suma de los precios de los productos) -retencion (se le resta al total generado de la suma de los precios de los productos) el textbox de "VALOR TOTAL A PAGAR" seria: txtsumaart+txtiva-txtdescuento-txtretencion lo que pasa es que: hay veces que no se ingresa descuento ni retencion hay veces que no se ingresa descuento ni retencion ni iva puede ser variable dependiendo la situacion de todas maneras si no hay…

Buenas tardes gusto saludarles. ¿Alguién conoce alguna opción o Macro, que le de una ubicación determinada a un ComboBox? El asunto es que tengo problemas con una macro que oculta un rango que va de fila 10:40, pero que en las filas 41 y 42 tiene un ComboBox en cada una (mas otros que han quedado ocultos en las primeras filas), y cuando la macro corre me indica que "no puede desplazar objetos fuera de la hoja", aun y cuando esos objetos tienen como propiedades "Mover y cambiar tamaños con celdas". Lo que pasa es que ya no quedan filas en la parte superior para alojar esos comboBox, por eso es que se me ocurre que tal vez exista una forma de ubicar dichos objetos en un …

Hola buenos días a todos , yo aquí sigo trabajando con mi proyecto, en el Modulo 7 he generado un código, que me permite copiar y pegar un rango de datos en un objeto chart exportarlo de forma constante al mismo archivo, insertar, copiar y borrar esa imagen para poder adjuntar a una msg de WhatsApp. Si bien realiza todo el procedimiento tengo dos problemas... uno que si bien yo defino el rango, "Hoja1.Range("A1:F46").Select" al hacerme todo el procedimiento me adjunta 6 hojas en formato imagen en whats app y debería ser solo la primera con datos. y otro detalle es que me gustaría si me pueden ayudar a encontrar una forma que ese rango sea variab…

Buen día a todos, les escribo debido a que acabo de crear una macro que copia y pega información de una hoja a otra, pero no llega a realizar la ultima tarea, que es pegar, y en lugar de hacer esto aparece en la barra inferior de la ventana el siguiente texto: "Seleccione el destino y presione entrar". Les agradezco mucho. Les adjunto el codigo: Public Sub CommandButton1_Click() Dim c As Object '############################################################################################################ 'PASO 1 BUSCAR LA ESTACIÓN EN LA COLUMNA DE ESTACIONES dato = ComboBox1.Value Set c = Sheets("Base").Range("A4: A400").Find(dato, LookIn:=xlValues, Lookat:=xlWhole) …

Buenas. Primero de todo he de decir que soy un principiante en VB, y es la primera vez que entro en un foro, así que pido disculpas por cualquier equivocación que pueda cometer de antemano. Segundo felicito a todo el mundo que participa en ayudaexcel por la gran ayuda que prestan en general, se esté dado de alta o no. Entro en la consulta. He realizado un formulario con Excel 2003 con ventanas de validación que registran los resultados en una hoja llamada “Basededades” y mediante un buscador las devuelve pudiéndose modificar y se pueden volver a grabar en la misma hoja. El problema está en que lo he probado hacer con “userforms” y “Comboboxs”, y no consigo realizar t…

Buenos dias Llevo toda la mañana buscando por el foro a ver si hay algo parecido a lo que busco, ero no encuentro nada. A ver si alguien puede ayudarme. Lo que busco, es una macro que al darle, me deje elegir un pdf de mi pc y me lo ajunte como icono en una celda en esa misma fila... con la posibilidad de modificar esa misma macro para varias filas mas. Vamos que pueda tener varios pdf´s colocados igual, cada uno en su fila. Gracias de antemano Saludos

Buen día, Soy nueva en el foro y además no tengo mucha experiencia en el manejo de macros. Estoy creando un código para asignar un valor específico. Para asignar dicho valor, primero se tiene que cumplir la condición que una fecha esté entre dos fechas. El código desarrollado hasta el momento es el siguiente: [/B]ActiveSheet.Range("BN" & Fila).FormulaR1C1 = "=DATE(MID(RC[-49],1,4),MID(RC[-49],5,2),MID(RC[-49],7,2))" 'Esta es la fecha a evaluar Desembdate = ActiveSheet.Range("BN" & Fila).Value If ActiveSheet.Range("F" & Fila).Value = "EMPRESARIAL" Then If ActiveSheet.Range("BK" & Fila).Value = "DTF" Then If ActiveSheet.Range("R" & Fila).Value =…

Estimados, Segun el archivo adjunto lo que requiero saber es si es posible que con un textbox se pueda cargar la información (de modo multiline) pero en varias celdas , ya que si ingreso de este modo lo que hace es ir a la misma celda y no una debajo de otra. Muchas Gracias por su apoyo y tiempo. Saludos factura.zip

buenas noches, estoy trabajando en una macro para obtener datos web, de a poco he ido aprendiendo como poder obtener objetos desde las diferentes paginas pero ahora he llegado a un punto donde no puedo seguir avanzando, precisamente con lo siguiente tengo este código de pagina fuente <a href="www.google.com" data-original-title="" title=""> <span itemprop="category">Hola</span> "Adios" </a> con el siguiente código htmlDeRespuesta.getElementsByTagName("span")(0).innerText puedo obtener el texto Hola, pero no he logrado dar con la solución para obtener el dato Adios por favor agradecería mucho su apoyo y gracias por …

Hola tengo un libro de facturación casi terminado pero siempre quiere uno una función más, y desde unas de mis hojas denominada "Facturar Albaranes" quiero tener acceso a una carpeta de mis Documentos "Albaranes no pagados" y quiero abrir esa carpeta desde esa hoja en concreto desde el rango (B12:B39) al hacer doble clic en cualquier celda de ese rango para tener acceso a todos los albaranes de un cliente por ejemplo. Tengo algunas macros y me funcionan muy bien, pero no puedo sacar esta. Esto siguiente va en la página pero tampoco me funciona. Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Worksheets ("Albaranes_Facturados") If N…

Hola, tengo el siguiente caso, espero me puedan ayudar; de antemano gracias. En una forma predefinida (rectangulo) de excel he creado un hipervinculo y desde éste llamo a la siguiente macro "hoja excel.xls#Genera_Ficha("V19")", como podran dilucidar el nombre de la macro se llama "Genera_Ficha" y en él va el mando le dato "V19" que me servirá de pivote para realizar busquedas en otro archivo. La situación es que al momento de ejecutarse la macro al parecer queda algo en memoria que no deja ejecutar otras instrucciones y esta macro se ejecuta dos veces. Adjunto rutina de la macro. Sub Genera_Ficha(xNombre As String) 'Dimensionando variables Dim wHoja1, wHoja2…

ESTIMADOS buenas noches , nuevamente vengo... si es posible me ayuden (Pls) en el Userform3 tengo un boton que dice Eliminar ( la idea es que borre datos de la hoja 2 ) y No se como hacerlo ... disculpen me ayudarian con la sintaxis... Descarga Historica 2 eliminar.xlsm

hola diculpe q le moleste recien me estoy iniciando en programacion excel necesito saber como aplicar ruta relativa en excel osea tengo un video y logre incrustarlo en excel lo puedo ver con windows player pero cuando lo llevo a otra carpeta o computadora no me lo reproduce me dijeron que tengo q usar ThisWorkbook.Path o algo asi pero no logro de ningunamanera poder usarlo ejemplo mi archivo y video estan esta direccion : C:\Users\edu\Desktop\Nueva carpeta 3\video.mp4 C:\Users\edu\Desktop\Nueva carpeta 3\libro1.xlsx ahora Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long) Workbooks.Open ThisWorkbook.Path & "\video.mp4" End Sub y no pasa…

Buenos días a todos; -Necesito una pequeña ayudita. A ver si sois tan amables de echarme un cabo. En una hoja Excel y en el evento "doble_click" hay un procedimiento que abre la ventana emergente de archivos de Windows y al seleccionar un elemento me inserta su nombre en un rango de celdas que he determinado. He hecho lo mismo desde un módulo. A este módulo hago la llamada a través de menú contextual de Excel. Supe configurarlo, pero me funciona con todas las celdas. No sé como hacer para que sólo funcione con un rango determinado, (igual que he puesto en el procedimiento de la hoja) Saludos y buen día a todos. Adjunto macro. MModulo.x…

BUENAS TARDES AMIGOS. NECESITO QUE ME AYUDEN CON UNA PROGRAMACIÓN QUISIERA COMBINAR DIFERENTES CELDAS , SEGÚN EL VALOR ASIGNADOS. MUCHAS GRACIAS, ESPERO QUE ME PUEDAN AYUDAR COMBINAR.xls

que tal buenas noches deseo indicar en un textbox el numero de copias que deseo imprimir ejemplo si pongo 1 se imprima una vez si escribo 2 o 3 mismas veces se imprima adjunto archivo donde se encuentra el userform de antemano les agradesco CONTEO.xls

Buenas, necesito de nuevo se su ayuda. Se me plantea un problema al querer automatizar una acciones en excel. Tengo una hoja de excel en la que voy añadiendo una serie de datos, pero al introducirlos por primera vez quisiera poder seleccionar un rango de filas y crear una carpeta por fila con subcarpetas nombradas segun unos datos de la misma fila pero diferente columna. y una vez creada en la carpeta final me copiase unas carpetas fijas que tengo en otra ubicacion. les adjunto el excel donde tengo los datos y deberia quedar D:\gestion\A-"valor celda ARBOL"\prepara\"valor celda ACT"\ y una vez conseguida esta ruta copiar el contenido de una carpeta "PLANTILLAS" dentro…

Saludos En la oficina en la que actualmente laboro se tienen que capturar diferentes datos cada viernes para evaluar diferentes factores de la empresa. Actualmente, esta captura se hace copiando las tablas desde la intranet de la empresa, pegarlas en excel, llenar otras tablas y crear graficos a partir de estas. Las tablas que se tienen que copiar de la web siempre tienen la misma dimension y orden, lo unico que cambia son los valores. [ATTACH]36748.vB[/ATTACH] En la imagen muestro un ejemplo de las tablas que tengo que llenar. Las celdas con la leyenda valores son celdas que adquieren valores de los datos copiados de la intranet, y las celdas con la leyenda …

Buenos días ,Llevo días atascado en un problema relacionado con la función extraer datos. Tengo un nivel de excel muy básico así que cualquier ayuda será de mucho agredecer.La cuestión es que he creado una base de datos excel para gestionar las entradas y salidas de un párquing. El funcionamiento es simple pero eficaz. Se introduce el número de tarjeta o id del conductor y mediante la fórmula extraer se recuperan el resto de datos suyos que le identifican a él y su vehículo (fotografía, nombre, cargo, matrícula del vehículo, marca, modelo, etc), de modo que te indica que está autorizado. En caso contrario, aparece la indicación no autorizado.Estos datos a su vez se copian…