James Bond

Eso es porque no modificaste la línea que hace las multiplicaciones en la columna DE o total, este es el resultado de la macro modificada y esta es la macro modificada Sub COPIAR() Set H1 = Worksheets("BUSQUEDA") Set H2 = Worksheets("PRESUPUESTO")...

Prueba estas macros Sub formular() cantidad = InputBox("cuantas formulas quieres?") If cantidad = Empty Then End Set datos = Range("a1").Resize(cantidad, 1) With datos For i = 0 To cantidad If i = 0 Then .Cells(1, 1) = "=e12" If i > 0 Then .Cells((2...

Checa esta macro

Este código no es mio lo encontré en la red y es a base de funciones son dos HexSHA1 y HexDefaultSHA1 la primera ingresas la palabra a encriptar más 4 números y la segunda solo la palabra este es un ejemplo y esta es la macro como es normal en...

Prueba con esta macro Sub combinar_platillos() Set datos = Range("h1").CurrentRegion With datos r = .Rows.Count Set datos = .Rows(2).Resize(r - 1) r = .Rows.Count x = 1 For i = 1 To r principal = .Cells(i, 1) For j = 1 To r guar = .Cells(j, 2) If...

intenta esta correccion en las lineas, usas on error resume next para saltar error y continuar la macro y on error goto 0 para poner Err.number=0 de lo contrario se queda en la memoria el 1004. Set tabla =...

Si tus datos no tienen encabezados esta es la macro que ocupas, solo cambia el a1 por la fila donde comiencen tus datos. Sub copiar_datos() Set datos = Range("a1").CurrentRegion With datos filas = .Rows.Count For i = 1 To filas fila =...

El problema esta en el calculo automático, cualquier cambio que hagas en la hoja hará que todas las fórmulas se recalculen o actualicen en ese momento, solo hay dos formas de impedir que lo que ya tienes se actualice 1.- Lo que no quieras que se...

Esta macro busca la palabra función, determina en que columna se encuentra, ordena la información de forma ascendente agrupando todas las POR las cuales copia en un solo paso a la hoja 2, si ya hay datos en la hoja 2 entonces coloca los datos abajo...

Prueba con esta macro, es para rangos dinámicos, cuenta las filas en ac2 y en base a ese conteo es la cantidad de fórmulas que coloca en aj2 Sub formulacion() ActiveCell.FormulaR1C1 = "MRC / OTC" Set datos = Range("ac2").CurrentRegion With datos Set...