buenos días, expertos necesito de sus ayudas respecto a una dificultad que tengo en mi proyecto en las hojas de Stock y entradas (In) con las formulas que me sale de resultado cero y falso, e buscado de una u otra forma y no llego a solucionar. Es un pequeño sistema de inventario con dos tipos de entrada (Bales In, Bales IN Press) y que también registra las devoluciones (Yard Returns) y con todo eso necesito soluciona la formula en la columna (Bale Ave Weight) y por ahí derrepente tengo errores en la hoja salidas (Out) si fuera así estaré agradecido eternamente por sus ayudas...Gracias Adjunto el archivo. Inventario.xlsm

Saludos Estimados, tengo una función que al imprimir me guarda información y datos de algunas celdas de un formulario abierto, en un archivo (dato2.txt), este archivo contiene mucha información que se ha almacenado desde hace mucho tiempo, este archivo de texto es abierto de vez en cuando para verificar la información allí guardada, pero en algunas ocasiones se ha visto modificado por las personas que lo abren, por lo que se me ocurre generar uno nuevo con la misma información, es decir tener dos archivos idénticos pero que la información se cargue idéntica, no hago copia y paste del archivo ya creado porque aunque la información guardada esta guardada, necesito el otro d…

Buenos días; Que tal estáis tod@s?? Hoy me ha surgido un problema que no se cómo solucionar por más que leo en internet, haber si me podéis ayudar. Tengo una macro que hace una consulta SQL de un Excel a otro ( hace un filtro y pega los resultados en otra hoja ) el problema que tengo es que una de las columnas con datos ( no la del filtro ) tiene texto y números y solo me trae los valores con números, los valores de texto no los trae. Esta es la secuencia: Query=select columna 1, columna 2, columna 3 from [" & "hoja$" & "] where In" & filtro & " orden by columna2 asc" Muchas gracias de antemano.

Cordial saludo, gracias a todos por sus aportes... Deseo impedir que los usuarios de mi aplicación tengan acceso a las opciones de excel, en el ID de VBA, en This WorkBook, tengo varias opciones para no permitir el acceso, adjunto código; pero si tecleo el comando abreviado Ctrl + P (Imprimir), se abre el menú que permite hacer modificaciones en opciones avanzadas, Compartir, Publicar, Información del archivo, que pueden ser modificados desde esa ventana. Lo que deseo es Cancelar todas esas opciones y dejar "Libre", solamente la opción de "Imprimir", que no encuentro por ningún lado... Por favor requiero su ayuda... Private Sub Workbook_Activate() ' Evita copia…

Saludos. El caso es el siguiente: yo comparo el valor de dos celdas y el resultado lo coloco en otra celda. Ejemplo D1=A1-C1. Si el resultado es negativo (por ejemplo -300), quiero que emita una alerta sonora con un mensaje de voz "producción baja". Gracias!

Buenos dias.amablemente les pido lo siguiente, les agradeceria su colaboracion establecer un rango entre 4 columnas de distintas hojas, comparar estas columnas, buscar los datos iguales de las mismas, y si encuentra estos datos establecerles el color amarillo en la columna donde encuentra los datos.

Buenas tardes!!! Soy nuevo por aquí asi que ya os doy las gracias por adelantado. Estoy teniendo un problema al copiar y pegar una celda con Hipervínculo a traves de macros. Tengo una macro que ejecuta un copy / paste de varias deldas de una hoja a otra hoja, pero no consigo que me respete el hipervínculo Tengo el vínculo en la celda "B15" de la hoja "BCR" que quiero copiar en la celda "G127" de la hoja "FILM". Actualmente el hipervínculo lo tengo con Anchor text "Web" o "FTP" , pero me daría igual mostrar toda la dirección web si es más sencillo. Mil gracias por la ayuda!

Hola buenas a todos. Hace unos cuantos días estoy intentando trabajar con datos filtrados porque necesito que los datos filtrados en la columna A (No. Pre Factura) quisiera que se concatenaran, he probado varias formas, pero por desconocimiento no he logrado nada, cuando lo intento me concatena todos los datos estén visibles o no. Lo mismo con las columnas G, I, K, M, O, Q (COD1, COD2, COD3, COD4, COD5, COD6) que busco la forma de unir todos los códigos iguales y que me sume sus respectivas cantidades probando con tablas dinámicas, con la función subtotales, pero igual no lo he logrado. Les agradecería si me ayudaran a resolver mi problema. Gracias Dejo aquí el docum…

