James Bond

Esta macro realiza una comparación de la columna clientes en ambas hojas esta en la columna A, de encontrar que ya existe el cliente no lo copia, si no existe copia toda la fila de la hoja mensual a la hoja anual Sub copiar_nuevos() Dim h1, h2 As...

El resultado de mi macro es este, como ves de cada renglón toma el valor más alto y esta es la macro Option Base 1 Sub dato_maximo() Set datos = Range("a1").CurrentRegion fltArr = Array(31, 15, 31, 52) 'Create the array With datos filas = .Rows.Count...

Calculando con 2 procesadores significa que tu procesador es de doble núcleo es decir es un equipo rápido con 2 procesadores en 1, el problema con tu archivo puede ser que tenga demasiadas fórmulas, demasiado formatos, tablas dinámicas o formatos...

Pon esta macro en el panel de la hoja1 de VBA Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Target.Font.Bold = False If Target <> Empty Then Target.Characters(1, 1).Font.Bold = True On Error GoTo 0 End Sub Esta macro cada...

Por mas protecciones que le pongas a un archivo de Excel estas protecciones pueden romperse y lo se porque yo lo he hecho, puedes ponerle codigo al VBA y con un editor de caracteres binarios lo rompes, pones proteccion a las hojas y en internet...

¿Si sabes que las fórmulas tienen un máximo de caracteres?, si tu fórmula es muy larga lo mejor es hacerla función personalizada o macro además este tipo de fórmulas usada con un volumen alto de datos va a consumir mucha memoria y por consiguiente te...

Prueba esta macro, sustituí el combobox por un textbox, al momento de capturar y presionar enter alterna colores entre las filas y actualiza el total

Ponlo así

Esta macro establece un rango de datos cada que la corras comprobara cual es la ultima columna sea que quites, sea que añadas, y hara un ordenamiento sobre la ultima columna, la lectura de datos comienza en la celda A1, si tus datos comienzan en otra...

Prueba con esta macro, copiara solo las filas coloreadas en amarillo a la hoja 2 Sub copiar_coloreados() Set datos = Range("a1").CurrentRegion With datos filas = .Rows.Count x = 1 For i = 1 To filas xcolor = .Cells(i, 1).Interior.ColorIndex If xcolor...