hola Amigos, buenos días! Espero me puedan ayudar realizando esta macro Necesito consolidar la información de 9 archivos de excel en un unico archivo de Excel llamado "Inventario" . Se debe copiar la información en cada uno de los 9 archivos para consolidar una unica fuente de información. TOdos los 9 archivos cuenta con la misma estructura de información. Se debe empezar a copiar la información desde la celda "C6" hasta la cantidad de registros que se encuentren tanto a la derecha como hacia abajo. cualquier inquietud me cuenta y muchas gracias! Inventario - copia.zip

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 amigos, estoy buscando la forma de colocar el mismo código que se encuentra en el archivo 1 y pasarlo al archivo 2 ya que necesito que se me oculten las filas al momento de imprimir, creen que me puedan ayudar por favor, no entiendo muy bien ese código, o si saben de una macro que me ayude con eso, quiero es ocultar las filas que no tengan información con un botón al momento de imprimir, y cuando termine otro botón para mostrarla tal cual esta en el archivo 1. Pido perdón por que se que hay otros foros con el mismo tema pero no encuentro ninguno que se adapte a mi problema. 1.xlsm 2.xlsm

Hola a todos, He creado un código con select case y falta alguna instrucción para que me funcione correctamente. El problema es que si pongo por ejemplo en la columna A1 el numero 1, A2 el numero 2, A3 el numero 3 y quiero que en la columna B1 me ponga el dato que corresponde con el numero de caso me lo hace bien solo la primera vez, cuando pasa a la columna B2 me pone el dato de la columna B1 y así sucesivamente. Pongo el código que tengo. Gracias por la ayuda. Sub Numeros_por_datos() Dim Num As Integer Dim Datos As String Num = ActiveCell ActiveCell.Offset(rowoffset:=0, columnOffset:=1).Select ENTRADA: 'Comprueba que la celda y columna A tenga da…

Hola a todos. Estoy intentando extraer información de las longitudes de las Lineas y Polilineas: 1. El archivo autocad deberá estar abierto 2. En excel me pondrá por cada fila o renglón la información Columna A: Nombre de la Capa Columna B: Número de lineas (En el caso de las Polilineas) si es una linea recta dirá 1 Columna C La suma o total Longitud de cada linea Gracias por su atención y un saludo desde México.

Hola amigos de Ayuda Excel, quiero hacerles una consulta. He estado trabajando en un proyecto el cual he culminado y contado con la gran ayuda de ustedes. El archivo pretendo distribuirlo a nivel mundial (iniciando en países de lengua español). Está en idioma español (archivo/hojas/fórmulas/macros) Fue hecho en Windows 7 y Excel 2013 (español). Lo he probado en otro equipo que tiene Windows 10 y Excel 2019 y funciona bien. La consulta es: - Que consideraciones debo tener para que el archivo funcione en cualquier país. - Debería hacer varias versiones según alguna característica de un país X, cuáles serían los aspectos que cambiar. Gracias!!

Ayuda por favor con un problema necesito que a una celda determinada de una hoja se muestre el resultado de otra celda de una hoja diferente y si esa celda este vacia que busque en otra celda que propondremos en la misma hoja como tendría que ser la formula por favor

Buenos días, Tengo un fichero Excel, con su macro, desde el que envio correos con adjunto de forma masiva. Pero necesito que los accesos directos de los pdf me los traiga automáticamente. ó bien modificar el botón de la columna G, para poder pegar copiar y pegar todas las rutas correspondientes a los archivos, que he sacado en otro Excel con otra macro. Por favor podeís ayudarme. Gracias envio masivo prueba 2.xlsm

Buenas, Tengo una macro, la cual me envía los correos y su adjunto, pero a la hora de adjuntar el archivo, tengo que ir uno por uno. Hay un botón que me lleva a la carpeta y selecciono el pdf, luego en la casilla de alado se escribe la ruta del archivo. Como podría hacer para traerme cada documento a la persona que corresponde con macro? Copio la macro '***Macro Para enviar correos Sub correo() 'Por.Dante Amor col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam = CreateObject("outlook.application").createitem(0) dam.To = Range("B" & i) 'Destinatarios dam.CC = Range("C" & i) 'Co…

Hola, simplemente necesito pasar el contenido de un comentario a un textbox que esta en un formulario. Cuando abro el formulario, selecciono un registro y se me cargan todos los datos en distintos textbox del formulario.Uno de esos text box se tiene que cargar con el contenido del comentario. Gracias

