muy buenas noches a todos necesito una ayuda en poder realizar un consolidado con codigo de vba es poder copiar de un libro a y pegar a otro libro excel . Del archivo 1, poder copiarlo en el archivo consolidado en la hoja1 , el archivo 2 copiarlo en el archivo consolidado enlCONSOLIDAR.rara hoja 2 asi sucesivamente estariia muy agradecido de quien me ayude grasias CONSOLIDAR.rar

Estimados podrian revisar la macro que efectua busqueda con filtro. Registro anticipos y adelantos.xlsm

Buen día solicito su apoyocon un macro o un formato condicional en el cual pueda colorear en automatico un rango determinado de celdas de acuerdo a una fecha inicial y final, dejo el ejemplo en el excel adjunto.Cronograma de salidas.xlsx gracias de antemano por la ayuda

Buenos días; A ver si me podéis ayudar. Tengo una consulta SQL en Excel que me cuenta las fechas por número de semana, todo funcionaba bien hasta este año. Buscando por internet he encontrado la solución ( [vbMonday],[vbFirstFourDays] ) pero no me funciona, no sé qué pongo mal. Esta era la consulta que funcionaba hasta este año ( ahora en la semana 8 me cuenta lo de la 7 ). Query = "Select count (Columna1) from [Hoja1] where Columna1 In" & Datos & "And DatePart('ww',Columna2)=" & SemanaActual & "And DatePart('yyyy', Columna2)=" & AñoActual & "And (Not tipo_Columna3='No' or Columna3 is null)" Esta es con la solución qu…

Hola amigos tengo una macro que inserta una imagen en un control image y en una carpeta de imagenes, funciona bien hace su función casi perfecta, pero tengo un pequeño detalle cuando doy click en el botón donde esta la macro y aparece el explorador de windows y no selecciono ninguna imagen, pero cierro el explorador me arroja un error diciendo "archivo no encontrado".Alguien podrá ayudarme en revisar mi macro y decirme que me falta para que esto no suceda. Gracias por su atención. Private Sub CommandButton4_Click() ArchivoSeleccion = Application.GetOpenFilename ' Elegimos la imagen y la ruta Altas.Image1.Picture = LoadPicture(ArchivoSeleccion) ' cargamos la im…

Hola a todos Tengo una inquietud, he buscado por los foros en la web, pero no he encontrado algo similar. En el siguiente tema plantee una situación respecto de suma en tiempo real, y las respuestas fueron muy buenas. Mi idea es si se puede hacer lo mismo pero utilizando la opción de contar varios textbox de acuerdo a un criterio. Adjunto un libro con un formulario, si código, ya que no se por donde ir. Las variables a contar serian "V", "F". Saludos Cordiales Pedro Venegas contarsi textbox.xlsm

Buenos dias chicos Me gustaría crear una macro que me sumara las cantidades del campo "coste" en funcion de las fechas limite introducidas con anterioridad y que correspondan a cada tipo de producto. Os mando el archivito, porque creo que me explico como un libro cerrado. Un saludo y gracias macro entre fechas.rar

Hola a todos Tengo éstos dos códigos un dos módulos diferentes pero me da error Case sin Select Case, y no entiendo el motivo, si apenas tengo código, eso esto que pongo Y ya de paso, preguntar si el for sería correcto para rellenar celdas con la letra "E", desde la celda que conincida con el valor que contiene la variable instante en la fila número 17, el número de celdas que contiene la variable tiempo Lo que busco, es que, si por ejemplo, progreso tiene el valor "A", instante tiene el valor 4, y tiempo tiene el valor 6. Se empiece a escribir la letra "E", en la fila 17, y desde la celda "E17", hasta la celda "J17", suponiendo que la tabla a rellenar…

Buenas, Necesito ayuda, no domino mucho el excel y no doy con la macro que necesito. Lo único que necesito es crear archivos txt individuales con el nombre de cada celda, encontré una macro que me valía pero lo tenia que hacer celda a celda y necesitaría que lo hiciera por rangos. si se creara automáticamente al guardar nuevos datos sin necesidad de ejecutar la macro perfecto pero seria un add. Adjunto la macro que encontré por si sirve de ayuda. Sub GeneraMiniArchivoDeTexto() Dim myfile As String, mytexto As String myfile = ThisWorkbook.Path & "\" & _ Cells(Selection.Row, "a") & ".txt" If Dir(myfile) <> "" Then Kill myfile mytexto = Cells(Sel…

hola Expertos Como están necesito Ayuda.. Por favor.. Con realizar un puc Agrupado... para moverme libremente por las cuentas Aquí esta el ejemplo.. no importa si es en VBA Como lo harian ustedes Gracias Gracias puc cuentas.rar

