Necesito crear una macro o funcion que seleccione automáticamente los insumos repetidos en los cuadros de materiales, Herramientas y Equipos y Mano de Obra de cada uno de los APU y muestre un listado con el total de cada uno de los insumos de los APU. Ej: el insumo, Cemento Gris, aparece en los APU. 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 3.1 y 3.2 La idea es que multiplique (Rendimiento/Cant) X cantidad del APU y sume el valor de cada uno de los APU y me muestre el total de Cemento Gris en la tabla Materiales y asi con cada uno de los insumos de cada APU, esto es para Sacar cantidad de materiales para una Obra Presupuesto de Obra.zip

Private Sub TextBox10_Change() Application.ScreenUpdating = False On Error Resume Next Dim cam As Integer cam = Len(TextBox10.Text) Select Case cam Case 2 Me.TextBox10.Text = Me.TextBox10 & "/" Case 5 Me.TextBox10.Text = Me.TextBox10 & "/" End Select Dim fecactual As Date Dim fecnac As Date Dim edadactual As String fecnac = CDate(TextBox10.Value) edadactual = DateDiff("d", fecnac, Now) TextBox11.Text = edadactual fecnac = CDate(TextBox10.Value) edadactual = DateDiff("m", fecnac, Now) TextBox12.Text = edadactual fecnac = CDate(TextBox10.Value) edadactual = DateD…

Buenas tardes colegas. Espero se encuentren bien de salud todos. Necesito un aporte de ustedes. En el formulario FrmEmpleado almaceno una serie de datos, entre ellos la Edad de cada uno de los empleados, pero yo necesito que la misma se genere de manera automática a partir del numero de identidad que es el campo que le precede. Me explico; El campo CI (TxtIdentidad) recoje el número de Identidad permanente de cada Cubano y esta formado por: los seis primero dígitos la fecha de nacimiento, los 5 restantes son tomo, folio y sexo, A nuestros efectos e interés los 6 primeros. Por ejemplo, mi numero permanente es 66020108609 donde 66 en el año de …

Amigos me piden este trabajo Crear un formulario del cual: 1.- Ingresar el valor del factorial que desee calcular en una celda. 2.- Que arroje el resultado en la celda contigua. 3.- Un diseño atractivo 4.- Con un botón que traiga dicho formulario 5.- Que oculte dicho formulario después de realizar la tarea. 6.- El calcule debe realizarlo con las instrucciones GOTO, IF THEN , etc. Al parecer no es tan sencillo o sera que los archivos que vi en el foro son tan impresionantes que me asuste de frenton hay unos archivo de NEVER y del maestro Mjrofra pero no supe como poder adaptarlo a mis necesidades si alguien del foro me pudiera ayudar lo agradecería un monton.

Hola aTod@s, estoy haciendo una tabla de Excel en la que introduciendo los horarios de entrada y salida me calcule cuantas horas he trabajado cada día, si he acumulado minutos extra, etc. Y posteriormente me va generando la nómina de ese mes, como las circunstancias del trabajo son peculiares ( tengo una jornada de trabajo de 7’15 horas diarias pero el horario puede ser un poco más extenso y la diferencia entre las 7’15 y lo realmente trabajado se acumula como minutos, además entre turno y turno debe de haber 12horas de diferencia entre la salida de uno y la entrada del otro aunque a partir de las 10 horas te pueden poner trabajo, pero esos minutos desde que entras antes …

Hola, compañeros, tengo una tabla de excel con dos columnas una el DNI y otra la fecha con la hora Necesito algo como Si C3 es igual que C4( es decir el mismo dia) entonces C4 menos C3 y ya el resultado lo mostraria con formato horas y luego sumaria esa columna Despues calcularia los dias laborables del mes de enero segun cuadrante de turnos. Asi sabria si el trabajador ha hecho horas de mas. horas_dia.xlsx

Hola ¡ Soy nuevo en este foro y también en el tema de las MACROS y quiero pedir de su valiosa ayuda para poder automatizar con una macro un archivo de clientes(ADJUNTO ARCHIVO CLIENTES) el cual ya ordené utilizando el grupo esquema de la pestaña datos con el icono de subtotal de excel. No obstante, por cada Total de clientes quisiera insertar dos filas debajo. En la primera fila insertada en la columna F que escriba IVA 16% y en la columna G me realice el cálculo multiplicando el total por el 16% por cada cliente. En la segunda fila insertada escribir en la columna F la Total con IVA por cada Cliente y en la columna G me realice la sumatoria del Total …

Hola, estoy haciendo un programa en VBA de excel y en uno de los formularios quiero realizar la media si uso dos textbox y la mediana si uso 3 textbox. El formulario es el siguiente (Es solo un pedazo del mismo): [ATTACH]30734.vB[/ATTACH] La columna S1 de textbox en orden descendente es la siguiente (txtPesoCorporalS1, txtTallaS1, txtTallaSentadoS1, txtEnvergaduraS1), las siguientes columnas mantienen la misma lógica, solo cambia el final dependiendo la columna que sea (si es columna S3, dice txtPesoCorporalS3). Private Sub Calcular_Cineantropometria()[/CODE] [/left] [CODE] On Error Resume Next Dim PesoCorporalS1 As Double Dim PesoCor…

Hola, Estoy intentando determinar en que se basa el excel para establecer las (L)íneas (D)iscontinuas (Q)ue (S)eparan (L)as (Z)onas (Q)ue (V)an (A) (S)er (I)mpresas, o para abreviar (LDQSKZQVAS), que segun mi experiencia, varian a la hora de modificar alturas, anchuras y formatos de celda, (Me refiero a esas lineas misteriosas que aparecen al regresar a la hoja tras haber realizado una vista preliminar de la hoja) En cada prueba que he realizado, antes de tomar las medidas, he aumentado la altura de la celda anterior a la LDQSKZQVAS para ajustar la línea al máximo, o dicho de otra forma, dejando la altura de la fila anterior a la LDQSKZQVAS de tal forma que aumentando …

Hola cracks!! Estoy tratando de generar una macro que calcule el promedio de mis datos, pero en vez de que sea un rango fijo de X2:X8431 sea hasta el ultimo valor que tenga la columna X es decir que pueda variar ya que a veces son mas datos o a veces menos, les dejo el código que tengo actualmente con rango fijo. Range("X2").Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[8431]C)" He tratado con este pero no funciona: Dim last_row As Integer last_row = Cells(Rows.Count, "C").End(xlUp).Row - 1 Range("X2").Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[last_row]C)" Les agradezco mucho su ayuda si tienen alguna id…

