James Bond

Prueba con esta macro, es más corta Sub macro1() Set datos = Worksheets("macro 01").Range("a1").CurrentRegion Set trans = Worksheets("transacciones").Range("a26") With datos f = .Rows.Count: c = .Columns.Count .Sort...

Es bastante fácil hacer ese tipo de listas dependientes cuando entiendes la programación orientada a objetos, ve el ejemplo, cada combo crea en la región de datos que graba en la hoja de excel y el siguiente combo usa esa región para ir filtrando la...

Usa esta fórmula primero cuenta los ceros que hay en el rango especificado y luego busca el primer valor mínimo mayor a 0 =+K.ESIMO.MENOR(C3:C7,CONTAR.SI(C3:C7,0)+1)

Este es el resultado de hacerlo con macro, en este caso una macro dinámica que sin importar cuantos registros añadas o quites la macro trabajara sobre los que queden esta es la macro Sub sumar_codigos() Dim funcion As WorksheetFunction Set funcion =...

Prueba con esta macro solo colocala en el modulo thisworkbook cada que la abras creara una hoja por cada cliente que se encuentre en la lista de la hoja llamada lista en la columna b, puedes cambiarlos poniendo el nombre de tu hoja y el rango donde...

Tu programación tiene dos problemas usas un do while y demasiados select eso alentá las macros, para lo que quieres hay formas más eficientes de hacerlo, por ejemplo esta macro hace lo mismo que tu macro solo que se va directo al final de los...

Busca mapas mentales y que tus alumnos preparen uno personalizado, por ejemplo uno puede dibujar un árbol y cada rama es una fecha importante, otro puede dibujar una avenida donde cada calle es en fecha que recordar o un palacio donde cada habitación...

Prueba esta macro, te copiara a la hoja 2 en un sola pasada todos los datos de quienes no tengan 8 materias, lo único que tienes que cambiar son estas dos líneas al principio de la macro para adaptarla a tus datos Set DATOS =...

y si cambias la instruccion activecell.interior.colorindex=5, esto deberia cambiar el fondo de la celda donde te pongas.

¿Trataste con esto? if lista>0 then Me.Cbo_codigo.AddItem Lista asi excluyes los valores =0