d2enri

Has de usar la fórmula que te paso =SUMAR.SI(A1:A10;"<1000") Esto te sumara menor de 1000 y esta otra = ó mayor de 1000 =SUMAR.SI(A1:A10;">=1000") Si necesitas alguna aclaración dímelo

Pon la fórmula así =$d$5*e6 Al poner el signo $ lo pasas a apsoluto y ese rango no te cambia sin embargo e6 si te cambiara

Si creo que sera mejor que me pases el archivo Lo mejor sera que en el archivo me pongas los comentarios de donde quieres los datos [email protected]

Puedes probar con algo así Sub busco_y_copio() Dim n As Range Application.ScreenUpdating = False Sheets("rol no agricola").Visible = True Sheets("rol no agricola").Select palabra_a_buscar = InputBox("Ingresar dato buscado", "Buscador") If...

Solo puedes solucionarlo eliminando las columnas que insertaste o modificando la macro para que considere las nuevas columnas si quieres pega aquí el código y dime que columnas agregaste

Creo que estas haciendo un mal planteamiento supongo que lo que quieres es que si se cumplen las 2 condiciones te de el valor de la celda e que se encuentra 10 8 etc solo puedes sacar uno por fila entonces tu fórmula debería ser esta...

Una opción seria este código Sub unicos() Application.ScreenUpdating = False Columns("A:A").Select Columns("A:A").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Columns("A:A"), Unique:=True Columns("A:A").Select Selection.Copy...

Si tienes excel 2007 puedes usar SUMAR:SI o bien SUMAPRODUCTO Si no sabes usarlo dime los rangos y te paso la fórmula

Esta macro realiza lo que pides Sub busco_y_copio() Dim n As Range palabra_a_buscar = InputBox("Ingresar dato buscado", "Buscador") If palabra_a_buscar = "" Then Exit Sub Set n = Worksheets("Hoja1").Cells.Find(what:=palabra_a_buscar) If n Is Nothing...

Si me mandas un resumen de tu archivo miro de adaptarlo pera lo que pides [email protected]