Hola gente de esta maravillosa comunidad, estoy llevando un curso de Office Avanzado y me tope con un problema en Macros Excel VBA, me han dejado un ejercicio que me ha dado dolor de cabeza (por lo novato que soy). En 1ra columna tengo el nombre de 5 empleados, en la 2da columna en un "cuadro de texto" escribo los días trabajados por los empleados, en la 3ra columna introduzco los pagos por día de cada empleado, en la 4ta columna necesito calcular los sueldos de cada empleado multiplicando la 2da y 3ra columna (mi idea brillante y poco sencilla fue el colocarle un "botón de comando" en cada una de las filas y multiplicarlas), pero lo que quiero es que no se vea ta…

Muy buenas tardes estimados, la verdad es que soy bastante nuevo en las macros programadas mediante VBA. Estoy haciendo una que se utilizará aqui en mi trabajo para calcular el tiempo utilizado por otros trabajadores en realizar ciertas tareas asignadas y definidad en un libro de Excel. Para calcular el tiempo utilizado, desde el principio definí que sería mediante una hoja nueva, sin embargo yo sé que existen algunas formas muchos mas funcionales que la que yo he pensado. Adjunto un libro (Libro2.xlsx) el cual contiene el código que calcula el tiempo transcurrido, lo que yo necesito es poder manejar los tiempos cuando por ejemplo una tarea dure mas de un día y haya que p…

Hola buenos días, mi nombre es Santiago y soy nuevo con la programación en excel con VBA. Estoy realizando una macro para resolver problemas de optimizacion, pero necesito conseguir que dada una matriz base se calculen todas las posibilidades posibles es decir: Dada una matriz 3x3 calcule las 9! matrices Dada una matriz 2x2 calcules las 4! matrices etc Si alguien supiera algun código que pudiera ayudarme se lo agradecería mucho Un saludo

Buenas noches, necesito ayuda con una programación de una macro. Es un poco complejo y no sé si seré capaz de expresarme correctamente para que me entendáis. El valor de Modelo1 puede ser entre 0 y 12. El valor de Modelo2 puede ser de 0 a 24. 2*Modelo1+Modelo2=24 --> calcular y escribir el la hoja el resultado de: Modelo1*Margen1+Modelo2*Margen2. Rellenar la tabla de: nº (número de combinación; por ejemplo la combinación 1 puede ser: Modelo1= 12 y Modelo2=0), Modelo1, Modelo2, Beneficio total (fórmula anterior). Todo esto se tiene que poder calcular a través de un botón. Cada vez que se escribe una combinación de Modelo1 y Modelo2 que cumpla la fórmula 2*Modelo1+M…

Lo que necesito es calcular las celdas en verde. Dado que, como yo cuento fechas entre 2 meses con rangos de 19 al 18, hay días que se pierden entre fechas, Por ejemplo, Los días antes de ese 19 (>19) pertenecerían al periodo anterior. Los días después de este 18 (<18) pertenecerían al periodo posterior. Y esos días también son importantes. Les agradezco de antemano. Problema.zip