Hola amigos tengo una aplicación VBA Excel que en local funciona una maravilla, pero ahora se me ha ocurrido ponerla en red y que la utilicen al mismo tiempo dos usuarios. He pensado en la opción de la interfaz "Compartir Libro" y sorpresa, que ahí han venido un montón de problemas al actualizar datos de un libro u otro, Pregunta por Excel si deseo un cambio o el de mi compañero con un mensaje ambigüo y rarísimo , error 1004 al guardar al mismo tiempo los dos y la verdad es que es un verdadero desastre. Me han aconsejado que pase a ADO pero no sé la sintaxis. Aquí en este proyecto hay bucles en formularios sobre hojas y modificación inmediata de registro en Hojas oculta…

Hola a todos, bueno necesito ayuda para una pequeña macro, lo que haría ésta macro es lo siguiente: -En la hoja Stock Almacén se encuentra el listado de productos en stock, cuando no queda stock de un producto, en la celda correspondiente al producto en la columna de Stock se pone a cero, lo que necesito es que cuando esto ocurra inmediatamente ( ó usando algún botón para la macro) el rango de celdas desde la columna A a la J de ese producto cuyo Stock se ponga a cero se corte y pegue en la hoja Stock Finalizado en la primera fila, y por tanto en la hoja de Stock Almacén el rango de esas celdas cortadas se elimine y se desplacen las celdas hacia arriba. Sólo necesito cop…

Buen día nuevamente, Agradeciendo y al mismo tiempo aprovechando la buena voluntad de ayuda. Necesito un código que realice lo siguiente: Que no pueda guardar si los primieros tres textbox se encuentran vacios y si por lo menos uno de los textbox tiene valor que sí me permita hacerlo, conseguí un cod. pero solamente me funciona con el textbox1. Otro punto sería condicionar los primeros textbox a que acepten solamente números, eso tomando en cuenta que en ellos he colocado un cód. que me permite sumar dentro de cada textbox. Por su ayuda muy agradecido. Condicional p G.rar

Buenas, Me gustaría encontrar una macro o función que me permita buscar en el texto de una celda y en función de lo que encuentre devolver un valor u otro. Por ejemplo... si el valor de una celda es "Carlos"... la fórmula podría buscar si es "arlos" y devolver un "Hola Carlos", pero si el valor es "Luis Manuel"... poder buscar también "Luis" y que te devuelva "Hola Luis"... Es como concatenar varios IF de texto (usando *) y que te devuelva un valor u otro dependiendo de lo que encuentre... ¿Alguien me puede ayudar? Muchas gracias

Hola y gracias por anticipado. Tengo una hoja llamada Producto y otra Entrada En la hoja Producto existen dos campos: Producto y Referencia. Está rellenada de la siguiente manera: Producto Referencia. Chocolate - Blanco Chocolate - Negro Turrón - Chocolate Turrón - Pistacho En la hoja de entrada tengo dos cuadros combinados: Producto y referencia. Lo que yo pretendo es primera instancia es relacionar con un cuadro combinado el cuadro combinado producto de mi hoja entrada con el campo producto de mi hoja Producto. Esto ya está l…

Hola tengo 2 archivos pero al tratar de correr la macro como complemento me da error 424. este es el código, el error esta en esta linea STOCK.AutoFilterMode Then, me sale error 424 no encuentra el objeto por que según no encuentra el STOCK que es una hoja del archivo que abrió. por su ayuda gracias Dim FILE As String FILE = ThisWorkbook.Path & "\" & "STOCK.xlsb" Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(FILE) Then Workbooks.Open Filename:=FILE Else MsgBox "El archivo " & FILE & " no existe.", vbCritical, "ARCHIVO INEXISTENTE" Exit Sub End If If STOCK.AutoFilterMode Then …

Hola buenas, Me gustaría mover automáticamente archivos con un nombre X a una carpeta con nombre X. Adjunto en un zip (ejemplo.zip) el siguiente ejemplo: Tengo las siguientes carpetas: 501 502 Tengo los siguientes archivos: 501.pdf 502.pdf Me gustaría que el archivo 501.pdf fuera movido automáticamente a la carpeta 501. Lo mismo para el resto de los archivos. Un saludo, Jacexcel ejemplo.zip

