Hola, estimados amigos De nuevo por aqui con un trabajo que me lleva todo el dia pero no doy con la formula, tengo varios tex que quiero rellenar dependiendo del valor de la venta, si vendo el 10 % que me indique el total en color rojo y asi sucesivamente hasta llegar al estimado que seria el 100 % en verde, he dejado dentro una breve explicacion, el trabajo esta funcionando, pero no lo hace como deberia, y no encuentro el error, por que ponga la cantidad que ponga, se llenan todos los text Les agradezco su colaboracion Cordiales saludos prueba.xlsm

La pregunta es genérica y de concepto. Cuando abro un userform _ Activate para que me cargue un combobox, si luego lo oculto mediante userform.hide, si llegara a reabrirlo una segunda vez mediante un userform. show, ¿me volverá a cargar el combobox porque se activa, o no porque .Hide no desactiva el userform?. En caso de que Hide no desactive el userform como se desactiva?.

Hola, estoy intentando modificar esta macro para poder obtener una ruta del archivo excel del forma automatica. Cambiar HostFolder = "C:\TestFolder" por la ruta que obtengo de concatenar 2 celdas Sub startIt() Dim FileSystem As Object Dim HostFolder As String HostFolder = "C:\TestFolder" Set FileSystem = CreateObject("Scripting.FileSystemObject") DoFolder FileSystem.GetFolder(HostFolder) End Sub Sub DoFolder(Folder) Dim SubFolder For Each SubFolder In Folder.SubFolders DoFolder SubFolder Next i = Cells(Rows.Count, 1).End(xlUp).Row + 1 Dim File For Each File In Folder.Files Active…

Buen día estimados, En mi trabajo me han preguntado, si puede ser posible que en la hoja de cálculo un par celdas con información no pueda imprimirse con claridad o sea, que no sea muy entendible y además que no se pueda editar copiar la info o guardar como... abosolutamente nada mas que ver el archivo e imprimir de la manera como les describí anteriormente. Bueno lo que se me ocurrió fué de primero proteger la hoja de cálculo y el libro, luego creé un boton llamado "Imprimir", este haría la ejecución que al dar clic sobre el: Primero desbloquea la hoja para poder llevar a cabo la ejecución de la macros, Segundo que el texto de las celdas que no quieren que se impriman…

Buenas, tengo una consulta, tengo una macro que manda los datos a una tabla que uso de base de datos, el tema es que ya se ha vuelto muy extensa y el archivo se puso muy "pesado". quisiera que la BD esté en otro archivo, es eso posible? De paso quisiera que le den un vistazo a la macro que se ha vuelto muy lenta en el archivo original, no se si tendrá que ver que la tabla está muy larga 130000 filas desde ya muchas gracias y perdón por lo desprolijo del ejemplo Saludos Ejemplo.xlsm

tengo un libro con 20 hojas, 1 por cada deposito de vino, la cuestion es la siguiente: -hoja de deposito 1: fecha entrada salida a deposito total 1/1/1 1000 1 1000 "/2/2 100 2 900 -hoja de deposito 2: En la hoja del deposito 2 deberá aparecer esa ultima linea automáticamente fecha entrada salida a deposito total 2/2/2 100 100 2 100 solo se copiaría hasta la celda total, el resto no porque tengo datos externos

Hola, Acerca del ejemplo del cual adjunto un ejemplo, hago la siguiente consulta: En cada celda de la columna A tengo una fórmula. En esas mismas celdas (las de la columna A) el usuario puede escribir un número; por lo cual la formula que estaba en dicha celda se borraría. La pregunta es ¿cómo hacer una macro para que si un usuario escribe un numero sobre la formula, y luego borra dicho número, al quedar la celda vacía en ésta se vuelva a reescribir de manera automática la formula que tenía originalmente? Cabe destacar que no es posible bloquear la celda, porque en la misma columna A se debe poder: o escribir el número que uno quiera, o dejar que actúe la fórmula en b…

En mi hoja menu tengo un listado, lo que necesito es que al ubicarme en la fila de cualquier dato de la columna C, mediante macro, copiar el dato de la columna B de la celda activa de la columna C (donde estoy ubicado) copie y pegue el valor de dicha celda a la celda F1. Desde ya muchas gracias por su tiempo Jesús