Necesito una macro que cuando encienda la pc se abra un archivo de excel en la fecha determinada

Buenas Tardes: Necesito como puedo hacer Buscar Objetivo en varias celdas. En el ejemplo que les adjunto en la Celda H2, es el importe que sale a pagar después de los descuentos de ley, pero el importe que debe ser para pagar está condicionado de acuerdo al cargo que tienen (Hoja Cargos) y si no se encuentra el cargo, la Celda H2, queda igual. La diferencia que falta para llegar debe ir en la Celda C2. Si en la celda en donde van los datos de los trabajadores (Trabajador), la macro debe parar. A la espera de su apoyo, me despido. Neto a Pagar.xlsx

Muy buenas Me gustaría saber como podría hacer que aparezca mi userform en la barra de tareas al esconder o hacer invisible el excel. he encontrado una supuesta solución en un tema anterior, pero me aparece que el archivo esta dañado. hay alguien que me puede ayudar? Gracias un saludo

Hola! Antes que nada quiero agradecerle a muchos de ustedes ya que muchas veces logro solucionar mis problemas gracias a todos los que interactuan en el foro. Mi problema es el siguiente: En la hoja VENTAS, tengo un boton "Modificar", a partir del cual puedo borrar un registro de venta (Ej: VEN-00006). A su vez, simultaneamente, me tiene que borrar en la hoja COMISIONES, todos los registros que terminen con esa numeracion (Siguiendo el ejemplo, todos los registros terminados en 00006, ya que en COMISIONES los registros comienzan con VEN- y COM-), lo cual NO puedo lograrlo. En definitiva, el codigo que necesito seria aquel que extraiga los ultimo…

Buenos dias a todas, Lo primero agradecer a la plataforma el acceso gratuito en estos momentos. Espero y deseo que todos esteis bien Paso a detallar mi problema, me baje un archivo de la comunidad del gran maestro Antoni,he intentado adaptarlo a mis necesidades y he resuelto algunas cosas y otras no. Detallo los fallos que no soy capaz de sacar: 1º En columna C no me salen los datos bien 2º En la columna D Tengo que poner los nombres con numero porque sino los graba todos en la misma fila 3º En el cronograma si empieza la actividad en el mes siguiente al elegido aparece en el mes selecionado Por ultimo cada vez qu…

Hola, buenos dias tengo un problema en un combobox, el cual lo utilizo para listar categorias y dependiendo de eso listo otra categoria, pero tengo un error cuando el valor de la primera categoria es null o vacio "". aqui el codigo: Private Sub cbo_Categoria_DropButtonClick() Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("BD") Dim i As Integer Dim n As Integer n = Application.WorksheetFunction.Match(Me.cbo_Categoria.Value, sh.Range("1:1"), 0) Me.cbo_Tipo.Clear For i = 2 To Application.WorksheetFunction.CountA(sh.Cells(1, n).EntireColumn) Me.cbo_Tipo.AddItem sh.Cells(i, n).Value Next i Tengo error en la linea n; porque el valor …

buenas noches compañeros de la programacion nesecito de su ayuda otra ves, mi problema ahora es que no puedo comvertir en el combobox los datos para que aparescan las hora como listado antes de consultarlos busque por la web pero las soluciones que me dan no se adaptan a la macro que tengo solo me aparecen en numeros y hay otra pregunta que en que me gustaria que me ayudaran y es en la que si es posible dejar la hoja en donde filtro los datos oculta sin que se pueda mostrar ¿sera posible? bueno gracias de ante mano por la ayuda PRUEBA4.1.xlsm

Buenas Tardes, actualmente me encuentro en proceso de desarrollo de una macro que evalúa ritmo cardíaco por los criterios de evaluación Frimat y Chamoux. En base a esto he hecho varias actualizaciones. Para la última actualización requiero de realzar lo siguiente: Desde una columna de datos determinada, los cuales se van registrando automáticamente mediante un botón desde una celda hacia la misma columna en una misma hoja llamada "Registro", deseo traspasar estos datos a una hoja "Histórico" en una columna determinada de forma que cuando vuelva a registrar los datos en la hoja "Registro", los anteriores permanezcan guardados en la hoja " Histórico" pero los nuevos da…

hola a todos, Primero que todo espero que se encuentren muy bien, bueno yendo al grano necesito ayuda en este pequeño problema, tengo un Combobox y en este se puede escribir, puede escribirse independiente de los valores que esté tenga en la lista. Ya logre controlar si el Combobox se deja vació, ahora necesito controlar este pequeño error. les pongo el código que use para controlar si se deja vació, así me entienden mejor xD Nota: CbbMes (ComboBox) if CbbMes.Value = "" then Msg "Debe seleccionar un mes", vbCritical, "Error" CbbMes.SetFocus Exit Sub End if

