James Bond

Esta es la fórmula

Checa este link, ese error se produce porque te falta una biblioteca en el 2007 http://yolosolucionoasi.blogspot.mx/2010/04/error-de-compilacion-no-se-puede.html

Te envíe a tu correo una solución checalo y evalúa mi respuesta

Prueba con esta macro, solo cambia la hoja2 y hoja3 por el nombre de las hojas que estés usando y el range b3 por la celda donde comiencen los datos que quieres copiar Sub copiar() Set h2 = Worksheets("hoja2") Set h3 = Worksheets("hoja3") Set datos =...

Se puede hacer usando un filtrado directamente a la memoria de la PC pero lo que no me queda claro es esto, una vez filtrado por el folio que datos quieres extraer de ambas tablas además del folio. Solo ocupas los nombres de la tablas, un contenedor...

Sin macro, con la fórmula Vlookup con una tabla de limites consigues lo que quieres sin conplicarte tanto, checa la imagen solo uso la fórmula vlookup en cuanto tecleo la cantidad, la fórmula busca en cual intervalo esta el valor y lo muestra.

Pues lo que pides realmente no tiene chiste, este es el resultado de la macro Sub TOTALIZAR() Set HA = Workbooks(ActiveWorkbook.Name).Worksheets("HOJA1") Dim UNICOS As New Collection Set DATOS = HA.Range("A2").CurrentRegion Set FUNCION =...

Este el resultado de la macro y esta es la macro, solo cambia el b2 y el b3 por las celdas donde tengas tu información Sub calcular_horas() Dim unicos As New Collection Set funcion = WorksheetFunction With Range("b2").CurrentRegion filas =...

Este es un breve ejemplo de como podría ser, la macro lee el valor en una celda en este caso a1 y valida que se mayor a 10 de cumplirse la condición hasta ahí llega el código y la macro acaba, en caso de ser menor a 10 la macro ejecuta tu código y...

Algo más sencillo es esto, reemplaza las celdas con 1 poniendo el valor de la celda b10 y respetando las celdas vacías Sub reemplaza() Range("m10:z10").Replace What:="1", Replacement:=Range("b10") End Sub