Hola Cracks! De nuevo necesitando de su apoyo, Tengo una tabla que me muestra el Fill Rate de ordenes de venta que obtengo por la siguiente formula: Cantidad facturada/Cantidad de Pedido Cuando en una misma fila esta toda la cantidad facturada por toda la cantidad del pedido la formula corre bien y nos da el 100% ,el problema está cuando una cantidad de pedido se divide entre varias cantidades facturadas se debe dividir todas por la misma cantidad de pedido, se vería de esta forma: Cantidad de Pedido | Cantidad Facturada | Fill Rate 858 396 46% 0 …

Amigos, muy buenos días, disculpen que moleste, pero veo que saben mucho, y quisiera pedir ayuda en lo siguiente: Debo hacer una operación matemática en una macros que estoy desarrollando, la realiza bien, pero con valores mayores a 1 pero sin redondeo, es decir después de la coma no me da las valores decimales, y solo tengo esto: A modo de ejemplo que al realizar la operación de: 2 * 1.36 = 2.72, y no 2.00 , o 0.35 * 0.2 = 0.07 y no 0.00 como lo está haciendo actualmente. Solo tengo esto: Private Sub TextBox17_Enter() TextBox17 = Val(TextBox16) / 100 * Val(TextBox7) * Val(TextBox22) TextBox17.Value = FormatNumber(TextBox17.Value, 2) End Sub …

Estimados, Tengo un problema.. ya que tengo que sacar promedios de los ultimos 4 mes desde una tabla dinamica... el asunto es que al filtrarla por clientes, en algunos casos esos meses estan vacios y la tabla se acorta o crece, y tengo que recarcular el promedio.. Puedo hacer una macro para ello??? saludos :black_eyed:

hola amigos , tengo el siguiente codigo para calcular el digito de verificacion del nit para colombia pero no se como usarlo para que me funcione utilizando dos textbox uno es donde se digita el nit y el otro donde arroja el resultado del DV : Public Function DV(Nit) Dim TipoRet, lnRetorno, Arreglo_PA(15), WSuma, WDato, WDig_Ver As Integer TipoRet = VarType(Nit) Select Case TipoRet Case TipoRet = "C" Nit = Trim(Nit) Case TipoRet = "N" Or TipoRet = "Y" Nit = Trim(Str(Nit)) End Select Arreglo_PA(1) = 71 Arreglo_PA(2) = 67 Arreglo_PA(3) = 59 Arreglo_PA(4) = 53 Arreglo_PA(5) = 47 Arreglo_PA(6) = 43 Arreglo_PA(7) = 41 Arreglo_PA(8)…

Hola Compañeros Tengo libro que cuando lo trabajo quiero trabajar En Calculo manual y solo me calcule cuando yo espiche el botón.. pero al salir a otros libros también me desactiva el calculo Quiero que eso no pase Asi que Puse que al Al Salir Se Active Y al Abrir Se Desactive Pero Aveces tengo que copiar mucha información y recurro al Copiar y pegar Desde otro libro de Excel Pero La selecciono y al momento de pegarla en el libro del calculo manual es como si no la hubiera seleccionado Así que decidi deactivar el calculo manual al abrir el libro y ahi si sirvió que hago

Necesito encontrar la estación por medio de la columna auxiliar y que el valor 0 ENCONTRADO EN OFFSET Ó EL LADO QUE SEA L.C (LINEA CENTRAL) sume los valores de los lados (L.I y L.D) izquierdo y derecho Se me complica en el monento que la L.C pasa al final del orden de la estació o a su inicio Me dirán que ordene los valores en las columnas del offset y la elevación pero debido a que se tiene que llevar el registro de esta manera no debo. En la columna "E" dejo los valores supuestos de la operación Cualquier ayuda, gracias de antemano. ------------------------------FORMATO ELEVACIONES--------------------------.xls

Buenos días Foristas. Una vez más por acá. Quizás más rápido de lo que yo hubiera querido, pero sigo teniendo problemas con los cálculos en VBA. Es algo que no acabo de aprender y necesito aprenderlo. Acá en mi país cuando un trabajador se enferma y el Médico le da Reposo, emite un Certificado Médico, donde entre otros datos consigna los días a Descansar y la fecha Inicial cuando comienza ese Reposo. Imagino que en todos lados sea parecido, quizás difiera en el cálculo. Yo quise automatizarle esto a mi esposa para que hiciera los cálculos de manera automática con sólo introducir los datos imprescindibles. Primero: Declara el Salario devengado por cada uno d…

por casualidad algun experto tendra un caleidoscopio matematico con numeros aleatorios le agradeceria mucho

Jóvenes buena tarde, gusto de saludarles... fíjense que tengo Windows 8 y office 2010 pero al momento de querer montar un textbox y agregarle un calendario desplegable en vb no me da esta opción. al parecer en win8 da conflictos y no lo trae instalado. alguien me puede hacer el favor de indicarme como instalarlo ? saludos mil gracias....

buena noches estoy haciendo una base de datos en vb excel en donde puedo asignar la fecha de un capacitación para ello deseo colocar un calendario que permita escoger la fecha pero no se como. podrían colaborar muchas gracias.