James Bond

no entiendo tu peticion, de entrada esta condicion nunca se va cumplir 'If Format("dosi" & i & j, "string") = 0 Then MsgBox Format("dosi" & i & j, "string").Value ' = "-" El ciclo for i y for j tienen como valor inicial 1 y aun cuando empezara en 0...

Esta macro es más simple lo que hace es verificar que exista la información de la hoja 1 en la hoja2 a través de un conteo de cada celda si es mayor a 0 no copiara nada puesto que la info ya existe, si es 0 copiara la información una fila después de...

Este el resultado de la macro lee el numero de cada fila de la columna G y valida si es numero en caso de serlo le añade la palabra EMPAQUE al numero que tenga esa celda y esta es la macro Sub poner_titulo() Set datos = Range("a5").CurrentRegion With...

En la imagen que ves lo único que tienes que usar son las fórmulas que vienen en ella, solo escribes las fórmulas y las arrastras checa el ejemplo que pusiste de PEPE, espero sea lo que buscas.

Sin macro y con fórmula usa la siguiente =+DERECHA(H3,LARGO(H3)-10) y te queda asi

Prueba esta macro, lee el color de la celda b2 y los busca en la tabla, eliminado las filas que contengan dicho color y aqui esta la macro Sub eliminarxcolores() xcolor = Range("b1").Interior.ColorIndex Set datos = Range("a3").CurrentRegion With...

Con esta instrucción fijas el valor a la celda A1 de la hoja1 Label1.text=worksheets("hoja1").range("A1").value

Lo que tienes es demasiado sencillo que no ocupas el vlookup, mira esta imagen, uso una propiedad del combobox llamada listbox1. Listindex y esa es la que me trae los valores al formulario, ademas vlookup no te sirve solo funciona hacia la derecha si...

Este es el resultado de la macro 1.- Inserta un línea antes de los datos 2.- Coloca los títulos y los formatea en gris de fondo y letra blanca en negrita 3.- Formatea el resto de la tabla en color azul celeste y letra en negritatodo esto se puede...

Prueba esta macro, busca las facturas que hay en la hoja 2, cuenta cuantas hay de cada una en la hoja 1 y en un solo paso las copia todas a la hoja 3, eso reduce bastante el tiempo de funcionamiento. Sub copiar_facturas() Dim x As WorksheetFunction...