James Bond

Prueba esta macro es dinámica se adapta a los datos si quitas o añades datos la naxro se adaptara a estos cambios. Sub ESTADISTICAS() Set DATOS = Range("A2").CurrentRegion With DATOS Set DATOS = .Rows(2).Resize(.Rows.Count - 1) .Rows(.Rows.Count +...

Prueba esta macro, sin importar donde tengas tus datos siempre buscara poner la suma de filas y la suma de la columna justo en la suma 14, pruébala y comentas. Sub ANALIZ() Set DATOS = ActiveSheet.UsedRange With DATOS Set DATOS = .Columns(1) On Error...

¿Ya intentaste esta fórmula? =SI(A8<>"",A8,"" ) & SI(A9<>"","," &A9,"" )& SI(A10<>"","," &A10,"" )& SI(A11<>"","," &A11,"" )& SI(A12<>"","," &A12,"" ) Te dejo la pantalla con el resultado que genera si esta vacío simplemente no hace nada caso...

Esto es algo parecido a lo que buscas, la macro es realmente muy sencilla por fórmulas lo veo complicado hacerlo. y este es el codigo que logra hacerlo Sub SEPARAR_Y_COPIAR() Set DATOS = Range("B3").CurrentRegion With DATOS Set DATOS =...

Puedes usar la herramienta separar texto del menu datos usando la que de kb como referencia de separación y luego aplicas la autosuma sobre la columna numérica y listo ya tienes la autosuma.

De tu lista de nombres repetidos por ejemplo: Pedro Pedro Pedro Juan Juan Jose Jose Copias estos datos a otra columna y aplicas la herramienta eliminar duplicados sobre el rango copiado ya con esa lista de nombres únicos creas un formato condicional...

¿La columna i esta vacía o tiene datos?

Checa esta macro, es una macro de evento, esta es pla pantalla con el resultado que se busca, la diagonal tiene un espacio en blanco esto porque si no dejo ese espacio en blanco la hoja de Excel lo considera como una operación de división y lo pone...

Para permutaciones son 20,736 arreglos posibles, para combinaciones son 495 arreglos únicos y la macro para conseguir todos los arreglos posibles en ambos con la siguiente macro consigues ambos arreglos en un solo paso dura menos de 1 minuto generar...

Prueba con esta macro y comentas Sub copiar() Set datos = Range("a1").CurrentRegion With datos .Sort key1:=Range(.Columns(1).Address), order1:=xlAscending cuenta = WorksheetFunction.CountIf(.Columns(1), "valor") fila =...