Buenos días a todos. He creado un Excel y un formulario de visual basic para guardar datos diarios. Os explico, En la primera columna he puesto los datos que necesito (Temperatura, ph, cloro...) y en el resto de columnas las fechas (01/01/2020, 02/01/2020...) He creado el formulario de visual basic y lo tengo hasta que me lo guarda en la segunda columna (que sería, por ejemplo el 01/01/2020) Lo que necesito ahora y no consigo de ninguna forma, es que cuando vuelva a registrar otros datos me lo guarde en la siguiente fecha o en la fecha que yo quiera. Es decir, si añado un combobox en el formulario con todas las fechas, si selecciono 02/03/2020, por ej…

Hola a todos, mi nombre es A.Maurizio y tengo una nueva solicitud que me gustaría compartir con ustedes. Mi pregunta es esta: en una hoja de Excel con Microsoft Office 2007 ¡En la Columna (A) ingreso códigos que pueden variar del Número "1 - 100 - 135", etc.! Mientras estoy en la Columna (B), ingreso otros números y estos también pueden variar del Número "1 - 100 - 135 - 2 - 0" Etc ...! Ahora mi pregunta es la siguiente: existiría la posibilidad de extrapolar siempre utilizando el VBA Todos los números superiores a (0) que encuentro en la Columna (B) Y cópielos exactamente como están en la columna (J) Asegurarse de que todos los códigos correspondientes que…

Buenas chic@s. En un momento determinado de la macro solicito mediante un cuadro de diálogo la hoja en la que se van a trasladar ciertos datos. Uso esta expresión: hojaDestino = InputBox(prompt:="Introduce el nombre de la hoja", Title:="Hoja de destino de los datos", Default:=hojaActiva) También he probado: hojaDestino = Application.InputBox(prompt:="Introduce el nombre de la hoja", Title:="Hoja de destino de los datos", Default:=hojaActiva, type:=2) La variable hojaDestino la declaro como String y todo funciona perfectamente. La puedo usar para crear una hoja nueva sin problema, o para escribir en una celda concreta de esa hoja…

Buenas, Estoy haciendo una macro que consiste en lo siguiente: Vaya a una carpeta, abra el primer excel, aplique un RefreshAll, lo guarde y cierre, y pase al siguiente. Estos exceles tienen conexiones de datos externas, que son las que quiero que me actualice, pero no lo hace. Pero si lo hago manualmente (abro excel, le doy en Datos a RefreshAll), sí me funciona. Este es el código que estoy aplicando: Sub AbrirArchivos() 'Paso1: Declarar las variables Dim Archivos As String 'Paso2: especificar una carpeta y el tipo de archivo que buscamos. 'En este caso la carpeta se lla "RFC2" y el tipo de dato es "xslx" Archivos = Dir("C:\Users\Desktop\2. RFC2…

Buen día a todos, espero me puedan ayudar... Quiero IMPORTAR UNA TABLA DE "OPERACIONES ABIERTAS" unicamente y que se este actualizando cada determinado tiempo, Me marca un error pero no consigo corregirlo, Sub ObtenerDatosDeLaWeb() Dim htmlDeRespuesta As Object Dim contadorFilas As Long Dim contadorColumnas As Long Set htmlDeRespuesta = CreateObject("htmlFile") With CreateObject("msxm12.xmlhttp") .Open "GET", "http://www.myfxbook.com/members/MiguelSaucedo/991260/5229397/xXdymdQeIfUEo6S2NORp", False .send htmlDeRespuesta.body.innternal = .responsetext 'MsgBox (htmlDeRespuesta.body.i…

Hola, tengo una planilla para cargar datos sobre ingresos y egresos, estos datos se guardan con una macro y se cargan en otra hoja. Las opciones al completar en la planilla son "Ingresos en efectivo", "ingresos por transferencia" y "egresos", el problema es que no quiero que la macro funcione cuando la opción que se elija sea "ingresos por transferencia" ya que la hoja donde se cargan los datos corresponde a una caja real en efectivo (la opción de "ingresos por transferencia" esta por otro motivo). La macro utilizada es así: If movimiento = "Ingresos en efectivo" Then Sheets("caja H").Cells.Range("d5") = importe Else Sheets("caja H").Cells.Range("e5") = im…