James Bond

La macro que pides es parecida a esta, recorrerá todas la columnas leyendo el valor de la columna 4 y ocultara las columnas conde aparezca 0, la segunda macro hace aparecer las columnas ocultas Sub ocultar_ceros() Dim datos As Range Set datos =...

Prueba con esta fórmula =+Indice(A1:C18,coincidir(E1,A1:A18,0)+F1-1,3)

Con fórmulas usando un contar. Si(rango de datos, valor a contar) te dirá cuantas veces los datos se repiten también se puede hacer por macros,, como no especificas más esw lo único que puedo recomendarte

Lo que pides implica elimina nombres duplicados luego con los nombres únicos contar cuantos coinciden después ubicarlos, seccionar esos registros, copiarlos a una nueva hoja y en caso de que esta no exista crearla, con fórmulas no es posible hacer...

En estadísticas hay 3 formas posibles de arreglos 1.- Combinaciones donde son arreglos únicos e irrepetibles en tu caso seria 6 posibles combinaciones 2.- Permutaciones que son arreglos que permiten como mínimo 1 repetición en este caso con tus datos...

No me queda muy claro lo que requieres así que te envío un ejemplo, lo que la macro te marca es cuantas coincidencias hay en el rango de datos y te los coloca en la celda C. Sub comparar() Dim datos As Range Dim f As Integer, n As Integer, cuenta As...

La forma más simple es la siguiente, la primera macro siempre guardara los archivos en el disco duro y a la vez anulara el panel para seleccionar las unidades y directorios, lo único que tienes que definir es c:\test.xlsm por la unidad y directorio...

Prueba con esta macro modificada, el problema de tu macro es que no le indicas que hacer cuando se repite el nombre de la hoja por eso crea formato(2), formato(3), el error no lo ves porque la instrucción on error resume hace que la macro ignore ese...

Checa el siguiente link en el te indica las causas de ese error y las posibles soluciones esta en español https://support.microsoft.com/es-es/help/319844/you-receive-a-activex-component-can-t-create-object-error-message-when

Este es el resultado de la macro que según entiendo por tu información necesitas Y esta es la macro Sub COPIAR() Set datos = Range("B2").CurrentRegion With datos F = .Rows.Count: C = .Columns.Count Set destino = .Columns(C + 2).Resize(1, F) x = 1 For...