Dante Amor

¿A partir de cuál celda exactamente quieres pegar? Prueba esto. Cambia "A1" por la celda inicial de pegado. Sub test() Sheets("PO").Select Range("C:D,G:G,R:R,AD:AD,AF:AM,AU:AV").Copy Sheets("New_POTemp").Select Range("A1").Select ActiveSheet.Paste End Sub

Puedes poner una imagen con más datos con los resultados que necesitas para tratar de encontrar un patrón.

Tienes que encontrar cuál macro activa esa biblioteca Copia cada macro a un libro nuevo y revisa cuál activa esa biblioteca. Una vez que tengas identificada la macro, modifica la macro en las líneas que activen la biblioteca.

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.

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...

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

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...

Prueba esta: =SUMAPRODUCTO(--(A$1:T$1=A2:T2))

Prueba lo siguiente Sub Seleccionar_Celda() Dim f As Range Set f = Range("H3:H731").Find(Sheets("Consulta_Nombre").Range("B15"), , xlValues, xlWhole) If Not f Is Nothing Then f.Select End If End Sub