Hola cómo están? Les comento que muy amablemente en este foro me ayudar a ponerle un buscador al estilo google a mi lista de precios, pero tengo un problema, cualquier persona que la abre que tiene excel 2003 y le deshabilita las macros diciendo problemas de seguridad, hay alguna manera de que esto no pase y que lo puedan abrir sin problemas? Muchas gracias.

Buenas tardes, Me pueden ayudar con una macro, quiero traer ciertos datos con un rango de fecha y me quite los folios duplicados. De antemano gracias Saludos Julio González Grafica.xls

Buen día estimados amigos vengo de nuevo con un problema que espero que me pueden ayudar, veran tengo un proyecto que necesito entregar para el jueves todo ya casi esta terminado pero tiene unos detalles que no me convencen veran, necesito que sea totalmente funcional miren el problema es el siguiente tengo que hacer que mi factura funcione automaticamente, tengo una "macros" o codigo de programacion (no se si asi se llama no tengo mucha experiencia en el tema), que hace lo siguiente en mi menú la tengo asignado a un botón llamado Iniciar gestor de inventarios, bueno ese boton me abre un menú que dice muhcas cosas el boton de ese menú que realmente me importa que funcione…

Hola a todos: Quisiera que puedan ayudarme en una parte del codigo que me falta sobre interactuar excel con Microsoft Outlook. Resulta que tengo una macro actual que adjunta un archivo de excel a Outlook, Lo que deseo es que en vez que se envie el correo es que se guarde en borrador. Espero que me hayan entendido y agradeceria su ayuda. Estoy adjuntando el archivo. Saludos Muestra_outlook.xlsm

Buenas, necesito saber como puedo unificar hojas de varios libros, tengo que trabajar varios libros que me llegan ( 4 ) con el mismo numero de hojas cada uno y mismos nombres, y necesitaria unificarlas todas en el mismo libro para extraer los datos. Saludos.

Buenas tardes, necesito, por favor, una macro para que cuando yo tenga una base de datos con muchas fechas e introduzca una nueva fecha que esté repetida, aparezca un mensaje que diga "esa fecha ya está usada" Muchas gracias!!!

Buenos días colegas. Espero se encuentren bien de salud. Hace algunos días comencé un nuevo proyecto para llevar la Contabilidad en un Negocio que es de mi hermano. Apenas comienzo, pero tengo varios problemas a pesar de ser Contador (pero no programador). El tema que me ocupa hoy es el siguiente: Tengo una Hoja (Plan de Cuentas) donde tengo el Catálogo, pero es necesario agregar Cuentas nuevas a medida que el Negocio avance como son Proveedores, Clientes, Bancos, Ingresos, etc... Tengo una macro que he creado, pero no me ORDENA como requiere el Catálogo, Me inserta bien los datos (Jerarquía, Numero de cuenta, Titular y Naturaleza), pero lo ordena de m…

Amigos tengo este pequeña consulta, veran tengo en excel undata bajada de mi DB la cual despues modifico poniendo un dato en la columna B, ahora quiere exporta eta informacion a la DB falta como este en el archivo adjunto. mediante macro se puede realizar esta tarea, subir la tabla y el dato que esta en b1. por favor me pueden dar una ayuda, como podría realizarlo. Adjunto archivo y imagen de la conexión que utilizo Saludos Muscaria Zonas.rar

Buenas tardes, tengo esta macro que lee caracter a caracter y los concatena con su mismo formato, en este caso concatena manteniendo color de ambas celdas. La he probado y es muy lenta cuando hay muchas lineas con muchos carcateres en cada celda. Como en realidad sólo tengo texto en dos colores que se encuentran siempre en celdas separadas, no sé si se podría optimizar y hacerla más rápida y ligera. Os copio el código y adjunto ejemplo: Sub COPYPASTECOLORINDEX() Set myRange = Range("A:B") 'aquí le digo el rango del aprimera columna For Each c In myRange.Cells If c.Value <> "" Then If c.Offset(0, 1).Value = "" Then …

