Dante Amor

Puedes poner una imagen de tu hoja Tabelle20

Para crear la macro. Puedes poner una imagen con un ejemplo y me explicas cuál es el resultado esperado. Quiero entender lo que hace la udf con el ejemplo.

Puedes poner ejemplos de lo que tienes y los resultado que necesitas

Bastaría con cambiar esta línea: Set b = h.Range("B:B").Find(Txt_Codigo_Producto.Text, , xlValues, xlWhole, , , False) Pero también te entrego el código depurando algunas líneas que no son necesarias: Private Sub P_Buscar_Productos_Click() Dim h As...

Prueba la siguiente opción, primero verifica si existen valores. Si existen valores, entonces aplica un filtro y pone el color, con el autofiltro no es necesario realizar ciclos y tú tienes 2 ciclos. Sub test2() Dim lr As Long, f As Range...

Ho la Angie, bienvenida a todoexpertos. Veo que en tu hoja "BUSCADOR" tienes un botón, supongo que tienes una macro para pasar los datos hacia la hoja "REGISTRO". Puedes poner aquí tu macro para agregar las líneas y validar duplicados.

No existe una fórmula que pueda realizar la comparación, podría utilizar unas fórmulas para hacer posible la comparación. Podría ser de la siguiente manera. La primera fórmula en la celda C2 quitaría los acentos del nombre de la lista1:...

Tienes que poner el código para guardar el archivo dentro del for: Sub tst() For Each c In Sheets("CATALOGO ").Range("F3:F9") Sheets("MATERIALES").[B1] = c.Value 'Inicio 'código para guardar el archivo 'Fin Next End Sub

Cuando copias un rango filtrado solamente pega los valores. Si quieres las fórmulas, podrías intentar copiar todo el rango, de esa manera copias las fórmulas, filtrar lo diferente a la fecha, borrar las filas diferentes, de esa manera permanecerán...

Considerando que en la columna S debes tener mínimo 12 y máximo 24. Prueba lo siguiente. Sub Distribuir() Dim i As Long, j As Long, k As Long, m As Long Dim dos As Long, uno As Long, x As Long, y As Long Dim arr As Variant ' arr = [ROW(1:12)] ' For i...