Estimados Compañeros Ante todo agradecer por la ayuda que me brindan, ase poco abri un post con este tema (control de stock de productos perecibles) pero lo cerraron por que ya no pude responder los comentarios, uno de los expertos me respondio y me ayudo en el problema (adjunto archivo), en resumen la macro consiste en actualizar una base de datos de productos pero que cuentan con fechas de vencimiento distintas, el problema que tengo ahora es que cuando son varios lotes no actualiza la ultima fecha, por ejemplo: Tengo el siguiente stock del siguiente producto con sus respectivas fechas de vencimiento Poppers 400 Cajas 150 cajas 10-02-15 100 cajas 20-04…

Buenas Tengo un tabla que cambia el valor de la columna S, dependiendo los numeros días transcurrido entre la fecha actual de la columna I y la fecha de visita columna K. Cuando el numero de días es superior al numero de la columna H, cambia el valor "T Sup", por lo que en ese momento quiero que envíe un correo automatico indicandome El nombre de la columna B a superado el tiempo. No se que estoy haciendo mal Muchas Gracias a Todos control tiempos GIF.xls

Resumen: Como crear funciones sin usar macros? Hola amigos, estuve programando un poco y tuve la necesidad de crear una funcion llamada: "CONCATENAR.SI", que sirva para concatenar celdas si es que cumplen una condición, y tengan un sepadador. Hice mi codigo: Function CONCATENARSI(ByVal rango As range, ByVal criterio As String, ByVal rango_c As range, ByVal sep As String) As String 'Concatena celdas si cumplen una condición Dim celda As Variant: Dim dif As Integer dif = rango.End(xlDown).Row - rango.Rows.Count For Each celda In rango.Cells If celda.Value = criterio Then If rango_c(celda.Row - dif, 1) <> "" Then …

Buenas tardes a todos, ojala puedan ayudarme. Estoy Haciendo un programita en Excel el cual va a servir para imprimir etiquetas para un inventario, las etiquetas contienen no_parte, ubicación, descripción e imagen, estos datos están almacenados en una BD en Excel, excepto la imagen que esta en una carpeta C:\imágenes(Cada imagen se llaman como el no_de parte) En el formulario por medio de formulas se mandan llamar los datos dependiendo de que rango de numero a que rango quiero imprimir sin embargo para que me aparezca la imagen no se como hacer. Anexo código que encontré: Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next 'If Target.Ad…

Hola a todos mi consulta es como cambiar la ruta para cargar las imagenes desde la hoja fotos del libro ,que actualmete lo hacen a travez de un vinculo a una carpeta de escritorio. adjunto proyecto copia.xlsm

Buenas noches, tengo un problemilla y he estado buscando por internet pero no encontre nada, espero que me puedan ayudar en el foro de la misma forma con la que yo espero ayudar. El problema es el siguiente. Tengo un libro con varias hojas, entre ellas las siguiente: Empleados con los Nombre de empleado y el turno en el que trabaja , Mañana Tarde o Noche, con cada uno de los dias del mes (vamos un cuadrante de turnos) Cuadrante con una lista desplegable que coge el nombre del empleado y después en cada una de las celdas pone de los dias de la semana todo cogido de Empleados. Con esto consigo ver en la hoja Cuadrantes, el cuadrante individual de ca…

Buenos días estimados, necesito una macro que al ejecutarse, guarde en un nuevo libro solo los valores de la hoja activa y que todas las celdas tengan formato "texto". Además de ser posible que el nombre con el que se guarde contenga la fecha del día. Intenté hacerlo con varias macros publicadas en el foro pero no logro hacer que todo salga bien. Desde ya, muchas gracias por su ayuda.

Estimados, muchas gracias por ver mi tema, el tema es que tengo una macro que me funciona a la perfección para ajustar alto de celdas combinadas pero el problema es que me funciona muy lenta, y nose como poder hacerla mas efectiva. agradeceria su pronta ayuda. La macro es la siguiente: Sub AjustarA1_A10() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim rngC As Range For Each rngC In [Reporte!H5:H14] AjustarTextoEnCeldasCombinadas rngC.MergeArea Next rngC Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub AjustarTextoEnCeldasCombinadas(rngRango As Range) 'Este sub cambiará la altur…

Duda: Buenas noches necesito copiar una imagen de un archivo de excel con extension .xlam a power point o word, pero no me deja copiar, ni siquiera se selecciona. Les comento que estoy utilizando una extensión de excel donde agrego datos y me gráfica, las cuales necesito acomodar para una presentación y que mis imágenes tengan buena calidad y también al imprimirse. La única forma en que pude copiar la imagen fue con la opción imprimir pantalla y la calidad es muy mala. Agradeceré mucho me orienten si es posible hacer esta operación o no. Saludos cordiales.