Hola!! Soy nuevo aquí con ustedes esperemos y alguien pueda ayudarme!! Tengo una macro que me manda información de Excel a Word y a partir de esta información estoy generando un reporte. El reporte fue generado a través de una plantilla de word *.dotx. y esta es abierta con la macro para que se añada la información. Debido a que tengo un procedimiento muy largo lo dividí en varios procedimientos, esto funcionó perfectamente el problema es que cuando comienza el siguiente procedimiento no me toma el documento activo para que siga generando el reporte. En seguida colocó un ejemplo del código: Private Sub Inicio_Click() Dim datos(0 To 1, 0 To n) As String patharch…

Buenos días, gusto saludarles. Tengo el siguiente código: Private Sub cmb_tipo_persona_Change() Dim valor, rango1, celda1, rango2, celda2, rango3, celda3, rango4, celda4, rango5, celda5 As Range Set rango1 = Hoja2.[Personas_Físicas] Set rango2 = Hoja2.[Sistema_de_Banca_de_Desarrollo] Set rango3 = Hoja2.[Empresarial] Set rango4 = Hoja2.[Corporativo] Set rango5 = Hoja2.[Sector_Público] valor = cmb_tipo_persona.Value cmb_tipo_cartera.Clear lbl_tipo_cartera.Caption = "" Select Case valor Case Is = "Personas_Físicas" For Each celda1 In rango1 cmb_tipo_cartera.AddItem celda1.Value Next celda1 …

Tengo un problema a la hora de ejecutar mi macro en ocasiones no existe un nombre en mi reporte, y en ese momento la macro se detiene, como hacer para que no se detenga se que tengo que agregar unas lineas con la palabra "Falce" pero no se se donde adicionarla Este es el inicio de mi macro, que debo hacer para que en caso de que no encuentre "ACTIVO A CORTO PLAZO" siga en ejecución la macro ya que si no tengo en mi reporte la frase "ACTIVO A CORTO PLAZO" se detiene y me manda un error Cells.Find(What:="ACTIVO A CORTO PLAZO", After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xl…

Hola amigos del foro planteo un inconveniente con el formulario que estoy armando, tiene varios textbox el primero es de ingreso de un dato el cual tiene q buscar el segundo textbox, pero de manera automática sin botones, solo es necesario ingresar el dato en el primero para q arroje el dato buscado en el segundo, la situación se complica cuando no hay datos q coincidan en la búsqueda para ello debe aparecer un mensaje indicando si deseo crearlo o no, al aceptar crear el dato no existente se activa el segundo textbox y si no acepto se debe borrar el primer textbox y activarse en el primer textbox para volver a ingresar el dato desde cero. Adjunto muestra. Espero me ayud…

hola expertos mi idea es , si existe algun codigo que elimine los numeros primos en un rango en mi caso "a1:sx42" les agradezco mucho

Hola a todos, en primer lugar os deseo Felices Fiestas a todos. Vuelvo con consultas para ir completando mi trabajo de simulaciones genéticas en Excel. Necesito ayuda con una de las plantillas que utilizo para definir caracteres en la aplicación. En su día @Antoni me ayudó escribiendo una macro para que cuando se seleccionara una celda de la plantilla, esta se coloreara con un color seleccionado previamente. Esto funciona muy bien, pero ahora necesito ampliar la funcionalidad de ese macro para definir más ampliamente los caracteres que uso en las simulaciones. Intento explicar lo que necesito. Adjunto el archivo de Excel con el que trabajo. Están visi…

Hola Buen Día Estoy trabajando con una macro que me muestra un mensaje si se cumplen las siguientes condiciones: Si el dato de la columna H es mayor a 1 muestra un mensaje y si es menor a -1 muestra otro mensaje, estos valores salen de sumar otras celdas La macro ya me funciona (utilice un ejemplo de internet) pero no quiero poner un botón para correr esta macro, sino que cuando este ubicada en la hoja en la que utilizo la función se verifique la información por si sola, en este momento estoy colocando el codigo en ThisWorkbook y funciona bien, pero al cambiar de hoja en el mismo libro se sigue corriendo la macro hasta que se me bloquea el libro. Como puedo correr la…

Muy buenas a todos. A ver, os comento. Tengo una macro en excel 2010 que, a través de un useform, me genera (en la pestaña principal) una fila con con varias columnas. Las dos primeras columnas son las importantes. Además, dicha macro, crea una pestaña con el nombre que hay en la columna A y genera el hipervinculo correspondiente a dicha celda con la nueva pestaña. ejemplo: En el useform pongo "123" y se crea en la celda A5: 123, además de crearse una pestaña con el nombre "123". La celda A5 y la pestaña estan hipervinculadas. También tengo que comentar, que segun se va ejecutando el useform, se van añadiendo filas nuevas con las mismas columnas Esta macro funciona perf…