Buenos dias, Yo tengo un proyecto de excel con macros, que necesito llevarlo a una tablet por motivos de movilidad en mi empresa me lo estan pidiendo, pero por lo que he leido no funciona en cualquier tablet. Me podrian ayudar diciendome que tablets o modelo debo comprar para que funcione correctamente y no tenga que comprar algo de lo que me arrepienta y no funcione. Desde ya muchas gracias. PD: en mi pc uso Office LTSC 2021, con ese programe las macros.

Buenas a todos. Tengo un libro con 13 hojas, de las cuales me gustaría poder guardar SOLO LA PRIMERA en otro libro, que esta lleve los valores de celda y no las fórmulas, y que guarde en una ruta determinada (y sobrescriba al anterior). Todo esto que se hiciera en automatico cada vez que yo guarde el libro original... Es posible? Alguien que me pueda ayudar? Gracias de antemano, les envío saludos. - - - - - Mensaje combinado - - - - - Me puse a leer varias respuestas en este foro, y armé una solución, en base a muchas, me funcionó, y se las comparto: Sub NuevoLibroConValores() Sheets("NATIVO").Copy Cells.Select Selection.Copy Selection.PasteSpecial P…

Qué tal, tengo un problema tratando de copiar y pegar de un libro a la última fila disponible de otro libro, tengo una macro que con cuadro de diálogo me ayuda a seleccionar el archivo que quiero copiar y pegar dentro del libro en el que estoy ejecutando la macro, hay algo mal en mi macro ya que cuando trato de actualizar la tabla dinámica me aparece que el libro en el que estoy trabajando ya tiene datos y que si deseo reemplazarlos, cuando hago esto a mano, no me sale ninguna ventana y todo está bien, algo está haciendo mal pero no sé qué es. A su vez me proporcionaron una macro que me copia y pega como deseo pero el problema está en que cuando trato de implementarl…

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 …

En mi libro (cuadro de necesidades), Tengo varias hojas (Regidores, Imagen, OCI, Secret., Archivo, Partic. Ciudadana, etc, etc,), las cuales se suman o se consolidan, todas estas, en una hoja resumen llanada Consol.Mi gran problema es cuando hay la necesidad de ingresar items nuevos (Otros) en cualquiera de estas hojas, estos items nuevos tienen que agregarse en todas las hojas y también todas las hojas deben ordenar estos items alfabéticamente, para que al final salga igual mi resumen o consolidado.Necesito una macro que me simplifique esta tarea.Tener en cuenta que hay mas de 40 hojas que por razones de espacio las he recortado y tener en cuenta también que hay diferent…

Hola a todos, sucede que tengo una macro que procesa bastante información, y cuando termina de ejecutarse, si la hoja de excel activa tiene una cantidad de información razonable la cinta de opciones se traba y aparece transparente y no puedo hacer clic en ningun boton de la cinta de opciones. (como aparece en la imagen) si la hoja activa no tiene información o tiene muy poca, la cinta de opciones funciona sin problema. la unica forma que he encontrado para solucionarlo es cerrando el excel y volviendolo a abrir. Pero quisiera saber si existe una manera de evitar esto y resolverlo sin cerrar el archivo. No se si alguno de ustedes ha tenido problemas …

hola, chicos, tengo un problema con mi proyecto de VBA en Excel, y estoy parado, y no avanzo, por muchas vueltas que le de no doy con la solucion, a ver si alguno de vosotros teneis la sabiduria que no tengo yo, y me echais un cable. Gracias de antemano Os expongo el codigo y os digo que tipo de error me salta y donde salta. Private Sub cmbActualizar_Click() Dim jugador As String jugador = Me.cmbNomFutbolistas.Value Range("B1").Select Do Until ActiveCell.Text = jugador ActiveCell.Offset(1, 0).Select If IsEmpty(ActiveCell) Then Exit Do End If Loop ActiveCell.Offset(0, -1).Text =…

Buenas: Queria saber si existe alguna propiedad tipo autosize del listbox. Un ejemplo de base de datos: PAISES ARGENTINA ARGELIA BRASIL GRAN BRETAÑA GRECIA Guayana La idea es escribir en el combobox, la letra "A", y en el listbox solo muestre los datos encontrados, en este caso solo Argentina y Argelia y en el caso que escriba "G" solo mueste, Gran Bretaña, Grecia, Guayana sin ocupar espacio de mas, o sea, que solo expanda de acuerdo a las coincidencias. Gracias