Hola a todos en el foro, quisiera resolver un problema q tengo... de antemano gracias....explico: quiero copiar una hoja de registro para un nuevo libro pero que el nuevo libro se guarde automaticamente con el nombre del empleado ej..... c:pedro.xlt

Buen día para todos encontré un archivo en la web que permite hacer facturas y poder manejar una base de datos de inventario, mi problema es que soy novato para VBA y no comprendo muchas cosas y quiero hacer unos ajustes en el programa; necesito que el programa me genere automáticamente un consecutivo cada vez que le doy nueva factura también necesito que la factura cuando me genere el subtotal de la compra no me sume el iva sino lo me reste ya que el valor del producto de la lista es con iva incluido y por ultimo no se como cambiar el formato de impresión la idea es que el recibo salga en formato colilla. De verdad agradecería la ayuda no es para fines lucrativos sim…

Estimada Comunidad: Recurro a ustedes esperando que se encuentren muy bien: Les escribo para hacer consulta sobre como podría generar números aleatorios con VBA, los cuales se vayan enlistando a medida que vayan saliendo. Mi idea es simular un sorteo aleatorio de las personas que se deberán encargar de la limpieza de un lugar y que, una vez les haya tocado limpiar, quede registrado en una hoja excel el día que les ha tocado. Además, lo ideal es que no se repitan hasta que todos hayan pasado por 1 día de limpieza. De lo anterior desprendo que lo necesario es lo siguiente: 1) Generar 3 números aleatorios que no se repitan entre sí. 2) Verificar si ya han limpiado …

Buenos dias. Les cuento. Estoy intentando desarrollar un macro, soy nuevo en esto, y es para mi trabajo. Lo que necesito hacer es lo siguiente: .Copiar el sombreado de todas las celdas Doc A desde J2 hasta J850 al Doc B desde la J2 a la J850, mediante un buscarv donde los codigos unicos del Doc A y Doc B se encuentran desde A2 a A850 de ambos documentos. .Esto necesito aplicarlo solo a aquellas celdas que tengan color distinto al Gris. Se me ocurre un For, con un If adentro, y luego algo asi pero nose como hacer que varie. Dim micolor micolor = Range("'[Pendientes de ingreso.xls]Sheet1'!J2").Interior.color Range("J2").Interior.color = micolor Range("K2").Interior…

Saludos a todos, tengo una base de dato bastante extensa de cuentas por cobrar clientes y me gustaría eliminar los subtotales que tengan saldo en cero para efecto de análisis de dicha data, alguien que me preste el apoyo de una macro que pueda agilizar dicho trabajo; adjunto ejemplo. Saludos; Ejemplo.xls

Buenos días, Tengo un problema con un archivo de excel al que quiero mediante un botón ocultar las columnas cuyas celdas estén vacías, es un inventario de productos por almacen que muestra las cantidades del mismo de acuerdo al código de cada producto. Me oculta las columnas del rango que estoy usando sin tomar en cuenta si están vacías o no. En una archivo con menos datos lo he probado y si funciona. Adjunto el archivo para que lo miren. También tiene programado un buscador para que muestre solo la referencia del producto requerida, entonces la mecánica del archivo sería mostrar solo una referencia de producto y poder ocultar las columnas (almacenes) que no te…

amigos de ayuda excel espero su aporte para resolver las deudas por cobrar de un negocio adjunto archivo para que se pueda entender mejo, de antemano muchas gracias por su ayuda... CONTROL DEUDAS.rar

Hola, Soy nuevo en el foro y necesitaría de vuestra ayuda para realizar una pequeña macro. He estado buscando en el foro antes de crear el tema pero no he encontrado lo que necesito. Resulta que tengo 2 libros: libro A y libro B. Ambos libros tienen las mismas columnas. Hay una columna que se llama ID que identifica la fila. El libro A se actualiza cada día, de manera que aparecen nuevas filas que no se encuentran en el libro B. Además puede ser que alguno de los campos del libro A se modifique por lo que aun existiendo en el libro B hay que encontrar esta actualización. Lo que quiero conseguir es lo siguiente: 1. Comparar cada campo ID del libro A con todos los campo…