James Bond

Tu macro puede ser simplificada así, como ves este es el resultado y esta es la macro solo ocupas un ciclo for y una matriz para poner todas las condiciones que quieras Sub macro_simplificada() Set datos = Sheets("hoja1").Range("e3:e44") Set...

Yo haría la separación con esta macro, la cual lee los datos en la hoja datos y mediante un filtro los separa en la resultados por valor, coloreando en la tabla de la hoja datos y esta es la macro Sub colorearycopiar() INICIO = Time Set H1 =...

¿Especifica qué columnas quieres comparar?, ¿Son los datos coloreados los que quieres copiar o los que no?, si puedes sube una pantalla de tus datos así se evita el tener que hacer suposiciones que por lo general son erróneas.

Usa esta fórmula =+CONTAR.SI.CONJUNTO(B6:B200,"<>",B6:B200,"<>compras")

Como no subes un ejemplo de lo que necesitas te muestro el resultado de esta macro, en la hoja BBDD en la columna B están las leyendas y en la columna E están los nombre de las empresas y su correo electrónico, la macro lo que hace es separar...

Este es un ejemplo si en la celda A1 hay un 1 la celda A" se coloreara de verde y esta es la macro, la debes colocar en el modulo VBA de la hoja1 en el panel del explorador, seleccionar la hoja 1 y en el modulo que te abra pegas la macro Private Sub...

Prueba con esta fórmula =+si.error(si(contar.siI(D8:E8,"L")=2,1,0),(contar.si(D8:E8,"L")))

Este es el resultado de la macro y esta es la macro Sub contar_cursos() Set hd = Worksheets("datos") Set hr = Worksheets("resultados") hr.Cells.Clear Set cursos = hd.Range("a2").CurrentRegion With cursos FILAS = .Rows.Count col = .Columns.Count Set...

Prueba con esta macro, es un ejemplo de como validar el tamaño de un archivo Sub validar_tamaño() Set propiedades = CreateObject("scripting.filesystemobject") Set fichero = propiedades.getfile("c:\bibliotecas\fotos\paisajes\lago.jpg") peso =...

Prueba esta macro, la cual copia los datos de la hoja1 a la hoja2, elimina los nombre duplicados, suma los nombres que sean iguales en la la hoja1 y te saca un gran total ta como lo muestras en tus imágenes Sub RESUMIR_DATOS() Set H1 =...